(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[   1179505,      23105]
NotebookOptionsPosition[   1168221,      22767]
NotebookOutlinePosition[   1168750,      22788]
CellTagsIndexPosition[   1168707,      22785]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{
  RowBox[{"$Path", "=", 
   RowBox[{"Prepend", "[", 
    RowBox[{"$Path", ",", "\"\<E:\\\\HOME\\\\anton\\\\roundabout\>\""}], 
    "]"}]}], ";"}]], "Input",
 InitializationCell->True],

Cell[BoxData[{
 RowBox[{"<<", "\"\<ACPackages`\>\""}], "\n", 
 RowBox[{"<<", "\"\<ErrorBarPlots`\>\""}]}], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{
  RowBox[{"$WD", "=", 
   RowBox[{"SetWorkDir", "[", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.420425006139*^9, 3.420425007898*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$WD", "=", 
   RowBox[{"NotebookDirectory", "[", "]"}]}], ";"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.44592900653125*^9, 3.44592901290625*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"SetWorkDir", "[", "\"\</2006.07.20/Re=10\>\"", "]"}], 
  ";"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Table", " ", "of", " ", 
    RowBox[{"results", ":", " ", 
     RowBox[{"list", " ", "of", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"date", 
         RowBox[{"(", 
          RowBox[{"year", ",", "month", ",", "day"}], ")"}]}], ",", 
        RowBox[{"mesh", 
         RowBox[{"(", 
          RowBox[{"Nx", "=", "Nz"}], ")"}]}], ",", "Re", ",", 
        RowBox[{"r", "/", "R"}], ",", "gamma", ",", 
        RowBox[{"F", 
         RowBox[{"(", "r", ")"}]}], ",", 
        RowBox[{"Coriolis", ";", "shift"}], ",", "mvx", ",", "\[Delta]mvx", 
        ",", "mvy", ",", "\[Delta]mvy", ",", "mvz", ",", "\[Delta]mvz", ",", 
        "Evx", ",", "\[Delta]Evx", ",", "Evy", ",", "\[Delta]Evy", ",", "Evz",
         ",", "\[Delta]Evz", ",", "m\[Psi]", ",", "\[Delta]m\[Psi]", ",", 
        "comment"}], "}"}]}]}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"indepkol", "=", "9"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"depkol", "=", "15"}], ";"}]}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.408477163236534*^9, 3.408477165611534*^9}, {
  3.44231131840625*^9, 3.44231133184375*^9}, {3.44231143325*^9, 
  3.442311487515625*^9}, {3.442311520984375*^9, 3.442311523*^9}, {
  3.44231238721875*^9, 3.442312405390625*^9}}],

Cell[CellGroupData[{

Cell["\:0414\:043e\:0431\:0430\:0432\:043b\:0435\:043d\:0438\:0435 \:0437\
\:0430\:043f\:0438\:0441\:0435\:0439", "Section"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"dvx", "=", 
   RowBox[{"dvy", "=", 
    RowBox[{"dvz", "=", "0"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dqvx", "=", 
   RowBox[{"dqvy", "=", 
    RowBox[{"dqvz", "=", "0"}]}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.419917802024*^9, 3.419917809774*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "dvx", ",", "dvy", ",", "dvz", ",", "dqvx", ",", "dqvy", ",", "dqvz"}], 
    "}"}], "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"2", " ", 
      SuperscriptBox["10", 
       RowBox[{"-", "5"}]]}], ",", 
     RowBox[{"1", " ", 
      SuperscriptBox["10", 
       RowBox[{"-", "4"}]]}], ",", 
     RowBox[{"2", " ", 
      SuperscriptBox["10", 
       RowBox[{"-", "5"}]]}], ",", 
     RowBox[{"5", " ", 
      SuperscriptBox["10", 
       RowBox[{"-", "6"}]]}], ",", 
     RowBox[{"2", " ", 
      SuperscriptBox["10", 
       RowBox[{"-", "5"}]]}], ",", 
     RowBox[{"2", " ", 
      SuperscriptBox["10", 
       RowBox[{"-", "6"}]]}]}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.392213330932*^9, 3.392213332615*^9}, {3.392213406269*^9,
    3.3922134071400003`*^9}, {3.3922134702679996`*^9, 
   3.3922134720439997`*^9}, {3.392213570354*^9, 3.392213576026*^9}, {
   3.3922139975030003`*^9, 3.392214000291*^9}, {3.3922140744890003`*^9, 
   3.392214075987*^9}, 3.3922146708380003`*^9, 3.3922147871400003`*^9, {
   3.392214860953*^9, 3.392214862561*^9}, {3.392215098034*^9, 
   3.392215100656*^9}, {3.392215320115*^9, 3.3922153220699997`*^9}, 
   3.3922154398129997`*^9, {3.3922255303640003`*^9, 3.392225532422*^9}, 
   3.3922257169300003`*^9, {3.419917812972*^9, 3.419917816811*^9}, {
   3.419918810112*^9, 3.419918812085*^9}, 3.419918904115*^9, {
   3.419919616112*^9, 3.419919656932*^9}, {3.41991992871*^9, 
   3.4199199308380003`*^9}, {3.419919962052*^9, 3.419919975212*^9}, {
   3.419922542427*^9, 3.419922543705*^9}, 3.4199226004838*^9, {
   3.4199226554894*^9, 3.419922659873*^9}, {3.4199227155025997`*^9, 
   3.4199227512422*^9}, {3.4199229647125998`*^9, 3.4199229666626*^9}, 
   3.4199230445690002`*^9, {3.4199230769077997`*^9, 3.4199230782494*^9}, {
   3.419923152599*^9, 3.4199231542214003`*^9}, {3.42017745816*^9, 
   3.420177494032*^9}, {3.420177566578*^9, 3.420177568416*^9}, {
   3.420418341407*^9, 3.4204184195179996`*^9}, {3.420424861229*^9, 
   3.420424879995*^9}, 3.44231803540625*^9, {3.44231812028125*^9, 
   3.442318121765625*^9}, {3.442318270296875*^9, 3.442318278109375*^9}, {
   3.442504708481*^9, 3.442504719006*^9}, {3.4425048574890003`*^9, 
   3.4425048747609997`*^9}, {3.442505245021*^9, 3.442505272788*^9}, {
   3.442505446882*^9, 3.4425054771*^9}, {3.442505676434*^9, 
   3.44250569188*^9}, {3.442505823664*^9, 3.4425058403310003`*^9}, {
   3.442506854907*^9, 3.4425068900439997`*^9}, {3.44250892737*^9, 
   3.4425089493120003`*^9}, {3.442509568193*^9, 3.44250959767*^9}, {
   3.44251114671*^9, 3.4425111705039997`*^9}, {3.442512370539*^9, 
   3.442512390616*^9}, {3.442563274123*^9, 3.442563279074*^9}, {
   3.4425639843529997`*^9, 3.4425640174519997`*^9}, {3.442594111881*^9, 
   3.442594128113*^9}, {3.442641477217*^9, 3.4426415115889997`*^9}, {
   3.442641923644*^9, 3.4426419458389997`*^9}, {3.442646683561*^9, 
   3.442646704416*^9}, {3.442648739722*^9, 3.44264875994*^9}, {
   3.442650497389*^9, 3.4426505178570004`*^9}, {3.4428247853120003`*^9, 
   3.442824800584*^9}, {3.4428307814890003`*^9, 3.442830795236*^9}, {
   3.4428349417139997`*^9, 3.4428349635179996`*^9}, {3.442853448699*^9, 
   3.4428534696029997`*^9}, {3.443942900258*^9, 3.4439429209560003`*^9}, {
   3.44592892625*^9, 3.44592895790625*^9}, {3.448696481265625*^9, 
   3.4486965194375*^9}, {3.448699433265625*^9, 3.4486994545*^9}, {
   3.448705346390625*^9, 3.448705367734375*^9}, {3.44870892803125*^9, 
   3.4487089603125*^9}, {3.44870951921875*^9, 3.448709535734375*^9}, {
   3.4487772114375*^9, 3.448777234203125*^9}, {3.44877755809375*^9, 
   3.448777581875*^9}, {3.448783795984375*^9, 3.448783819796875*^9}, {
   3.448955907703125*^9, 3.448955921640625*^9}, {3.448957728203125*^9, 
   3.448957749765625*^9}, {3.44895843046875*^9, 3.448958446765625*^9}, {
   3.4489585169375*^9, 3.448958533203125*^9}, {3.448958636671875*^9, 
   3.448958650578125*^9}, {3.448959177578125*^9, 3.448959197140625*^9}, {
   3.448959271984375*^9, 3.44895929375*^9}, {3.4489593313125*^9, 
   3.448959344328125*^9}, {3.448959380515625*^9, 3.44895939840625*^9}, {
   3.448959432640625*^9, 3.448959447796875*^9}, {3.448961012953125*^9, 
   3.44896103515625*^9}, {3.4492972650625*^9, 3.449297334015625*^9}, {
   3.4492974846875*^9, 3.4492975045*^9}, {3.44929756984375*^9, 
   3.44929759015625*^9}, {3.449297656203125*^9, 3.44929766840625*^9}, {
   3.45023645953125*^9, 3.45023648371875*^9}, {3.45023695940625*^9, 
   3.45023698996875*^9}, {3.450237081078125*^9, 3.450237108328125*^9}, {
   3.450237351671875*^9, 3.45023738684375*^9}, {3.4502374545*^9, 
   3.450237497078125*^9}, {3.45023764328125*^9, 3.450237647734375*^9}, {
   3.4502378958125*^9, 3.4502379189375*^9}, {3.450238073640625*^9, 
   3.450238096765625*^9}, {3.45023829878125*^9, 3.450238341265625*^9}, {
   3.4502384690625*^9, 3.450238493609375*^9}, {3.450238618265625*^9, 
   3.450238638171875*^9}, {3.4502389211875*^9, 3.45023893609375*^9}, {
   3.45023903353125*^9, 3.450239042203125*^9}, {3.450239197765625*^9, 
   3.450239206625*^9}, {3.450239330234375*^9, 3.45023935428125*^9}, {
   3.450242374328125*^9, 3.4502423963125*^9}, {3.4502425536875*^9, 
   3.450242580640625*^9}, {3.4502426865*^9, 3.450242699328125*^9}, {
   3.4502428543125*^9, 3.450242866015625*^9}, {3.450242903453125*^9, 
   3.45024292425*^9}, {3.450242981875*^9, 3.4502429986875*^9}, {
   3.45024305909375*^9, 3.45024306853125*^9}, {3.450243159234375*^9, 
   3.4502431624375*^9}, {3.450243855640625*^9, 3.450243864515625*^9}, {
   3.4502439130625*^9, 3.4502439333125*^9}, {3.45024400378125*^9, 
   3.450244020890625*^9}, {3.450244070140625*^9, 3.450244089875*^9}, {
   3.450414975640625*^9, 3.450415000828125*^9}, {3.45041523971875*^9, 
   3.45041525459375*^9}, {3.45041528846875*^9, 3.45041531125*^9}, {
   3.450416250984375*^9, 3.450416270609375*^9}, {3.450416345328125*^9, 
   3.45041636103125*^9}, {3.4724580327457*^9, 3.4724580504047003`*^9}, {
   3.501561015234375*^9, 3.50156103421875*^9}, {3.501563685625*^9, 
   3.501563709203125*^9}, {3.5015638405625*^9, 3.50156385521875*^9}, {
   3.501563906203125*^9, 3.5015639173125*^9}, {3.50156410721875*^9, 
   3.501564115453125*^9}, {3.501564235171875*^9, 3.5015642515*^9}, {
   3.501564312875*^9, 3.501564329890625*^9}, {3.501564425640625*^9, 
   3.501564433515625*^9}, {3.50156448503125*^9, 3.50156449209375*^9}, {
   3.50156456509375*^9, 3.50156457375*^9}, {3.5015659623125*^9, 
   3.5015659843125*^9}, {3.501566817890625*^9, 3.50156683275*^9}, 
   3.501567584859375*^9, {3.501567742859375*^9, 3.50156774553125*^9}, {
   3.50156779925*^9, 3.5015678131875*^9}, {3.50156799259375*^9, 
   3.5015679976875*^9}, {3.501568061859375*^9, 3.50156806759375*^9}, {
   3.501568306328125*^9, 3.501568314359375*^9}, {3.501568389421875*^9, 
   3.5015684068125*^9}, {3.5015685354375*^9, 3.501568540703125*^9}, {
   3.501568583625*^9, 3.501568587203125*^9}, {3.50156881184375*^9, 
   3.501568825890625*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "dvx", ",", "dvy", ",", "dvz", ",", "dqvx", ",", "dqvy", ",", "dqvz"}], 
    "}"}], "=", 
   RowBox[{"{", 
    RowBox[{"0", ",", 
     RowBox[{"6", " ", 
      SuperscriptBox["10", 
       RowBox[{"-", "5"}]]}], ",", "0", ",", "0", ",", 
     RowBox[{"2", " ", 
      SuperscriptBox["10", 
       RowBox[{"-", "5"}]]}], ",", "0"}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.392213330932*^9, 3.392213332615*^9}, {3.392213406269*^9,
    3.3922134071400003`*^9}, {3.3922134702679996`*^9, 
   3.3922134720439997`*^9}, {3.392213570354*^9, 3.392213576026*^9}, {
   3.3922139975030003`*^9, 3.392214000291*^9}, {3.3922140744890003`*^9, 
   3.392214075987*^9}, 3.3922146708380003`*^9, 3.3922147871400003`*^9, {
   3.392214860953*^9, 3.392214862561*^9}, {3.392215098034*^9, 
   3.392215100656*^9}, {3.392215320115*^9, 3.3922153220699997`*^9}, 
   3.3922154398129997`*^9, {3.3922255303640003`*^9, 3.392225532422*^9}, 
   3.3922257169300003`*^9, {3.419917812972*^9, 3.419917816811*^9}, {
   3.419918810112*^9, 3.419918812085*^9}, 3.419918904115*^9, {
   3.419919616112*^9, 3.419919656932*^9}, {3.41991992871*^9, 
   3.4199199308380003`*^9}, {3.419919962052*^9, 3.419919975212*^9}, {
   3.419922542427*^9, 3.419922543705*^9}, 3.4199226004838*^9, {
   3.4199226554894*^9, 3.419922659873*^9}, {3.4199227155025997`*^9, 
   3.4199227512422*^9}, {3.4199229647125998`*^9, 3.4199229666626*^9}, 
   3.4199230445690002`*^9, {3.4199230769077997`*^9, 3.4199230782494*^9}, {
   3.419923152599*^9, 3.4199231542214003`*^9}, {3.42017745816*^9, 
   3.420177494032*^9}, {3.420177566578*^9, 3.420177568416*^9}, {
   3.420418341407*^9, 3.4204184195179996`*^9}, {3.420424861229*^9, 
   3.420424879995*^9}, 3.44231803540625*^9, {3.44231812028125*^9, 
   3.442318121765625*^9}, {3.442318270296875*^9, 3.442318278109375*^9}, {
   3.442504708481*^9, 3.442504719006*^9}, {3.4425048574890003`*^9, 
   3.4425048747609997`*^9}, {3.442505245021*^9, 3.442505272788*^9}, {
   3.442505446882*^9, 3.4425054771*^9}, {3.442505676434*^9, 
   3.44250569188*^9}, {3.442505823664*^9, 3.4425058403310003`*^9}, {
   3.442506854907*^9, 3.4425068900439997`*^9}, {3.44250892737*^9, 
   3.4425089493120003`*^9}, {3.442509568193*^9, 3.44250959767*^9}, {
   3.44251114671*^9, 3.4425111705039997`*^9}, {3.442512370539*^9, 
   3.442512390616*^9}, {3.442563274123*^9, 3.442563279074*^9}, {
   3.4425639843529997`*^9, 3.4425640174519997`*^9}, {3.442594111881*^9, 
   3.442594128113*^9}, {3.442641477217*^9, 3.4426415115889997`*^9}, {
   3.442641923644*^9, 3.4426419458389997`*^9}, {3.442646683561*^9, 
   3.442646704416*^9}, {3.442648739722*^9, 3.44264875994*^9}, {
   3.442650497389*^9, 3.4426505178570004`*^9}, {3.4428247853120003`*^9, 
   3.442824800584*^9}, {3.4428307814890003`*^9, 3.442830795236*^9}, {
   3.4428349417139997`*^9, 3.4428349635179996`*^9}, {3.442853448699*^9, 
   3.4428534696029997`*^9}, {3.443942900258*^9, 3.4439429209560003`*^9}, {
   3.44592892625*^9, 3.44592895790625*^9}, {3.44696985184375*^9, 
   3.4469698746875*^9}, {3.446971466078125*^9, 3.4469714834375*^9}, {
   3.446972984578125*^9, 3.446973006875*^9}, {3.446974635578125*^9, 
   3.44697465565625*^9}, {3.446974947046875*^9, 3.446974966234375*^9}, {
   3.446977092703125*^9, 3.446977107359375*^9}, {3.44697739928125*^9, 
   3.446977418875*^9}, {3.446978964890625*^9, 3.44697899584375*^9}, {
   3.44698053078125*^9, 3.44698054359375*^9}, {3.446980926890625*^9, 
   3.446980949375*^9}, {3.446981729*^9, 3.446981747140625*^9}, {
   3.446982980375*^9, 3.446983009265625*^9}, {3.448959129515625*^9, 
   3.44895913403125*^9}, {3.44929716953125*^9, 3.449297176546875*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"putlist", "=", 
  RowBox[{
   RowBox[{"Join", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"2011", ",", "03", ",", "02"}], "}"}], ",", 
     RowBox[{"{", "128", "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Rm", "=", "70"}], ",", 
       RowBox[{"kappa", "=", "0.975"}], ",", 
       RowBox[{"gamma", "=", 
        SuperscriptBox["10", 
         RowBox[{"-", "4"}]]}], ",", 
       RowBox[{"Fr", "=", "\"\<dp\>\""}], ",", 
       RowBox[{"Coriolis", "=", "0"}], ",", "shift", ",", "maxvx", ",", "dvx",
        ",", "maxvy", ",", "dvy", ",", "maxvz", ",", "dvz", ",", "mqvx", ",", 
       "dqvx", ",", "mqvy", ",", "dqvy", ",", "mqvz", ",", "dqvz", ",", 
       RowBox[{"Max", "[", 
        RowBox[{"Abs", "[", "\[Psi]", "]"}], "]"}], ",", 
       RowBox[{"Max", "[", 
        RowBox[{"Abs", "[", 
         RowBox[{"\[Psi]2", "-", "\[Psi]1"}], "]"}], "]"}], ",", 
       "\"\<ErrScale 1e-4\>\""}], "}"}]}], "]"}], "/.", 
   RowBox[{"b_", "\[RuleDelayed]", 
    RowBox[{
     RowBox[{"CForm", "[", "b", "]"}], "/;", 
     RowBox[{"NumericQ", "[", "b", "]"}]}]}]}]}]], "Input",
 CellChangeTimes->{{3.3922065420559998`*^9, 3.39220655923*^9}, {
   3.3922141155030003`*^9, 3.392214140863*^9}, {3.3922145762860003`*^9, 
   3.3922145763789997`*^9}, {3.3922146124820004`*^9, 3.392214612866*^9}, {
   3.392225468336*^9, 3.392225472242*^9}, {3.419917821263*^9, 
   3.419917829091*^9}, {3.419917917066*^9, 3.419917927093*^9}, {
   3.41991998541*^9, 3.4199200323529997`*^9}, {3.419921641297*^9, 
   3.419921650542*^9}, 3.4199224350299997`*^9, 3.4199229697514*^9, {
   3.4201773580039997`*^9, 3.420177366933*^9}, {3.420177583811*^9, 
   3.420177584303*^9}, {3.420418306698*^9, 3.4204183191549997`*^9}, {
   3.420424936432*^9, 3.420424936631*^9}, {3.44231146846875*^9, 
   3.44231151003125*^9}, {3.442312392171875*^9, 3.442312401203125*^9}, {
   3.442318105953125*^9, 3.442318108484375*^9}, {3.442318186875*^9, 
   3.44231819*^9}, {3.442318314734375*^9, 3.44231831728125*^9}, {
   3.442505178711*^9, 3.442505179172*^9}, 3.442505405091*^9, 
   3.442505582245*^9, 3.442505785428*^9, {3.442505900586*^9, 
   3.442505900994*^9}, {3.442507009468*^9, 3.442507017382*^9}, {
   3.442507429288*^9, 3.4425074297869997`*^9}, 3.4425096013380003`*^9, 
   3.442510125299*^9, 3.442512394833*^9, {3.4425142956280003`*^9, 
   3.442514296027*^9}, 3.4425632465480003`*^9, {3.442594100709*^9, 
   3.4425941071359997`*^9}, {3.442641472028*^9, 3.442641472212*^9}, 
   3.442641949002*^9, 3.442646665841*^9, {3.442648735999*^9, 
   3.442648736245*^9}, 3.442649337644*^9, 3.442650493993*^9, 
   3.442650801309*^9, {3.442824803785*^9, 3.442824805663*^9}, 
   3.442825173324*^9, {3.442830648308*^9, 3.4428306515039997`*^9}, {
   3.442853473476*^9, 3.442853480118*^9}, 3.4428550357679996`*^9, {
   3.443942874216*^9, 3.4439428770889997`*^9}, {3.445928962078125*^9, 
   3.445928971515625*^9}, {3.448696456765625*^9, 3.448696471703125*^9}, {
   3.448699352671875*^9, 3.44869935284375*^9}, {3.448705374578125*^9, 
   3.44870537959375*^9}, {3.4487089170625*^9, 3.448708920765625*^9}, {
   3.448709476109375*^9, 3.44870947625*^9}, {3.44877723840625*^9, 
   3.4487772386875*^9}, 3.4487773475625*^9, {3.448778337046875*^9, 
   3.448778341453125*^9}, 3.4487838898125*^9, {3.4489558974375*^9, 
   3.44895590109375*^9}, 3.44895836540625*^9, 3.448958538375*^9, 
   3.448958654765625*^9, {3.448959120171875*^9, 3.4489591225625*^9}, {
   3.4489592000625*^9, 3.44895920015625*^9}, 3.448959263125*^9, 
   3.448959347515625*^9, {3.448959402171875*^9, 3.448959423984375*^9}, {
   3.448961004921875*^9, 3.448961008515625*^9}, {3.449297139171875*^9, 
   3.449297143171875*^9}, 3.44929733721875*^9, 3.4492974634375*^9, {
   3.44929759328125*^9, 3.449297593390625*^9}, {3.449297671171875*^9, 
   3.449297671265625*^9}, {3.450236425421875*^9, 3.450236444515625*^9}, {
   3.4502369960625*^9, 3.450236996625*^9}, 3.450237074984375*^9, 
   3.450237340484375*^9, 3.450237505390625*^9, 3.450237805578125*^9, {
   3.450237926265625*^9, 3.450237926640625*^9}, 3.450237992265625*^9, {
   3.45023834925*^9, 3.450238353015625*^9}, {3.45023849865625*^9, 
   3.450238499421875*^9}, 3.45023860475*^9, 3.450238958828125*^9, 
   3.45023901521875*^9, 3.4502391855625*^9, 3.450239257*^9, {
   3.4502422943125*^9, 3.450242296328125*^9}, {3.450242363640625*^9, 
   3.4502423641875*^9}, 3.450242444640625*^9, {3.450242656390625*^9, 
   3.450242657640625*^9}, 3.450242779140625*^9, 3.450242898703125*^9, 
   3.450242969546875*^9, 3.450243154765625*^9, 3.450243850953125*^9, 
   3.450243910359375*^9, 3.450243982671875*^9, {3.450414921265625*^9, 
   3.450414943*^9}, {3.45041515484375*^9, 3.4504151549375*^9}, {
   3.450416231171875*^9, 3.450416236671875*^9}, {3.450416342953125*^9, 
   3.45041634303125*^9}, {3.4724579029427*^9, 3.4724579330437*^9}, {
   3.501560880828125*^9, 3.50156088890625*^9}, 3.501563588015625*^9, {
   3.501563873265625*^9, 3.5015638733125*^9}, 3.5015641010625*^9, 
   3.5015642323125*^9, {3.50156430153125*^9, 3.50156430228125*^9}, 
   3.50156441203125*^9, {3.501564470328125*^9, 3.5015644704375*^9}, 
   3.501564558140625*^9, {3.501565950703125*^9, 3.501565950828125*^9}, 
   3.50156680759375*^9, {3.501567561109375*^9, 3.50156756121875*^9}, 
   3.50156771978125*^9, {3.501567786875*^9, 3.501567786984375*^9}, 
   3.501567963328125*^9, {3.501568032515625*^9, 3.5015680328125*^9}, 
   3.501568376421875*^9, {3.501568591375*^9, 3.5015685915*^9}, 
   3.50156878353125*^9, {3.6266024869589844`*^9, 3.626602510326172*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   InterpretationBox[
    StyleBox["2010",
     ShowStringCharacters->True,
     NumberMarks->True],
    CForm[2010],
    AutoDelete->True,
    Editable->True], ",", 
   InterpretationBox[
    StyleBox["12",
     ShowStringCharacters->True,
     NumberMarks->True],
    CForm[12],
    AutoDelete->True,
    Editable->True], ",", 
   InterpretationBox[
    StyleBox["16",
     ShowStringCharacters->True,
     NumberMarks->True],
    CForm[16],
    AutoDelete->True,
    Editable->True], ",", 
   InterpretationBox[
    StyleBox["256",
     ShowStringCharacters->True,
     NumberMarks->True],
    CForm[256],
    AutoDelete->True,
    Editable->True], ",", 
   InterpretationBox[
    StyleBox["115",
     ShowStringCharacters->True,
     NumberMarks->True],
    CForm[115],
    AutoDelete->True,
    Editable->True], ",", 
   InterpretationBox[
    StyleBox["0.5",
     ShowStringCharacters->True,
     NumberMarks->True],
    CForm[0.5],
    AutoDelete->True,
    Editable->True], ",", 
   InterpretationBox[
    StyleBox["0.0001",
     ShowStringCharacters->True,
     NumberMarks->True],
    CForm[
     Rational[1, 10000]],
    AutoDelete->True,
    Editable->True], ",", "\<\"dp1\"\>", ",", 
   InterpretationBox[
    StyleBox["0",
     ShowStringCharacters->True,
     NumberMarks->True],
    CForm[0],
    AutoDelete->True,
    Editable->True], ",", 
   InterpretationBox[
    StyleBox["0.4111946309734112",
     ShowStringCharacters->True,
     NumberMarks->True],
    CForm[0.4111946309734112],
    AutoDelete->True,
    Editable->True], ",", 
   InterpretationBox[
    StyleBox["0.13345372743418532",
     ShowStringCharacters->True,
     NumberMarks->True],
    CForm[0.13345372743418532`],
    AutoDelete->True,
    Editable->True], ",", 
   InterpretationBox[
    StyleBox["0.00002",
     ShowStringCharacters->True,
     NumberMarks->True],
    CForm[
     Rational[1, 50000]],
    AutoDelete->True,
    Editable->True], ",", 
   InterpretationBox[
    StyleBox["0.5394917991670589",
     ShowStringCharacters->True,
     NumberMarks->True],
    CForm[0.5394917991670589],
    AutoDelete->True,
    Editable->True], ",", 
   InterpretationBox[
    StyleBox["0.0001",
     ShowStringCharacters->True,
     NumberMarks->True],
    CForm[
     Rational[1, 10000]],
    AutoDelete->True,
    Editable->True], ",", 
   InterpretationBox[
    StyleBox["0.0939417424156275",
     ShowStringCharacters->True,
     NumberMarks->True],
    CForm[0.0939417424156275],
    AutoDelete->True,
    Editable->True], ",", 
   InterpretationBox[
    StyleBox["0.00002",
     ShowStringCharacters->True,
     NumberMarks->True],
    CForm[
     Rational[1, 50000]],
    AutoDelete->True,
    Editable->True], ",", 
   InterpretationBox[
    StyleBox["0.0031174654488904095",
     ShowStringCharacters->True,
     NumberMarks->True],
    CForm[0.0031174654488904095`],
    AutoDelete->True,
    Editable->True], ",", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      RowBox[{"5.", "e"}], "-", "6"}],
     ShowStringCharacters->True,
     NumberMarks->True],
    CForm[
     Rational[1, 200000]],
    AutoDelete->True,
    Editable->True], ",", 
   InterpretationBox[
    StyleBox["0.11665792960566573",
     ShowStringCharacters->True,
     NumberMarks->True],
    CForm[0.11665792960566573`],
    AutoDelete->True,
    Editable->True], ",", 
   InterpretationBox[
    StyleBox["0.00002",
     ShowStringCharacters->True,
     NumberMarks->True],
    CForm[
     Rational[1, 50000]],
    AutoDelete->True,
    Editable->True], ",", 
   InterpretationBox[
    StyleBox["0.001136343580263234",
     ShowStringCharacters->True,
     NumberMarks->True],
    CForm[0.001136343580263234],
    AutoDelete->True,
    Editable->True], ",", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      RowBox[{"2.", "e"}], "-", "6"}],
     ShowStringCharacters->True,
     NumberMarks->True],
    CForm[
     Rational[1, 500000]],
    AutoDelete->True,
    Editable->True], ",", 
   InterpretationBox[
    StyleBox["0.04115338165082248",
     ShowStringCharacters->True,
     NumberMarks->True],
    CForm[0.04115338165082248],
    AutoDelete->True,
    Editable->True], ",", 
   InterpretationBox[
    StyleBox["0.0013980584104512864",
     ShowStringCharacters->True,
     NumberMarks->True],
    CForm[0.0013980584104512864`],
    AutoDelete->True,
    Editable->True], ",", "\<\"ErrScale 1e-4\"\>"}], "}"}]], "Output",
 CellChangeTimes->{
  3.4426469974370003`*^9, 3.442648796796*^9, 3.4426507367019997`*^9, 
   3.442825265666*^9, 3.4428308086549997`*^9, 3.442855038398*^9, 
   3.44869680515625*^9, 3.448699456453125*^9, 3.448705381875*^9, 
   3.448709286421875*^9, 3.448709567765625*^9, 3.448777254375*^9, 
   3.448777543*^9, 3.448777584640625*^9, 3.44878388421875*^9, 
   3.448957754890625*^9, 3.44895845*^9, 3.44895853878125*^9, 3.4489586555*^9, 
   3.448959137890625*^9, 3.44895922859375*^9, 3.448959296140625*^9, 
   3.448959347859375*^9, 3.448959402546875*^9, 3.448959450578125*^9, 
   3.448961048296875*^9, 3.449297179296875*^9, 3.449297291859375*^9, 
   3.44929745990625*^9, 3.4492975469375*^9, 3.44929763371875*^9, 
   3.44929772021875*^9, 3.4502364860625*^9, 3.450236998734375*^9, 
   3.450237111125*^9, 3.45023738934375*^9, 3.45023750596875*^9, 
   3.45023781053125*^9, 3.45023792778125*^9, 3.450238111203125*^9, 
   3.450238354625*^9, 3.450238505046875*^9, 3.450238640234375*^9, 
   3.450239148796875*^9, 3.4502392214375*^9, 3.45023937978125*^9, 
   3.45024244125*^9, 3.450242642953125*^9, 3.45024276134375*^9, 
   3.450242881421875*^9, {3.450242949625*^9, 3.450242956546875*^9}, 
   3.45024301515625*^9, 3.450243082203125*^9, 3.450243124984375*^9, 
   3.450243180296875*^9, 3.450243886015625*^9, 3.450243946953125*^9, 
   3.450244034859375*^9, 3.450244114890625*^9, 3.450415010671875*^9, 
   3.450415175609375*^9, 3.450415313703125*^9, 3.450416272328125*^9, 
   3.45041636303125*^9, 3.4724579362777*^9, 3.4724583555767*^9, 
   3.501563213*^9, 3.5015637273125*^9, 3.50156385809375*^9, 
   3.501563926734375*^9, 3.5015641198125*^9, 3.501564262703125*^9, 
   3.501564332671875*^9, 3.501564435421875*^9, 3.5015644939375*^9, 
   3.50156457759375*^9, 3.5015659859375*^9, 3.501566835109375*^9, 
   3.501567589140625*^9, 3.501567750328125*^9, 3.501567815734375*^9, 
   3.501567999703125*^9, 3.5015680718125*^9, 3.501568318828125*^9, 
   3.5015684084375*^9, 3.501568592453125*^9, 3.50156883040625*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{"putlist", ">>>", 
  RowBox[{"(", 
   RowBox[{"$WD", "<>", "\"\<\\\\result.dat\>\""}], 
   ")"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "Rm", ",", "kappa", ",", "gamma", ",", "Fr", ",", "Coriolis", ",", 
     "shift", ",", "maxvx", ",", "dvx", ",", "maxvy", ",", "dvy", ",", 
     "maxvz", ",", "dvz", ",", "mqvx", ",", "dqvx", ",", "mqvy", ",", "dqvy", 
     ",", "mqvz", ",", "dqvz", ",", "\[Psi]", ",", "\[Psi]2", ",", 
     "\[Psi]1"}], "}"}], "=."}], ";"}]}], "Input",
 CellChangeTimes->{{3.4199215269560003`*^9, 3.419921590348*^9}, {
   3.419922437899*^9, 3.41992244398*^9}, {3.420425012083*^9, 
   3.42042502059*^9}, {3.420425061116*^9, 3.420425063632*^9}, {
   3.442504368094*^9, 3.442504387429*^9}, 3.44250518387*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:0410\:043d\:0430\:043b\:0438\:0437 \:0437\:0430\:043f\:0438\:0441\
\:0435\:0439", "Section"],

Cell[CellGroupData[{

Cell["\:0424\:0443\:043d\:043a\:0446\:0438\:0438", "Subsection"],

Cell[BoxData[
 RowBox[{"UpdateData", ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", "}"}], ",", 
    RowBox[{
     RowBox[{"Print", "[", 
      RowBox[{"fields", "=", 
       RowBox[{"Module", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"res", ",", "stm"}], "}"}], ",", 
         RowBox[{
          RowBox[{"res", "=", 
           RowBox[{"ReadList", "[", 
            RowBox[{
             RowBox[{"stm", "=", 
              RowBox[{"StringToStream", "[", 
               RowBox[{"First", "[", 
                RowBox[{"ReadList", "[", 
                 RowBox[{"$WD", "<>", "\"\<\\\\result.dat\>\""}], "]"}], 
                "]"}], "]"}]}], ",", "Word", ",", 
             RowBox[{"WordSeparators", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{
               "\"\< \>\"", ",", "\"\<,\>\"", ",", "\"\<{\>\"", ",", 
                "\"\<}\>\""}], "}"}]}]}], "]"}]}], ";", 
          RowBox[{"Close", "[", "stm", "]"}], ";", "res"}]}], "]"}]}], "]"}], 
     ";", "\[IndentingNewLine]", 
     RowBox[{"all", "=", 
      RowBox[{"Select", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"Rest", "[", 
           RowBox[{"ReadList", "[", 
            RowBox[{"$WD", "<>", "\"\<\\\\result.dat\>\""}], "]"}], "]"}], "/.", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"a_", "+", 
             RowBox[{"b_", " ", "E"}]}], "\[Rule]", 
            RowBox[{"b", "*", 
             SuperscriptBox["10", "a"]}]}], "}"}]}], "/.", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"a_", "+", 
            RowBox[{"b_", " ", "e"}]}], "\[Rule]", 
           RowBox[{"b", "*", 
            SuperscriptBox["10", "a"]}]}], "}"}]}], ",", 
        RowBox[{
         RowBox[{"StringFreeQ", "[", 
          RowBox[{
           RowBox[{"Last", "[", "#", "]"}], ",", "\"\<wrong\>\""}], "]"}], 
         "&"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"Print", "[", 
      RowBox[{"\"\<Total:\>\"", ",", 
       RowBox[{"Length", "[", "all", "]"}], ",", "\"\< records\>\""}], "]"}], 
     ";"}]}], "]"}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.442830886568*^9, 3.4428309085550003`*^9}, {
  3.442833748884*^9, 3.4428337510360003`*^9}, {3.44869530665625*^9, 
  3.448695324046875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"MakeRule", "[", "el_", "]"}], ":=", 
   RowBox[{"MapThread", "[", 
    RowBox[{"Rule", ",", 
     RowBox[{"{", 
      RowBox[{"fields", ",", "el"}], "}"}]}], "]"}]}], ";"}]], "Input",
 InitializationCell->True],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"ShowDependance", "[", 
    RowBox[{"param_", ",", "funcs_", ",", 
     RowBox[{"conditions_List:", 
      RowBox[{"{", "}"}]}], ",", 
     RowBox[{"viv_:", "True"}]}], "]"}], ":=", 
   RowBox[{"Block", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"allbut", "=", 
        RowBox[{"GetResults", "[", 
         RowBox[{"conditions", ",", "viv"}], "]"}]}], ",", "dep", ",", 
       "deplist", ",", "numpar", ",", "othern", ",", "otherv"}], "}"}], ",", 
     RowBox[{
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"FreeQ", "[", 
         RowBox[{
          RowBox[{"Drop", "[", 
           RowBox[{"fields", ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"indepkol", "+", "1"}], ",", 
              RowBox[{"-", "2"}]}], "}"}]}], "]"}], ",", "param"}], "]"}], 
        ",", 
        RowBox[{
         RowBox[{"Print", "[", "\"\<Wrong parameter\>\"", "]"}], ";", 
         RowBox[{"Return", "[", "]"}]}]}], "]"}], ";", 
      RowBox[{"numpar", "=", 
       RowBox[{"First", "[", 
        RowBox[{"Flatten", "[", 
         RowBox[{"Position", "[", 
          RowBox[{"fields", ",", "param"}], "]"}], "]"}], "]"}]}], ";", 
      RowBox[{"othern", "=", 
       RowBox[{"Complement", "[", 
        RowBox[{
         RowBox[{"Join", "[", 
          RowBox[{
           RowBox[{"Range", "[", 
            RowBox[{"4", ",", 
             RowBox[{
              RowBox[{"Length", "[", "fields", "]"}], "-", "depkol", "-", 
              "1"}]}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"Length", "[", "fields", "]"}], "}"}]}], "]"}], ",", 
         RowBox[{"{", "numpar", "}"}]}], "]"}]}], ";", 
      RowBox[{"If", "[", 
       RowBox[{"viv", ",", 
        RowBox[{"Print", "[", 
         RowBox[{"\"\<All such parameters=\>\"", ",", 
          RowBox[{"Union", "[", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{
              "#1", "\[LeftDoubleBracket]", "numpar", 
               "\[RightDoubleBracket]"}], "&"}], ")"}], "/@", "allbut"}], 
           "]"}]}], "]"}]}], "]"}], ";", 
      RowBox[{"dep", "=", 
       RowBox[{"First", "[", 
        RowBox[{"Rest", "[", 
         RowBox[{"Reap", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"Sow", "[", 
               RowBox[{"#1", ",", 
                RowBox[{"NotList", "@@", 
                 RowBox[{
                 "#1", "\[LeftDoubleBracket]", "othern", 
                  "\[RightDoubleBracket]"}]}]}], "]"}], "&"}], ")"}], "/@", 
            RowBox[{"Sort", "[", 
             RowBox[{"allbut", ",", 
              RowBox[{
               RowBox[{
                RowBox[{"N", "[", 
                 RowBox[{
                 "#1", "\[LeftDoubleBracket]", "numpar", 
                  "\[RightDoubleBracket]"}], "]"}], "<", 
                RowBox[{"N", "[", 
                 RowBox[{
                 "#2", "\[LeftDoubleBracket]", "numpar", 
                  "\[RightDoubleBracket]"}], "]"}]}], "&"}]}], "]"}]}], ",", 
           "_", ",", "f"}], "]"}], "]"}], "]"}]}], ";", 
      RowBox[{"dep", "=", 
       RowBox[{"Select", "[", 
        RowBox[{"dep", ",", 
         RowBox[{
          RowBox[{
           RowBox[{"Length", "[", 
            RowBox[{"Last", "[", "#1", "]"}], "]"}], ">", "1"}], "&"}]}], 
        "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{"If", "[", 
         RowBox[{"viv", ",", 
          RowBox[{"Print", "[", 
           RowBox[{"\"\<dep=\>\"", ",", "dep"}], "]"}]}], "]"}], ";"}], 
       "*)"}], "\[IndentingNewLine]", 
      RowBox[{"otherv", "=", 
       RowBox[{"Drop", "[", 
        RowBox[{
         RowBox[{"Drop", "[", 
          RowBox[{
           RowBox[{"Drop", "[", 
            RowBox[{"fields", ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"indepkol", "+", "1"}], ",", 
               RowBox[{"-", "2"}]}], "}"}]}], "]"}], ",", 
           RowBox[{"{", "numpar", "}"}]}], "]"}], ",", "3"}], "]"}]}], ";", 
      RowBox[{"If", "[", 
       RowBox[{"viv", ",", 
        RowBox[{"Print", "[", "otherv", "]"}]}], "]"}], ";", 
      RowBox[{"nom", "=", "0"}], ";", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"Length", "[", "dep", "]"}], "\[Equal]", "0"}], ",", 
        RowBox[{
         RowBox[{"Print", "[", "\"\<Data was not found\>\"", "]"}], ";", 
         RowBox[{"Return", "[", "]"}]}]}], "]"}], ";", 
      RowBox[{"If", "[", 
       RowBox[{"viv", ",", 
        RowBox[{
        "Print", "[", "\"\<Plots can be shown for parameters:\>\"", "]"}]}], 
       "]"}], ";", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"Print", "[", 
          RowBox[{"\"\<\:2116\>\"", ",", 
           RowBox[{"++", "nom"}], ",", "\"\<:\>\"", ",", 
           RowBox[{"MapThread", "[", 
            RowBox[{"Rule", ",", 
             RowBox[{"{", 
              RowBox[{"otherv", ",", 
               RowBox[{"List", "@@", 
                RowBox[{"First", "[", "#1", "]"}]}]}], "}"}]}], "]"}], ",", 
           "\"\<, number of points=\>\"", ",", 
           RowBox[{"Length", "[", 
            RowBox[{"Last", "[", "#1", "]"}], "]"}]}], "]"}], "&"}], ")"}], "/@",
        "dep"}], ";", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"Length", "[", "dep", "]"}], ">", "1"}], ",", 
        RowBox[{"nom", "=", 
         RowBox[{
         "Input", "[", 
          "\"\<\:0412\:0432\:0435\:0434\:0438\:0442\:0435 \:043d\:043e\:043c\
\:0435\:0440 \:0436\:0435\:043b\:0430\:0435\:043c\:043e\:0439 \:0437\:0430\
\:0432\:0438\:0441\:0438\:043c\:043e\:0441\:0442\:0438\>\"", "]"}]}], ",", 
        RowBox[{"nom", "=", "1"}]}], "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"If", "[", 
       RowBox[{"viv", ",", 
        RowBox[{"Print", "[", 
         RowBox[{"\"\<So constant parameters are:\\t\>\"", ",", 
          RowBox[{"Thread", "[", 
           RowBox[{"otherv", "\[Rule]", 
            RowBox[{"List", "@@", 
             RowBox[{"First", "[", 
              RowBox[{
              "dep", "\[LeftDoubleBracket]", "nom", "\[RightDoubleBracket]"}],
               "]"}]}]}], "]"}]}], "]"}]}], "]"}], ";", 
      RowBox[{"deplist", "=", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"#1", ",", 
            RowBox[{"\"\<\[Delta]\>\"", "<>", "#1"}], ",", 
            RowBox[{"\"\< \>\"", "<>", "#1"}]}], "}"}], "&"}], ")"}], "/@", 
        RowBox[{"Flatten", "[", 
         RowBox[{"{", "funcs", "}"}], "]"}]}]}], ";", 
      RowBox[{"pts", "=", 
       RowBox[{
        RowBox[{"Join", "[", 
         RowBox[{
          RowBox[{"{", "param", "}"}], ",", 
          RowBox[{"RotateRight", "/@", "deplist"}], ",", 
          RowBox[{"{", "\"\<comment\>\"", "}"}]}], "]"}], "/.", 
        "\[InvisibleSpace]", 
        RowBox[{"MakeRule", "/@", 
         RowBox[{"Last", "[", 
          RowBox[{
          "dep", "\[LeftDoubleBracket]", "nom", "\[RightDoubleBracket]"}], 
          "]"}]}]}]}], ";", 
      RowBox[{"pts", "=", 
       RowBox[{
        RowBox[{"Function", "[", 
         RowBox[{"l", ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{
                   "#1", "\[LeftDoubleBracket]", "1", 
                    "\[RightDoubleBracket]"}], ",", 
                   RowBox[{
                   "#1", "\[LeftDoubleBracket]", "2", 
                    "\[RightDoubleBracket]"}]}], "}"}], ",", 
                 RowBox[{"ErrorBar", "[", 
                  RowBox[{
                  "#1", "\[LeftDoubleBracket]", "3", 
                   "\[RightDoubleBracket]"}], "]"}]}], "}"}], "&"}], ")"}], "/@", 
             RowBox[{"Flatten", "/@", 
              RowBox[{"Transpose", "[", 
               RowBox[{"Join", "[", 
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{"First", "/@", "pts"}], "}"}], ",", 
                 RowBox[{"{", "l", "}"}]}], "]"}], "]"}]}]}], ",", 
            RowBox[{"l", "\[LeftDoubleBracket]", 
             RowBox[{"1", ",", 
              RowBox[{"-", "1"}]}], "\[RightDoubleBracket]"}]}], "}"}]}], 
         "]"}], "/@", 
        RowBox[{"Transpose", "[", 
         RowBox[{"deplist", "/.", "\[InvisibleSpace]", 
          RowBox[{"MakeRule", "/@", 
           RowBox[{"Last", "[", 
            RowBox[{
            "dep", "\[LeftDoubleBracket]", "nom", "\[RightDoubleBracket]"}], 
            "]"}]}]}], "]"}]}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"pts", "=", 
       RowBox[{
        RowBox[{"Join", "[", 
         RowBox[{
          RowBox[{"{", "param", "}"}], ",", "deplist", ",", 
          RowBox[{"{", "\"\<comment\>\"", "}"}]}], "]"}], "/.", 
        "\[InvisibleSpace]", 
        RowBox[{"MakeRule", "/@", 
         RowBox[{"Last", "[", 
          RowBox[{
          "dep", "\[LeftDoubleBracket]", "nom", "\[RightDoubleBracket]"}], 
          "]"}]}]}]}], ";", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"param", "\[NotEqual]", 
           RowBox[{"Last", "[", "fields", "]"}]}], ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"ListPlot", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"First", "[", "#1", "]"}], "}"}], ",", 
               RowBox[{"AxesLabel", "\[Rule]", 
                RowBox[{"{", 
                 RowBox[{"param", ",", 
                  RowBox[{"Last", "[", "#1", "]"}]}], "}"}]}], ",", 
               RowBox[{"Axes", "\[Rule]", "True"}], ",", 
               RowBox[{"Frame", "\[Rule]", "False"}], ",", 
               RowBox[{"PlotLabel", "\[Rule]", 
                RowBox[{"Last", "[", "#1", "]"}]}], ",", 
               RowBox[{"PlotMarkers", "\[Rule]", 
                RowBox[{"{", "\[FilledSquare]", "}"}]}]}], "]"}], "&"}], 
            ")"}], "/@", "pts"}]}], "]"}], ";"}], "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"param", "\[NotEqual]", 
         RowBox[{"Last", "[", "fields", "]"}]}], ",", 
        RowBox[{
         RowBox[{
          RowBox[{"ErrorListPlot", "[", 
           RowBox[{
            RowBox[{"MapThread", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{"#1", ",", "#2"}], "}"}], ",", 
                 RowBox[{"ErrorBar", "[", "#3", "]"}]}], "}"}], "&"}], ",", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"First", "/@", "pts"}], ",", 
                RowBox[{"#", "\[LeftDoubleBracket]", 
                 RowBox[{"All", ",", "1"}], "\[RightDoubleBracket]"}], ",", 
                RowBox[{"#", "\[LeftDoubleBracket]", 
                 RowBox[{"All", ",", "2"}], "\[RightDoubleBracket]"}]}], 
               "}"}]}], "]"}], ",", 
            RowBox[{"AxesLabel", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{"param", ",", 
               RowBox[{"#", "\[LeftDoubleBracket]", 
                RowBox[{
                 RowBox[{"-", "1"}], ",", 
                 RowBox[{"-", "1"}]}], "\[RightDoubleBracket]"}]}], "}"}]}], 
            ",", 
            RowBox[{"PlotLabel", "\[Rule]", 
             RowBox[{
              RowBox[{"#", "\[LeftDoubleBracket]", 
               RowBox[{
                RowBox[{"-", "1"}], ",", 
                RowBox[{"-", "1"}]}], "\[RightDoubleBracket]"}], "<>", 
              "\"\<(\>\"", "<>", "param", "<>", "\"\<)\>\""}]}], ",", 
            RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], "&"}], "/@", 
         RowBox[{"Transpose", "[", 
          RowBox[{"pts", "[", 
           RowBox[{"[", 
            RowBox[{"All", ",", 
             RowBox[{"2", ";;", 
              RowBox[{"-", "2"}]}]}], "]"}], "]"}], "]"}]}]}], 
       "\[IndentingNewLine]", "]"}]}]}], "\[IndentingNewLine]", "]"}]}], 
  ";"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.408471245683534*^9, 3.408471268514534*^9}, 
   3.408472049016534*^9, {3.4196714866730003`*^9, 3.419671488013*^9}, {
   3.419671591191*^9, 3.419671609153*^9}, {3.419671640376*^9, 
   3.4196716701140003`*^9}, 3.4196736361949997`*^9, {3.419673784781*^9, 
   3.4196737865629997`*^9}, {3.419673970873*^9, 3.419673985361*^9}, 
   3.4196761381949997`*^9, 3.419750054462*^9, {3.50606623815625*^9, 
   3.50606626103125*^9}, {3.506066322203125*^9, 3.506066365140625*^9}, {
   3.50606645253125*^9, 3.5060664528125*^9}, {3.506066489265625*^9, 
   3.506066491765625*^9}, {3.6017426401955233`*^9, 3.601742669984586*^9}, {
   3.6017502963830233`*^9, 3.6017502995900545`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"ShowDependanceMod", "[", 
    RowBox[{"param_", ",", "funcs_", ",", 
     RowBox[{"conditions_List:", 
      RowBox[{"{", "}"}]}]}], "]"}], ":=", 
   RowBox[{"Block", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"allbut", "=", 
        RowBox[{"GetResults", "[", "conditions", "]"}]}], ",", 
       RowBox[{"(*", 
        RowBox[{"dep", ",", "deppfin", ","}], "*)"}], "deplist", ",", 
       "numpar", ",", "othern", ",", "otherv"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"numpar", "=", 
       RowBox[{"First", "[", 
        RowBox[{"Flatten", "[", 
         RowBox[{"Position", "[", 
          RowBox[{"fields", ",", "param"}], "]"}], "]"}], "]"}]}], ";", 
      RowBox[{"othern", "=", 
       RowBox[{"Complement", "[", 
        RowBox[{
         RowBox[{"Join", "[", 
          RowBox[{
           RowBox[{"Range", "[", 
            RowBox[{"4", ",", 
             RowBox[{
              RowBox[{"Length", "[", "fields", "]"}], "-", "depkol", "-", 
              "1"}]}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"Length", "[", "fields", "]"}], "}"}]}], "]"}], ",", 
         RowBox[{"{", "numpar", "}"}]}], "]"}]}], ";", 
      RowBox[{"dep", "=", 
       RowBox[{"First", "[", 
        RowBox[{"Rest", "[", 
         RowBox[{"Reap", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"Sow", "[", 
               RowBox[{"#1", ",", 
                RowBox[{"NotList", "@@", 
                 RowBox[{
                 "#1", "\[LeftDoubleBracket]", "othern", 
                  "\[RightDoubleBracket]"}]}]}], "]"}], "&"}], ")"}], "/@", 
            RowBox[{"Sort", "[", 
             RowBox[{"allbut", ",", 
              RowBox[{
               RowBox[{
                RowBox[{"N", "[", 
                 RowBox[{
                 "#1", "\[LeftDoubleBracket]", "numpar", 
                  "\[RightDoubleBracket]"}], "]"}], "<", 
                RowBox[{"N", "[", 
                 RowBox[{
                 "#2", "\[LeftDoubleBracket]", "numpar", 
                  "\[RightDoubleBracket]"}], "]"}]}], "&"}]}], "]"}]}], ",", 
           "_", ",", "f"}], "]"}], "]"}], "]"}]}], ";", 
      RowBox[{"dep", "=", 
       RowBox[{"Select", "[", 
        RowBox[{"dep", ",", 
         RowBox[{
          RowBox[{
           RowBox[{"Length", "[", 
            RowBox[{"Last", "[", "#1", "]"}], "]"}], ">", "1"}], "&"}]}], 
        "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"otherv", "=", 
       RowBox[{"Drop", "[", 
        RowBox[{
         RowBox[{"Drop", "[", 
          RowBox[{
           RowBox[{"Drop", "[", 
            RowBox[{"fields", ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"indepkol", "+", "1"}], ",", 
               RowBox[{"-", "2"}]}], "}"}]}], "]"}], ",", 
           RowBox[{"{", "numpar", "}"}]}], "]"}], ",", "3"}], "]"}]}], ";", 
      RowBox[{"nom", "=", "0"}], ";", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"Length", "[", "dep", "]"}], "\[Equal]", "0"}], ",", 
        RowBox[{
         RowBox[{"Print", "[", "\"\<Data was not found\>\"", "]"}], ";", 
         RowBox[{"Return", "[", "]"}]}]}], "]"}], ";", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"Print", "[", 
          RowBox[{"\"\<\:2116\>\"", ",", 
           RowBox[{"++", "nom"}], ",", "\"\<:\>\"", ",", 
           RowBox[{"MapThread", "[", 
            RowBox[{"Rule", ",", 
             RowBox[{"{", 
              RowBox[{"otherv", ",", 
               RowBox[{"List", "@@", 
                RowBox[{"First", "[", "#1", "]"}]}]}], "}"}]}], "]"}], ",", 
           "\"\<, number of points=\>\"", ",", 
           RowBox[{"Length", "[", 
            RowBox[{"Last", "[", "#1", "]"}], "]"}]}], "]"}], "&"}], ")"}], "/@",
        "dep"}], ";", "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{"depfin", "=", 
         RowBox[{"dep", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], ";", " ", 
        RowBox[{
        "\:0422\:0443\:043f\:043e\:0439", " ", 
         "\:0432\:044b\:0431\:043e\:0440", " ", 
         "\:043f\:0435\:0440\:0432\:043e\:0433\:043e", " ", 
         RowBox[{
         "\:043d\:0430\:0431\:043e\:0440\:0430", ".", " ", 
          "\:041d\:0430\:0434\:043e"}], " ", "\:0431\:044b", " ", 
         "\:043d\:0430\:0443\:0447\:0438\:0442\:044c\:0441\:044f", " ", 
         "\:0432\:044b\:0431\:0438\:0440\:0430\:0442\:044c", " ", "\:0441", 
         " ", "\:043d\:0430\:0438\:043b\:0443\:0447\:0448\:0435\:0439", " ", 
         "\:0442\:043e\:0447\:043d\:043e\:0441\:0442\:044c\:044e"}]}], "*)"}],
       "\[IndentingNewLine]", 
      RowBox[{"depfin", "=", 
       RowBox[{"Prepend", "[", 
        RowBox[{
         RowBox[{"f", "[", 
          RowBox[{"Join", "@@", 
           RowBox[{"(", 
            RowBox[{"First", "/@", 
             RowBox[{"Rest", "/@", "dep"}]}], ")"}]}], "]"}], ",", 
         RowBox[{"dep", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}]}], ";", 
      RowBox[{"(*", 
       RowBox[{
       "\:041e\:0431\:044a\:0435\:0434\:0438\:043d\:0435\:043d\:0438\:0435", 
        " ", "\:0432\:0441\:0435\:0445", " ", 
        "\:0434\:0430\:043d\:043d\:044b\:0445"}], "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"deplist", "=", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"#1", ",", 
            RowBox[{"\"\<\[Delta]\>\"", "<>", "#1"}], ",", 
            RowBox[{"\"\< \>\"", "<>", "#1"}]}], "}"}], "&"}], ")"}], "/@", 
        RowBox[{"Flatten", "[", 
         RowBox[{"{", "funcs", "}"}], "]"}]}]}], ";", 
      RowBox[{"pts", "=", 
       RowBox[{
        RowBox[{"Join", "[", 
         RowBox[{
          RowBox[{"{", "param", "}"}], ",", 
          RowBox[{"RotateRight", "/@", "deplist"}], ",", 
          RowBox[{"{", "\"\<comment\>\"", "}"}]}], "]"}], "/.", 
        "\[InvisibleSpace]", 
        RowBox[{"MakeRule", "/@", 
         RowBox[{"Last", "[", "depfin", "]"}]}]}]}], ";", 
      RowBox[{"pts", "=", 
       RowBox[{
        RowBox[{"Function", "[", 
         RowBox[{"l", ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{
                   "#1", "\[LeftDoubleBracket]", "1", 
                    "\[RightDoubleBracket]"}], ",", 
                   RowBox[{
                   "#1", "\[LeftDoubleBracket]", "2", 
                    "\[RightDoubleBracket]"}]}], "}"}], ",", 
                 RowBox[{"ErrorBar", "[", 
                  RowBox[{
                  "#1", "\[LeftDoubleBracket]", "3", 
                   "\[RightDoubleBracket]"}], "]"}]}], "}"}], "&"}], ")"}], "/@", 
             RowBox[{"Flatten", "/@", 
              RowBox[{"Transpose", "[", 
               RowBox[{"Join", "[", 
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{"First", "/@", "pts"}], "}"}], ",", 
                 RowBox[{"{", "l", "}"}]}], "]"}], "]"}]}]}], ",", 
            RowBox[{"l", "\[LeftDoubleBracket]", 
             RowBox[{"1", ",", 
              RowBox[{"-", "1"}]}], "\[RightDoubleBracket]"}]}], "}"}]}], 
         "]"}], "/@", 
        RowBox[{"Transpose", "[", 
         RowBox[{"deplist", "/.", "\[InvisibleSpace]", 
          RowBox[{"MakeRule", "/@", 
           RowBox[{"Last", "[", "depfin", "]"}]}]}], "]"}]}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"pts", "=", 
       RowBox[{
        RowBox[{"Join", "[", 
         RowBox[{
          RowBox[{"{", "param", "}"}], ",", "deplist", ",", 
          RowBox[{"{", "\"\<comment\>\"", "}"}]}], "]"}], "/.", 
        "\[InvisibleSpace]", 
        RowBox[{"MakeRule", "/@", 
         RowBox[{"Last", "[", "depfin", "]"}]}]}]}], ";", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"param", "\[NotEqual]", 
           RowBox[{"Last", "[", "fields", "]"}]}], ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"ListPlot", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"First", "[", "#1", "]"}], "}"}], ",", 
               RowBox[{"AxesLabel", "\[Rule]", 
                RowBox[{"{", 
                 RowBox[{"param", ",", 
                  RowBox[{"Last", "[", "#1", "]"}]}], "}"}]}], ",", 
               RowBox[{"Axes", "\[Rule]", "True"}], ",", 
               RowBox[{"Frame", "\[Rule]", "False"}], ",", 
               RowBox[{"PlotLabel", "\[Rule]", 
                RowBox[{"Last", "[", "#1", "]"}]}], ",", 
               RowBox[{"PlotMarkers", "\[Rule]", 
                RowBox[{"{", "\[FilledSquare]", "}"}]}]}], "]"}], "&"}], 
            ")"}], "/@", "pts"}]}], "]"}], ";"}], "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"param", "\[NotEqual]", 
         RowBox[{"Last", "[", "fields", "]"}]}], ",", 
        RowBox[{
         RowBox[{
          RowBox[{"Sow", "[", 
           RowBox[{
            RowBox[{"ErrorListPlot", "[", 
             RowBox[{
              RowBox[{"MapThread", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"{", 
                    RowBox[{"#1", ",", "#2"}], "}"}], ",", 
                   RowBox[{"ErrorBar", "[", "#3", "]"}]}], "}"}], "&"}], ",", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"First", "/@", "pts"}], ",", 
                  RowBox[{"#", "\[LeftDoubleBracket]", 
                   RowBox[{"All", ",", "1"}], "\[RightDoubleBracket]"}], ",", 
                  RowBox[{"#", "\[LeftDoubleBracket]", 
                   RowBox[{"All", ",", "2"}], "\[RightDoubleBracket]"}]}], 
                 "}"}]}], "]"}], ",", 
              RowBox[{"AxesLabel", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"param", ",", 
                 RowBox[{"#", "\[LeftDoubleBracket]", 
                  RowBox[{
                   RowBox[{"-", "1"}], ",", 
                   RowBox[{"-", "1"}]}], "\[RightDoubleBracket]"}]}], "}"}]}],
               ",", 
              RowBox[{"PlotLabel", "\[Rule]", 
               RowBox[{
                RowBox[{"#", "\[LeftDoubleBracket]", 
                 RowBox[{
                  RowBox[{"-", "1"}], ",", 
                  RowBox[{"-", "1"}]}], "\[RightDoubleBracket]"}], "<>", 
                "\"\<(\>\"", "<>", "param", "<>", "\"\<)\>\""}]}], ",", 
              RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], ",", 
            RowBox[{"StringDrop", "[", 
             RowBox[{
              RowBox[{"#", "\[LeftDoubleBracket]", 
               RowBox[{
                RowBox[{"-", "1"}], ",", 
                RowBox[{"-", "1"}]}], "\[RightDoubleBracket]"}], ",", "1"}], 
             "]"}]}], "]"}], "&"}], "/@", 
         RowBox[{"Transpose", "[", 
          RowBox[{"pts", "[", 
           RowBox[{"[", 
            RowBox[{"All", ",", 
             RowBox[{"2", ";;", 
              RowBox[{"-", "2"}]}]}], "]"}], "]"}], "]"}]}]}], 
       "\[IndentingNewLine]", "]"}]}]}], "\[IndentingNewLine]", "]"}]}], 
  ";"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.408471245683534*^9, 3.408471268514534*^9}, 
   3.408472049016534*^9, {3.4196714866730003`*^9, 3.419671488013*^9}, {
   3.419671591191*^9, 3.419671609153*^9}, {3.419671640376*^9, 
   3.4196716701140003`*^9}, 3.4196736361949997`*^9, {3.419673784781*^9, 
   3.4196737865629997`*^9}, {3.419673970873*^9, 3.419673985361*^9}, 
   3.4196761381949997`*^9, 3.419750054462*^9, {3.50606623815625*^9, 
   3.50606626103125*^9}, {3.506066322203125*^9, 3.506066365140625*^9}, {
   3.50606645253125*^9, 3.5060664528125*^9}, {3.506066489265625*^9, 
   3.506066491765625*^9}, {3.506148905189*^9, 3.506149039954625*^9}, {
   3.507357906794125*^9, 3.50735791143475*^9}, 3.507357981481625*^9, {
   3.50735808949725*^9, 3.5073581126535*^9}, {3.507534805341*^9, 
   3.507534809950375*^9}, {3.50753484299725*^9, 3.507534843825375*^9}, {
   3.6017421479455233`*^9, 3.601742212292203*^9}, {3.601742806095914*^9, 
   3.601742809488492*^9}, {3.6017462141476717`*^9, 3.601746214330289*^9}, 
   3.601749247332242*^9, {3.6017494069093904`*^9, 3.601749424720914*^9}, {
   3.601749499292203*^9, 3.6017495138263826`*^9}, {3.601749704747281*^9, 
   3.6017497359113436`*^9}, {3.601750042408414*^9, 3.6017500561457186`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"GetResults", "[", 
    RowBox[{
     RowBox[{"conditions_List:", 
      RowBox[{"{", "}"}]}], ",", 
     RowBox[{"viv_:", "False"}]}], "]"}], ":=", 
   RowBox[{"Block", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"pattern", ",", 
       RowBox[{"rules", "=", 
        RowBox[{"Union", "[", 
         RowBox[{"Select", "[", 
          RowBox[{"conditions", ",", 
           RowBox[{
            RowBox[{
             RowBox[{"Head", "[", "#", "]"}], "\[Equal]", "Rule"}], "&"}]}], 
          "]"}], "]"}]}], ",", "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{"Unequal", " ", 
         RowBox[{"doesn", "'"}], "t", " ", "work", " ", "always"}], "*)"}], 
       "\[IndentingNewLine]", 
       RowBox[{"ineqs", "=", 
        RowBox[{"And", "@@", 
         RowBox[{"Flatten", "[", 
          RowBox[{"Select", "[", 
           RowBox[{"conditions", ",", 
            RowBox[{
             RowBox[{
              RowBox[{"MemberQ", "[", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{
                 "Less", ",", "LessEqual", ",", "Greater", ",", 
                  "GreaterEqual", ",", "Unequal"}], "}"}], ",", 
                RowBox[{"Head", "[", "#", "]"}]}], "]"}], "\[Or]", 
              RowBox[{"#", "\[Equal]", "False"}]}], "&"}]}], "]"}], 
          "]"}]}]}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"MatchesQ", "[", "el_", "]"}], ":=", 
       RowBox[{"Module", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"mr", "=", 
           RowBox[{"MakeRule", "[", "el", "]"}]}], "}"}], ",", 
         RowBox[{
          RowBox[{"Simplify", "[", 
           RowBox[{"ineqs", "/.", "mr"}], "]"}], "\[And]", 
          RowBox[{
           RowBox[{"Complement", "[", 
            RowBox[{"rules", ",", "mr"}], "]"}], "\[Equal]", 
           RowBox[{"{", "}"}]}]}]}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"If", "[", 
       RowBox[{"viv", ",", 
        RowBox[{"Print", "[", 
         RowBox[{"\"\<All data matches (\>\"", ",", 
          RowBox[{"Simplify", "[", "ineqs", "]"}], ",", "\"\<)\>\"", ",", 
          RowBox[{"Sequence", "@@", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"\"\<&&(\>\"", "<>", 
               RowBox[{"First", "[", "#", "]"}], "<>", "\"\<=\>\"", "<>", 
               RowBox[{"ToString", "[", 
                RowBox[{"InputForm", "[", 
                 RowBox[{"Last", "[", "#", "]"}], "]"}], "]"}], "<>", 
               "\"\<)\>\""}], "&"}], "/@", "rules"}], ")"}]}], ",", 
          "\"\<:\>\""}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"Return", "[", 
       RowBox[{"Select", "[", 
        RowBox[{"all", ",", "MatchesQ"}], "]"}], "]"}], ";"}]}], 
    "\[IndentingNewLine]", "]"}]}], ";"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.506066413546875*^9, 3.506066426078125*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
    "\:042d\:0442\:043e\:0439", " ", 
     "\:0432\:0435\:0440\:0441\:0438\:0435\:0439", " ", 
     "\:043f\:043e\:043b\:044c\:0437\:043e\:0432\:0430\:0442\:044c\:0441\:044f\
", " ", "\:0442\:043e\:043b\:044c\:043a\:043e", " ", "\:0434\:043b\:044f", 
     " ", "\:0441\:043f\:0438\:0441\:043a\:0430"}], ",", 
    RowBox[{
    "\:0437\:0430\:0434\:0430\:044e\:0449\:0435\:0433\:043e", " ", 
     "\:043e\:0434\:043d\:043e\:0437\:043d\:0430\:0447\:043d\:0443\:044e", 
     " ", 
     RowBox[{
     "\:0437\:0430\:0432\:0438\:0441\:0438\:043c\:043e\:0441\:0442\:044c", 
      "!"}]}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"FilterWrong", "[", 
     RowBox[{"list_List", ",", "x_String", ",", "y_String"}], "]"}], ":=", 
    RowBox[{"Block", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"cands", ",", 
        RowBox[{"posx", "=", 
         RowBox[{"Position", "[", 
          RowBox[{"fields", ",", "x"}], "]"}]}], ",", 
        RowBox[{"posy", "=", 
         RowBox[{"Position", "[", 
          RowBox[{"fields", ",", "y"}], "]"}]}], ",", "badpars", ",", "bad", 
        ",", "good"}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Length", "[", "posx", "]"}], "<", "1"}], ",", 
         RowBox[{
          RowBox[{"Print", "[", 
           RowBox[{"\"\<Didn't find parameter \>\"", ",", "x"}], "]"}], ";", 
          RowBox[{"Return", "[", "$Failed", "]"}]}], ",", 
         RowBox[{"posx", "=", 
          RowBox[{"posx", "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "1"}], "]"}], "]"}]}]}], "]"}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Length", "[", "posy", "]"}], "<", "1"}], ",", 
         RowBox[{
          RowBox[{"Print", "[", 
           RowBox[{"\"\<Didn't find parameter \>\"", ",", "y"}], "]"}], ";", 
          RowBox[{"Return", "[", "$Failed", "]"}]}], ",", 
         RowBox[{"posy", "=", 
          RowBox[{"posy", "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "1"}], "]"}], "]"}]}]}], "]"}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"cands", "=", 
        RowBox[{"Select", "[", 
         RowBox[{"list", ",", 
          RowBox[{
           RowBox[{"StringFreeQ", "[", 
            RowBox[{
             RowBox[{"GetField", "[", 
              RowBox[{"#", ",", "\"\<comment\>\""}], "]"}], ",", 
             "\"\<wrong\>\""}], "]"}], "&"}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"cands", "=", 
        RowBox[{
         RowBox[{
          RowBox[{"GetFields", "[", 
           RowBox[{"#", ",", 
            RowBox[{"{", 
             RowBox[{"x", ",", "y", ",", 
              RowBox[{"\"\<\[Delta]\>\"", "<>", "y"}]}], "}"}]}], "]"}], 
          "&"}], "/@", "cands"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"good", "=", 
        RowBox[{"First", "/@", 
         RowBox[{"Select", "[", 
          RowBox[{
           RowBox[{"Tally", "[", 
            RowBox[{"cands", ",", 
             RowBox[{
              RowBox[{
               RowBox[{"First", "[", "#1", "]"}], "\[Equal]", 
               RowBox[{"First", "[", "#2", "]"}]}], "&"}]}], "]"}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{"Last", "[", "#", "]"}], "==", "1"}], "&"}]}], "]"}]}]}],
        ";", "\[IndentingNewLine]", 
       RowBox[{"Print", "[", " ", 
        RowBox[{
        "\"\<\:041f\:0430\:0440\:0430\:043c\:0435\:0442\:0440\:044b \:0432 \
\:0435\:0434\:0438\:043d\:0441\:0442\:0432\:0435\:043d\:043d\:043e\:043c \
\:0432\:0430\:0440\:0438\:0430\:043d\:0442\:0435: \>\"", ",", "good"}], "]"}],
        ";", "\[IndentingNewLine]", 
       RowBox[{"bad", "=", 
        RowBox[{"Select", "[", 
         RowBox[{
          RowBox[{"Tally", "[", 
           RowBox[{"cands", ",", 
            RowBox[{
             RowBox[{
              RowBox[{"First", "[", "#1", "]"}], "\[Equal]", 
              RowBox[{"First", "[", "#2", "]"}]}], "&"}]}], "]"}], ",", 
          RowBox[{
           RowBox[{
            RowBox[{"Last", "[", "#", "]"}], ">", "1"}], "&"}]}], "]"}]}], 
       ";", "\[IndentingNewLine]", 
       RowBox[{"badpars", "=", 
        RowBox[{"First", "/@", 
         RowBox[{"First", "/@", "bad"}]}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"Print", "[", 
        RowBox[{
        "\"\<\:041f\:0430\:0440\:0430\:043c\:0435\:0442\:0440\:044b \:043d\
\:0443\:0436\:0434\:0430\:044e\:0442\:0441\:044f \:0432 \:0432\:044b\:0431\
\:043e\:0440\:0435: \>\"", ",", "badpars"}], "]"}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"Print", "[", 
        RowBox[{
        "\"\<\:041e\:0442\:0444\:0438\:043b\:044c\:0442\:0440\:043e\:0432\
\:0430\:043d\:043e \>\"", ",", 
         RowBox[{
          RowBox[{"Total", "[", 
           RowBox[{"Last", "/@", "bad"}], "]"}], "-", 
          RowBox[{"Length", "[", "bad", "]"}]}], ",", 
         "\"\< \:0437\:0430\:043f\:0438\:0441\:0435\:0439 \:0441 \:0431\:043e\
\:043b\:044c\:0448\:0435\:0439 \:043f\:043e\:0433\:0440\:0435\:0448\:043d\
\:043e\:0441\:0442\:044c\:044e\>\""}], "]"}], ";", "\[IndentingNewLine]", 
       RowBox[{"SortBy", "[", 
        RowBox[{
         RowBox[{"Join", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"Function", "[", 
             RowBox[{"par", ",", 
              RowBox[{"First", "@", 
               RowBox[{"Select", "[", 
                RowBox[{"list", ",", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"#", "[", 
                    RowBox[{"[", "posx", "]"}], "]"}], "\[Equal]", 
                   RowBox[{"par", "[", 
                    RowBox[{"[", "1", "]"}], "]"}]}], "&"}]}], "]"}]}]}], 
             "]"}], "/@", "good"}], ",", 
           RowBox[{
            RowBox[{"Function", "[", 
             RowBox[{"par", ",", 
              RowBox[{"First", "@", 
               RowBox[{"SortBy", "[", 
                RowBox[{
                 RowBox[{"Select", "[", 
                  RowBox[{"list", ",", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"#", "[", 
                    RowBox[{"[", "posx", "]"}], "]"}], "\[Equal]", "par"}], 
                    "&"}]}], "]"}], ",", 
                 RowBox[{
                  RowBox[{"#", "[", 
                   RowBox[{"[", 
                    RowBox[{"posy", "+", "1"}], "]"}], "]"}], "&"}]}], 
                "]"}]}]}], "]"}], "/@", "badpars"}]}], "]"}], ",", 
         RowBox[{
          RowBox[{"#", "[", 
           RowBox[{"[", "posx", "]"}], "]"}], "&"}]}], "]"}]}]}], 
     "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
    "\:042d\:0442\:043e", " ", 
     "\:0443\:043d\:0438\:0432\:0435\:0440\:0441\:0430\:043b\:044c\:043d\:0430\
\:044f", " ", "\:0447\:0438\:0441\:0442\:043a\:0430"}], "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"FilterWrong", "[", 
     RowBox[{"list_List", ",", "y_String"}], "]"}], ":=", 
    RowBox[{"Block", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"cands", ",", 
        RowBox[{"posy", "=", 
         RowBox[{"Position", "[", 
          RowBox[{"fields", ",", "y"}], "]"}]}], ",", "badpars", ",", "bad", 
        ",", "good"}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Length", "[", "posy", "]"}], "<", "1"}], ",", 
         RowBox[{
          RowBox[{"Print", "[", 
           RowBox[{"\"\<Didn't find parameter \>\"", ",", "y"}], "]"}], ";", 
          RowBox[{"Return", "[", "$Failed", "]"}]}], ",", 
         RowBox[{"posy", "=", 
          RowBox[{"posy", "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "1"}], "]"}], "]"}]}]}], "]"}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"cands", "=", 
        RowBox[{"Select", "[", 
         RowBox[{"list", ",", 
          RowBox[{
           RowBox[{"StringFreeQ", "[", 
            RowBox[{
             RowBox[{"GetField", "[", 
              RowBox[{"#", ",", "\"\<comment\>\""}], "]"}], ",", 
             "\"\<wrong\>\""}], "]"}], "&"}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"cands", "=", 
        RowBox[{
         RowBox[{
          RowBox[{"Join", "[", 
           RowBox[{
            RowBox[{"Take", "[", 
             RowBox[{"#", ",", 
              RowBox[{"{", 
               RowBox[{"1", ",", "indepkol"}], "}"}]}], "]"}], ",", 
            RowBox[{"GetFields", "[", 
             RowBox[{"#", ",", 
              RowBox[{"{", 
               RowBox[{"y", ",", 
                RowBox[{"\"\<\[Delta]\>\"", "<>", "y"}]}], "}"}]}], "]"}]}], 
           "]"}], "&"}], "/@", "cands"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"good", "=", 
        RowBox[{
         RowBox[{
          RowBox[{"Take", "[", 
           RowBox[{
            RowBox[{"#", "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"5", ",", "indepkol"}], "}"}]}], "]"}], "&"}], "/@", 
         RowBox[{"Select", "[", 
          RowBox[{
           RowBox[{"Tally", "[", 
            RowBox[{"cands", ",", 
             RowBox[{
              RowBox[{
               RowBox[{"Take", "[", 
                RowBox[{"#1", ",", 
                 RowBox[{"{", 
                  RowBox[{"5", ",", "indepkol"}], "}"}]}], "]"}], "\[Equal]", 
               RowBox[{"Take", "[", 
                RowBox[{"#2", ",", 
                 RowBox[{"{", 
                  RowBox[{"5", ",", "indepkol"}], "}"}]}], "]"}]}], "&"}]}], 
            "]"}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{"Last", "[", "#", "]"}], "==", "1"}], "&"}]}], "]"}]}]}],
        ";", "\[IndentingNewLine]", 
       RowBox[{"Print", "[", " ", 
        RowBox[{
        "\"\<\:041f\:0430\:0440\:0430\:043c\:0435\:0442\:0440\:044b \:0432 \
\:0435\:0434\:0438\:043d\:0441\:0442\:0432\:0435\:043d\:043d\:043e\:043c \
\:0432\:0430\:0440\:0438\:0430\:043d\:0442\:0435: \>\"", ",", "good"}], "]"}],
        ";", "\[IndentingNewLine]", 
       RowBox[{"bad", "=", 
        RowBox[{"Select", "[", 
         RowBox[{
          RowBox[{"Tally", "[", 
           RowBox[{"cands", ",", 
            RowBox[{
             RowBox[{
              RowBox[{"Take", "[", 
               RowBox[{"#1", ",", 
                RowBox[{"{", 
                 RowBox[{"5", ",", "indepkol"}], "}"}]}], "]"}], "\[Equal]", 
              RowBox[{"Take", "[", 
               RowBox[{"#2", ",", 
                RowBox[{"{", 
                 RowBox[{"5", ",", "indepkol"}], "}"}]}], "]"}]}], "&"}]}], 
           "]"}], ",", 
          RowBox[{
           RowBox[{
            RowBox[{"Last", "[", "#", "]"}], ">", "1"}], "&"}]}], "]"}]}], 
       ";", "\[IndentingNewLine]", 
       RowBox[{"badpars", "=", 
        RowBox[{
         RowBox[{
          RowBox[{"Take", "[", 
           RowBox[{
            RowBox[{"#", "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"5", ",", "indepkol"}], "}"}]}], "]"}], "&"}], "/@", 
         "bad"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"Print", "[", 
        RowBox[{
        "\"\<\:041f\:0430\:0440\:0430\:043c\:0435\:0442\:0440\:044b \:043d\
\:0443\:0436\:0434\:0430\:044e\:0442\:0441\:044f \:0432 \:0432\:044b\:0431\
\:043e\:0440\:0435: \>\"", ",", "badpars"}], "]"}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"Print", "[", 
        RowBox[{
        "\"\<\:041e\:0442\:0444\:0438\:043b\:044c\:0442\:0440\:043e\:0432\
\:0430\:043d\:043e \>\"", ",", 
         RowBox[{
          RowBox[{"Total", "[", 
           RowBox[{"Last", "/@", "bad"}], "]"}], "-", 
          RowBox[{"Length", "[", "bad", "]"}]}], ",", 
         "\"\< \:0437\:0430\:043f\:0438\:0441\:0435\:0439 \:0441 \:0431\:043e\
\:043b\:044c\:0448\:0435\:0439 \:043f\:043e\:0433\:0440\:0435\:0448\:043d\
\:043e\:0441\:0442\:044c\:044e\>\""}], "]"}], ";", "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{
         "\:0421\:043d\:0430\:0447\:0430\:043b\:0430", " ", "\:043f\:043e", 
          " ", "\:0440\:0430\:0437\:043c\:0435\:0440\:0443", " ", 
          "\:0441\:0435\:0442\:043a\:0438"}], ",", " ", 
         RowBox[{
         "\:043f\:043e\:0442\:043e\:043c", " ", "\:043f\:043e", " ", 
          "\:043f\:043e\:0433\:0440\:0435\:0448\:043d\:043e\:0441\:0442\:0438\
"}], ",", " ", 
         RowBox[{
         "\:043f\:043e\:0442\:043e\:043c", " ", "\:043f\:043e", " ", 
          "\:0434\:0430\:0442\:0435"}]}], "*)"}], "\[IndentingNewLine]", 
       RowBox[{"SortBy", "[", 
        RowBox[{
         RowBox[{"Join", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"Function", "[", 
             RowBox[{"par", ",", 
              RowBox[{"First", "@", 
               RowBox[{"Select", "[", 
                RowBox[{"list", ",", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"Take", "[", 
                    RowBox[{"#", ",", 
                    RowBox[{"{", 
                    RowBox[{"5", ",", "indepkol"}], "}"}]}], "]"}], 
                   "\[Equal]", "par"}], "&"}]}], "]"}]}]}], "]"}], "/@", 
            "good"}], ",", 
           RowBox[{
            RowBox[{"Function", "[", 
             RowBox[{"par", ",", 
              RowBox[{"First", "@", 
               RowBox[{"SortBy", "[", 
                RowBox[{
                 RowBox[{"Select", "[", 
                  RowBox[{"list", ",", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"Take", "[", 
                    RowBox[{"#1", ",", 
                    RowBox[{"{", 
                    RowBox[{"5", ",", "indepkol"}], "}"}]}], "]"}], 
                    "\[Equal]", "par"}], "&"}]}], "]"}], ",", 
                 RowBox[{
                  RowBox[{"#", "[", 
                   RowBox[{"[", 
                    RowBox[{"posy", "+", "1"}], "]"}], "]"}], "&"}]}], 
                "]"}]}]}], "]"}], "/@", "badpars"}]}], "]"}], ",", 
         RowBox[{
          RowBox[{"Take", "[", 
           RowBox[{"#1", ",", "indepkol"}], "]"}], "&"}]}], "]"}]}]}], 
     "\[IndentingNewLine]", "]"}]}]}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.6266727773740234`*^9, 3.6266727940585938`*^9}, {
   3.6266730147158203`*^9, 3.626673046279297*^9}, {3.6303050393283725`*^9, 
   3.630305054527107*^9}, {3.630305653145303*^9, 3.630305837253631*^9}, {
   3.6303059376136737`*^9, 3.6303059999466333`*^9}, {3.630309288357684*^9, 
   3.6303093760642385`*^9}, {3.630633543312608*^9, 3.6306336444373918`*^9}, {
   3.630633891221507*^9, 3.6306339260575*^9}, {3.630633968062902*^9, 
   3.630634023951099*^9}, {3.6306340549988747`*^9, 3.630634060046163*^9}, {
   3.6306341473471565`*^9, 3.630634219777299*^9}, {3.6306342707992177`*^9, 
   3.6306343579962053`*^9}, 3.6306347798623343`*^9, {3.6306348243048763`*^9, 
   3.630634843895997*^9}, {3.6306355150433846`*^9, 3.630635565709282*^9}, {
   3.6306356239876156`*^9, 3.630635694459646*^9}, {3.630635746242608*^9, 
   3.6306357470486546`*^9}, {3.630635786848931*^9, 3.630635804855961*^9}, {
   3.630635873504887*^9, 3.630635883983486*^9}, {3.6306360167180786`*^9, 
   3.63063605223711*^9}, {3.6306371983816657`*^9, 3.6306372349537573`*^9}, {
   3.6306373955599437`*^9, 3.6306374224934845`*^9}, {3.630637478507688*^9, 
   3.630637479448742*^9}, {3.6306375456235266`*^9, 3.63063757155501*^9}, {
   3.6308234701228*^9, 3.6308234876458025`*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["\:0414\:0435\:0439\:0441\:0442\:0432\:0438\:044f", "Subsection"],

Cell[CellGroupData[{

Cell[BoxData["UpdateData"], "Input",
 CellChangeTimes->{{3.442514141017*^9, 3.442514141801*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"year\"\>", ",", "\<\"month\"\>", ",", "\<\"day\"\>", 
   ",", "\<\"Nxz\"\>", ",", "\<\"Re\"\>", ",", "\<\"r/R\"\>", 
   ",", "\<\"gamma\"\>", ",", "\<\"F(r)\"\>", ",", "\<\"Coriolis\"\>", 
   ",", "\<\"shift\"\>", ",", "\<\"mvx\"\>", ",", "\<\"\[Delta]mvx\"\>", 
   ",", "\<\"mvy\"\>", ",", "\<\"\[Delta]mvy\"\>", ",", "\<\"mvz\"\>", 
   ",", "\<\"\[Delta]mvz\"\>", ",", "\<\"Evx\"\>", ",", "\<\"\[Delta]Evx\"\>",
    ",", "\<\"Evy\"\>", ",", "\<\"\[Delta]Evy\"\>", ",", "\<\"Evz\"\>", 
   ",", "\<\"\[Delta]Evz\"\>", ",", "\<\"m\[Psi]\"\>", 
   ",", "\<\"\[Delta]m\[Psi]\"\>", ",", "\<\"comment\"\>"}], "}"}]], "Print",
 CellChangeTimes->{
  3.392212323524*^9, 3.408471047131534*^9, 3.419669213644*^9, 
   3.4196713869309998`*^9, 3.419771092303*^9, 3.4201769328929996`*^9, 
   3.426399207218*^9, 3.4263995051809998`*^9, {3.442505967998*^9, 
   3.442505992925*^9}, {3.442514142192*^9, 3.4425141499110003`*^9}, 
   3.442514257399*^9, 3.442514299336*^9, {3.4425676692200003`*^9, 
   3.442567678125*^9}, {3.442830858902*^9, 3.442830865869*^9}, {
   3.442830902993*^9, 3.442830913442*^9}, 3.442833690179*^9, {
   3.442833721604*^9, 3.442833732672*^9}, 3.445836930390625*^9, 3.44592891*^9,
    3.445944004094*^9, 3.448694726640625*^9, 3.44869533015625*^9, 
   3.44869684303125*^9, 3.4486982905625*^9, 3.44870691321875*^9, 
   3.448709639078125*^9, 3.44877725865625*^9, 3.4487776900625*^9, 
   3.448953476734375*^9, 3.448957758234375*^9, 3.448958470796875*^9, 
   3.4489586583125*^9, 3.448959453546875*^9, 3.448961120703125*^9, 
   3.449292114*^9, 3.449297862328125*^9, 3.450075392421875*^9, 
   3.450236275453125*^9, 3.450237157546875*^9, 3.450237208703125*^9, 
   3.450237828328125*^9, 3.450238102484375*^9, 3.450238500984375*^9, 
   3.450239059921875*^9, 3.4502408738125*^9, 3.45024327203125*^9, 
   3.4502441530625*^9, 3.450413506390625*^9, 3.450415013578125*^9, 
   3.450415317171875*^9, 3.450416375109375*^9, 3.4504316858125*^9, 
   3.451717368171875*^9, 3.451887204609375*^9, 3.4724577407327003`*^9, 
   3.4724583620647*^9, 3.5007987110625*^9, 3.50156073396875*^9, 
   3.501563228*^9, 3.50156380921875*^9, 3.501563967046875*^9, 
   3.50156412384375*^9, 3.501564335015625*^9, 3.50156449728125*^9, 
   3.501565988609375*^9, 3.501567878203125*^9, 3.501568321140625*^9, 
   3.5015728310625*^9, 3.5026127770515003`*^9, 3.50579580990625*^9, 
   3.505797107375*^9, 3.5060685709375*^9, 3.50623934378275*^9, 
   3.506239442142125*^9, 3.50632209465775*^9, 3.5063221447515*^9, 
   3.507266063427375*^9, 3.5072699290055*^9, 3.507270664833625*^9, 
   3.5072889050055*^9, 3.507347193731625*^9, 3.507535320325375*^9, 
   3.5080863278202896`*^9, 3.536043333400256*^9, 3.53803974853125*^9, 
   3.538129625359375*^9, 3.53819335*^9, 3.538387660171875*^9, 
   3.53872668653125*^9, 3.538726861625*^9, 3.543901691578933*^9, 
   3.5685195555425572`*^9, 3.5692247105262847`*^9, 3.594018069201953*^9, 
   3.5982473795058594`*^9, 3.5986041450029297`*^9, {3.5986051815234375`*^9, 
   3.598605212611328*^9}, 3.599201139696969*^9, 3.599214499083688*^9, 
   3.5992874049303675`*^9, 3.599287435728219*^9, 3.5992989714752893`*^9, {
   3.5993866623102503`*^9, 3.599386677953805*^9}, 3.599459842902047*^9, 
   3.5998149746679764`*^9, 3.599815032253914*^9, 3.599816641715828*^9, 
   3.5998956611875076`*^9, 3.6004091083643436`*^9, 3.601740969653531*^9, 
   3.6022299473209686`*^9, 3.6036027138950467`*^9, 3.6041246572070312`*^9, 
   3.6042156197060547`*^9, 3.6043024170664062`*^9, 3.6102546168887424`*^9, 
   3.6131477363054533`*^9, 3.617439122914047*^9, 3.617691293554672*^9, 
   3.6230444576064453`*^9, 3.6234797240058594`*^9, 3.6234826157646484`*^9, 
   3.6234850265166016`*^9, 3.623555212895508*^9, 3.6246957559375*^9, 
   3.6248653883125*^9, 3.624865982185547*^9, 3.6248684390078125`*^9, 
   3.6248699146992188`*^9, 3.625923246946289*^9, 3.626116428088867*^9, 
   3.6261175120664062`*^9, 3.6266097749921875`*^9, 3.6266205473164062`*^9, 
   3.6266208009121094`*^9, 3.6266227814501953`*^9, 3.626624167248047*^9, 
   3.626625269182617*^9, 3.6266255064853516`*^9, 3.626626170821289*^9, 
   3.6266266186835938`*^9, 3.626627011260742*^9, 3.626627750104492*^9, 
   3.62663066184375*^9, 3.626631785227539*^9, 3.626632447709961*^9, 
   3.6266652425097656`*^9, 3.6266655468847656`*^9, 3.6266682327060547`*^9, 
   3.6266696795878906`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Total:\"\>", "\[InvisibleSpace]", "686", 
   "\[InvisibleSpace]", "\<\" records\"\>"}],
  SequenceForm["Total:", 686, " records"],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.392212323524*^9, 3.408471047131534*^9, 3.419669213644*^9, 
   3.4196713869309998`*^9, 3.419771092303*^9, 3.4201769328929996`*^9, 
   3.426399207218*^9, 3.4263995051809998`*^9, {3.442505967998*^9, 
   3.442505992925*^9}, {3.442514142192*^9, 3.4425141499110003`*^9}, 
   3.442514257399*^9, 3.442514299336*^9, {3.4425676692200003`*^9, 
   3.442567678125*^9}, {3.442830858902*^9, 3.442830865869*^9}, {
   3.442830902993*^9, 3.442830913442*^9}, 3.442833690179*^9, {
   3.442833721604*^9, 3.442833732672*^9}, 3.445836930390625*^9, 3.44592891*^9,
    3.445944004094*^9, 3.448694726640625*^9, 3.44869533015625*^9, 
   3.44869684303125*^9, 3.4486982905625*^9, 3.44870691321875*^9, 
   3.448709639078125*^9, 3.44877725865625*^9, 3.4487776900625*^9, 
   3.448953476734375*^9, 3.448957758234375*^9, 3.448958470796875*^9, 
   3.4489586583125*^9, 3.448959453546875*^9, 3.448961120703125*^9, 
   3.449292114*^9, 3.449297862328125*^9, 3.450075392421875*^9, 
   3.450236275453125*^9, 3.450237157546875*^9, 3.450237208703125*^9, 
   3.450237828328125*^9, 3.450238102484375*^9, 3.450238500984375*^9, 
   3.450239059921875*^9, 3.4502408738125*^9, 3.45024327203125*^9, 
   3.4502441530625*^9, 3.450413506390625*^9, 3.450415013578125*^9, 
   3.450415317171875*^9, 3.450416375109375*^9, 3.4504316858125*^9, 
   3.451717368171875*^9, 3.451887204609375*^9, 3.4724577407327003`*^9, 
   3.4724583620647*^9, 3.5007987110625*^9, 3.50156073396875*^9, 
   3.501563228*^9, 3.50156380921875*^9, 3.501563967046875*^9, 
   3.50156412384375*^9, 3.501564335015625*^9, 3.50156449728125*^9, 
   3.501565988609375*^9, 3.501567878203125*^9, 3.501568321140625*^9, 
   3.5015728310625*^9, 3.5026127770515003`*^9, 3.50579580990625*^9, 
   3.505797107375*^9, 3.5060685709375*^9, 3.50623934378275*^9, 
   3.506239442142125*^9, 3.50632209465775*^9, 3.5063221447515*^9, 
   3.507266063427375*^9, 3.5072699290055*^9, 3.507270664833625*^9, 
   3.5072889050055*^9, 3.507347193731625*^9, 3.507535320325375*^9, 
   3.5080863278202896`*^9, 3.536043333400256*^9, 3.53803974853125*^9, 
   3.538129625359375*^9, 3.53819335*^9, 3.538387660171875*^9, 
   3.53872668653125*^9, 3.538726861625*^9, 3.543901691578933*^9, 
   3.5685195555425572`*^9, 3.5692247105262847`*^9, 3.594018069201953*^9, 
   3.5982473795058594`*^9, 3.5986041450029297`*^9, {3.5986051815234375`*^9, 
   3.598605212611328*^9}, 3.599201139696969*^9, 3.599214499083688*^9, 
   3.5992874049303675`*^9, 3.599287435728219*^9, 3.5992989714752893`*^9, {
   3.5993866623102503`*^9, 3.599386677953805*^9}, 3.599459842902047*^9, 
   3.5998149746679764`*^9, 3.599815032253914*^9, 3.599816641715828*^9, 
   3.5998956611875076`*^9, 3.6004091083643436`*^9, 3.601740969653531*^9, 
   3.6022299473209686`*^9, 3.6036027138950467`*^9, 3.6041246572070312`*^9, 
   3.6042156197060547`*^9, 3.6043024170664062`*^9, 3.6102546168887424`*^9, 
   3.6131477363054533`*^9, 3.617439122914047*^9, 3.617691293554672*^9, 
   3.6230444576064453`*^9, 3.6234797240058594`*^9, 3.6234826157646484`*^9, 
   3.6234850265166016`*^9, 3.623555212895508*^9, 3.6246957559375*^9, 
   3.6248653883125*^9, 3.624865982185547*^9, 3.6248684390078125`*^9, 
   3.6248699146992188`*^9, 3.625923246946289*^9, 3.626116428088867*^9, 
   3.6261175120664062`*^9, 3.6266097749921875`*^9, 3.6266205473164062`*^9, 
   3.6266208009121094`*^9, 3.6266227814501953`*^9, 3.626624167248047*^9, 
   3.626625269182617*^9, 3.6266255064853516`*^9, 3.626626170821289*^9, 
   3.6266266186835938`*^9, 3.626627011260742*^9, 3.626627750104492*^9, 
   3.62663066184375*^9, 3.626631785227539*^9, 3.626632447709961*^9, 
   3.6266652425097656`*^9, 3.6266655468847656`*^9, 3.6266682327060547`*^9, 
   3.626669679705078*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"$res", "=", 
   RowBox[{"GetResults", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\"\<Nxz\>\"", "\[Rule]", "256"}], ",", 
      RowBox[{"\"\<r/R\>\"", "\[Rule]", "0.3"}], ",", 
      RowBox[{"\"\<F(r)\>\"", "->", "\"\<1\>\""}]}], "}"}], "]"}]}], ";", 
  RowBox[{"Length", "[", "$res", "]"}]}], "\n", 
 RowBox[{"First", "[", "$res", "]"}]}], "Input",
 CellChangeTimes->{{3.5360471509471316`*^9, 3.536047207025256*^9}, {
   3.536047571494006*^9, 3.5360475978533816`*^9}, {3.5360490450408816`*^9, 
   3.5360490598221316`*^9}, {3.536050216337756*^9, 3.536050223587756*^9}, {
   3.5363004509934998`*^9, 3.5363004567122498`*^9}, {3.5363005285716248`*^9, 
   3.5363005495091248`*^9}, 3.5363008969309998`*^9, {3.5992012696139607`*^9, 
   3.599201287413766*^9}, 3.599214729654977*^9}],

Cell[BoxData["24"], "Output",
 CellChangeTimes->{{3.5363008798372498`*^9, 3.5363008995559998`*^9}, 
   3.5992011678385706`*^9, 3.599201257666695*^9, 3.5992012883571253`*^9, 
   3.599214730502633*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "2014", ",", "1", ",", "11", ",", "256", ",", "5", ",", "0.3`", ",", 
   "0.0001`", ",", "\<\"1\"\>", ",", "0", ",", 
   RowBox[{"-", "0.029428001601613914`"}], ",", "0.020297594140611122`", ",", 
   "2.41`*^-9", ",", "0.9843675042985751`", ",", "7.94`*^-13", ",", 
   "0.011103321401177342`", ",", "3.13`*^-9", ",", "0.000056639847777355944`",
    ",", "9.58`*^-13", ",", "0.2541564784000002`", ",", "1.7`*^-14", ",", 
   "0.000019178220493572566`", ",", "1.71`*^-12", ",", 
   "0.005499308259210684`", ",", "0.0001338053985010211`", 
   ",", "\<\"ErrScale 1e-4\"\>"}], "}"}]], "Output",
 CellChangeTimes->{{3.5363008798372498`*^9, 3.5363008995559998`*^9}, 
   3.5992011678385706`*^9, 3.599201257666695*^9, 3.5992012883571253`*^9, 
   3.5992147305065393`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"$res", "=", 
   RowBox[{"GetResults", "[", 
    RowBox[{"{", "}"}], "]"}]}], ";", 
  RowBox[{"Length", "[", "$res", "]"}]}]], "Input",
 CellChangeTimes->{{3.4196709246099997`*^9, 3.4196709349560003`*^9}, {
   3.505797122921875*^9, 3.505797146671875*^9}, {3.5057971909375*^9, 
   3.505797191015625*^9}, 3.50580074190625*^9, {3.505800804265625*^9, 
   3.505800807890625*^9}, {3.50580087115625*^9, 3.505800872140625*^9}, {
   3.505800962375*^9, 3.505800964359375*^9}, {3.506239349235875*^9, 
   3.506239353954625*^9}, {3.5062394396265*^9, 3.506239439939*^9}, {
   3.50623948884525*^9, 3.50623948997025*^9}, {3.506320879939*^9, 
   3.506320885548375*^9}, {3.507270681818*^9, 3.507270690302375*^9}, 
   3.507288902021125*^9, {3.508090309052373*^9, 3.5080903096234303`*^9}, 
   3.5080927562810717`*^9, {3.5080930438039083`*^9, 3.5080930441859083`*^9}, 
   3.508112849250908*^9, {3.5363009416809998`*^9, 3.5363009546341248`*^9}, {
   3.5380397533125*^9, 3.53803975346875*^9}, {3.53872882403125*^9, 
   3.538728836046875*^9}, 3.538729179359375*^9, 3.568519589930524*^9, {
   3.56851971486767*^9, 3.5685197237701793`*^9}, {3.5685237070260086`*^9, 
   3.5685237078110533`*^9}, {3.568524797905403*^9, 3.5685247988564577`*^9}, {
   3.6017409795539217`*^9, 3.6017409819611483`*^9}}],

Cell[BoxData["686"], "Output",
 CellChangeTimes->{
  3.5685247991674757`*^9, 3.568524879480069*^9, 3.594018079987109*^9, 
   3.598605406376953*^9, 3.601740983841031*^9, 3.602229950608078*^9, 
   3.6174391290683436`*^9, 3.617691300464828*^9, 3.6230444603095703`*^9, 
   3.624695764515625*^9, 3.6248653958320312`*^9, {3.6248654727021484`*^9, 
   3.624865496176758*^9}, 3.6261164372617188`*^9, 3.62662055475*^9, 
   3.626669779754883*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"$res", "=", 
   RowBox[{"GetResults", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\"\<F(r)\>\"", "\[Rule]", "\"\<1\>\""}], ",", 
      RowBox[{"\"\<r/R\>\"", "\[Rule]", "0.9"}]}], "}"}], "]"}]}], ";", 
  RowBox[{"Length", "[", "$res", "]"}]}]], "Input",
 CellChangeTimes->{{3.5986054341279297`*^9, 3.5986054809941406`*^9}, 
   3.5992875598415003`*^9, 3.599298987152047*^9, 3.599307256964547*^9}],

Cell[BoxData["21"], "Output",
 CellChangeTimes->{{3.5986054618007812`*^9, 3.5986054813779297`*^9}, 
   3.599287560368844*^9, 3.5992989879440393`*^9, 3.5993072573571253`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"$res", "=", 
   RowBox[{"GetResults", "[", 
    RowBox[{"{", 
     RowBox[{"\"\<F(r)\>\"", "\[Rule]", "\"\<r\>\""}], "}"}], "]"}]}], ";", 
  RowBox[{"Length", "[", "$res", "]"}]}]], "Input",
 CellChangeTimes->{{3.4196709246099997`*^9, 3.4196709349560003`*^9}, {
   3.505797122921875*^9, 3.505797146671875*^9}, {3.5057971909375*^9, 
   3.505797191015625*^9}, 3.50580074190625*^9, {3.505800804265625*^9, 
   3.505800807890625*^9}, {3.50580087115625*^9, 3.505800872140625*^9}, {
   3.505800962375*^9, 3.505800964359375*^9}, {3.506239349235875*^9, 
   3.506239353954625*^9}, {3.5062394396265*^9, 3.506239439939*^9}, {
   3.50623948884525*^9, 3.50623948997025*^9}, {3.506320879939*^9, 
   3.506320885548375*^9}, {3.507270681818*^9, 3.507270690302375*^9}, 
   3.507288902021125*^9, {3.508090309052373*^9, 3.5080903096234303`*^9}, 
   3.5080927562810717`*^9, {3.5080930438039083`*^9, 3.5080930441859083`*^9}, 
   3.508112849250908*^9, {3.5363009416809998`*^9, 3.5363009546341248`*^9}, {
   3.5380397533125*^9, 3.53803975346875*^9}, {3.53872882403125*^9, 
   3.538728836046875*^9}, 3.538729179359375*^9, 3.568519589930524*^9, {
   3.56851971486767*^9, 3.5685197237701793`*^9}, {3.5685237070260086`*^9, 
   3.5685237078110533`*^9}, {3.5685248424359503`*^9, 3.568524852941551*^9}, {
   3.5685249112688875`*^9, 3.5685249186623096`*^9}, {3.568526005553477*^9, 
   3.5685260148940105`*^9}, 3.569225744543169*^9, {3.598604169305664*^9, 
   3.5986041805390625`*^9}, 3.6025044347213593`*^9, {3.603602719901883*^9, 
   3.6036027202720003`*^9}, {3.6131494936999846`*^9, 3.6131495086023283`*^9}, 
   3.6174392122568207`*^9, {3.6174415047656093`*^9, 3.617441504826156*^9}, 
   3.6174415907626796`*^9, {3.6174455846064296`*^9, 3.6174455851181483`*^9}, 
   3.617691300126938*^9, {3.623052318788086*^9, 3.623052333296875*^9}, {
   3.623052657678711*^9, 3.6230526641445312`*^9}, 3.623479726654297*^9, {
   3.624783509741211*^9, 3.624783509772461*^9}, {3.6248654021757812`*^9, 
   3.624865402397461*^9}, {3.624869984526367*^9, 3.6248699846748047`*^9}, 
   3.62592325146875*^9, 3.6260721541289062`*^9, {3.6260724850966797`*^9, 
   3.626072500939453*^9}, {3.6261164452441406`*^9, 3.626116446142578*^9}, 
   3.6266332479453125`*^9, {3.6266333025410156`*^9, 3.626633328404297*^9}, 
   3.6266686129179688`*^9, {3.6266687622460938`*^9, 3.6266687623398438`*^9}, 
   3.6266693365585938`*^9}],

Cell[BoxData["182"], "Output",
 CellChangeTimes->{{3.50579712709375*^9, 3.505797147078125*^9}, 
   3.505797191734375*^9, 3.505800742734375*^9, 3.505800809515625*^9, 
   3.505800873078125*^9, 3.505800964671875*^9, 3.506239344079625*^9, {
   3.506239440235875*^9, 3.506239443564*^9}, 3.506239490267125*^9, 
   3.5063208861265*^9, 3.506322146985875*^9, 3.5072699347555*^9, {
   3.5072706820055*^9, 3.5072706908805*^9}, {3.507288903614875*^9, 
   3.50728890609925*^9}, 3.507347197044125*^9, 3.508090310276496*^9, 
   3.5080927569031334`*^9, 3.5080930445919085`*^9, 3.5081128499359083`*^9, 
   3.5363009100091248`*^9, {3.5363009429153748`*^9, 3.5363009550247498`*^9}, 
   3.53803975425*^9, 3.538129628*^9, 3.538193356078125*^9, 
   3.5383876613125*^9, {3.538726852640625*^9, 3.538726863765625*^9}, {
   3.538728826625*^9, 3.538728836625*^9}, 3.538729179671875*^9, 
   3.5685195904295526`*^9, {3.5685197154337025`*^9, 3.568519724298209*^9}, 
   3.5685237083340836`*^9, {3.5685248314963245`*^9, 3.5685248534005775`*^9}, {
   3.5685248927648287`*^9, 3.5685249191393375`*^9}, {3.568526006646539*^9, 
   3.568526015356037*^9}, 3.5692257456206856`*^9, 3.5986041869501953`*^9, 
   3.5986052137646484`*^9, 3.5992011803571253`*^9, 3.5992145089665003`*^9, 
   3.5992874467467737`*^9, 3.599298977448922*^9, 3.5993866915944295`*^9, 
   3.5994598525993123`*^9, {3.5998149849248123`*^9, 3.599815034144539*^9}, 
   3.5998166497304764`*^9, 3.599895671847664*^9, {3.6025044268405*^9, 
   3.6025044376852264`*^9}, 3.6036027265757113`*^9, 3.604215624926758*^9, 
   3.604302418734375*^9, 3.610254618641672*^9, 3.6131477411150236`*^9, {
   3.613149496593539*^9, 3.6131495092888517`*^9}, 3.617439213039047*^9, 
   3.6174415055243983`*^9, 3.6174415914853363`*^9, 3.617445585534164*^9, 
   3.617691301402328*^9, 3.619434982716797*^9, {3.6230522995751953`*^9, 
   3.6230523337421875`*^9}, 3.6230526648789062`*^9, 3.6234797302226562`*^9, 
   3.6234826194873047`*^9, 3.623485031504883*^9, 3.624783471432617*^9, 
   3.6247835101552734`*^9, 3.6248654029257812`*^9, {3.6248654925195312`*^9, 
   3.624865519760742*^9}, 3.6248684487734375`*^9, {3.6248699817148438`*^9, 
   3.6248699855722656`*^9}, 3.6259232586328125`*^9, 3.6260721700439453`*^9, {
   3.626072486442383*^9, 3.6260725044414062`*^9}, 3.626116447178711*^9, 
   3.6261175166279297`*^9, 3.626620569458008*^9, 3.626633248513672*^9, {
   3.6266333044072266`*^9, 3.6266333303251953`*^9}, 3.6266682372060547`*^9, 
   3.6266686132929688`*^9, 3.6266687631210938`*^9, 3.6266693375742188`*^9, 
   3.6266696816191406`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Graphics", "[", 
  RowBox[{
   RowBox[{"Point", "/@", 
    RowBox[{"Union", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"GetFields", "[", 
        RowBox[{"#", ",", 
         RowBox[{"{", 
          RowBox[{"\"\<Re\>\"", ",", "\"\<r/R\>\""}], "}"}]}], "]"}], "&"}], "/@",
       "$res"}], "]"}]}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
   RowBox[{"Axes", "\[Rule]", "True"}], ",", 
   RowBox[{"AxesOrigin", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0"}], "}"}]}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0", ",", "1"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.445836997328125*^9, 3.445837052984375*^9}, {
  3.44583800065625*^9, 3.445838075328125*^9}, {3.4486982100625*^9, 
  3.448698265859375*^9}, {3.505797154484375*^9, 3.505797177578125*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", "const", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"plus", "=", 
    RowBox[{"Graphics", "[", 
     RowBox[{"Join", "[", 
      RowBox[{
       RowBox[{"Point", "/@", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"100", ",", "0.65"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"200", ",", "0.9"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"200", ",", "0.95"}], "}"}]}], "}"}]}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Line", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"210", ",", "0.9"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"300", ",", "0.9"}], "}"}]}], "}"}], "]"}], ",", 
         RowBox[{"Line", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"250", ",", "0.05"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"300", ",", "0.05"}], "}"}]}], "}"}], "]"}], ",", 
         RowBox[{"Line", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"90", ",", "0.975"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"300", ",", "0.975"}], "}"}]}], "}"}], "]"}], ",", 
         RowBox[{"Line", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"300", ",", "0.05"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"300", ",", "0.975"}], "}"}]}], "}"}], "]"}]}], "}"}]}], 
      "]"}], "]"}]}], ";"}]}]], "Input",
 CellChangeTimes->{{3.6266683998623047`*^9, 3.6266684930966797`*^9}, {
  3.6266685466279297`*^9, 3.6266686069023438`*^9}, {3.6266686374179688`*^9, 
  3.6266687473398438`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", "gradient", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"plus", "=", 
    RowBox[{"Graphics", "[", 
     RowBox[{"Join", "[", 
      RowBox[{
       RowBox[{"Point", "/@", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"150", ",", "0.05"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"160", ",", "0.05"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"170", ",", "0.05"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"180", ",", "0.05"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"190", ",", "0.05"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"200", ",", "0.05"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"200", ",", "0.3"}], "}"}]}], "}"}]}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Line", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"240", ",", "0.05"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"300", ",", "0.05"}], "}"}]}], "}"}], "]"}], ",", 
         RowBox[{"Line", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"230", ",", "0.5"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"300", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", 
         RowBox[{"Line", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"1", ",", "0.975"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"300", ",", "0.975"}], "}"}]}], "}"}], "]"}], ",", 
         RowBox[{"Line", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"300", ",", "0.05"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"300", ",", "0.975"}], "}"}]}], "}"}], "]"}], ",", 
         RowBox[{"Line", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"220", ",", "0.9"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"300", ",", "0.9"}], "}"}]}], "}"}], "]"}], ",", 
         RowBox[{"Line", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"240", ",", "0.3"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"300", ",", "0.3"}], "}"}]}], "}"}], "]"}]}], "}"}]}], 
      "]"}], "]"}]}], ";"}]}]], "Input",
 CellChangeTimes->{{3.6266683998623047`*^9, 3.6266684930966797`*^9}, {
  3.6266685466279297`*^9, 3.6266686069023438`*^9}, {3.6266686374179688`*^9, 
  3.6266687473398438`*^9}, {3.6266688525585938`*^9, 3.6266688536523438`*^9}, {
  3.6266689851992188`*^9, 3.6266690414179688`*^9}, {3.6266691999335938`*^9, 
  3.6266692414335938`*^9}, {3.6266692758085938`*^9, 3.6266693053554688`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", "eps", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"plus", "=", 
    RowBox[{"Graphics", "[", 
     RowBox[{"Join", "[", 
      RowBox[{
       RowBox[{"Point", "/@", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"200", ",", "0.35"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"200", ",", "0.45"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"200", ",", "0.55"}], "}"}]}], "}"}]}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Line", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"170", ",", "0.9"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"300", ",", "0.9"}], "}"}]}], "}"}], "]"}], ",", 
         RowBox[{"Line", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"200", ",", "0.05"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"200", ",", "0.25"}], "}"}]}], "}"}], "]"}], ",", 
         RowBox[{"Line", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"1", ",", "0.05"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"300", ",", "0.05"}], "}"}]}], "}"}], "]"}], ",", 
         RowBox[{"Line", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"90", ",", "0.975"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"300", ",", "0.975"}], "}"}]}], "}"}], "]"}], ",", 
         RowBox[{"Line", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"200", ",", "0.65"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"200", ",", "0.975"}], "}"}]}], "}"}], "]"}], ",", 
         RowBox[{"Line", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"250", ",", "0.3"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"300", ",", "0.3"}], "}"}]}], "}"}], "]"}], ",", 
         RowBox[{"Line", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"230", ",", "0.5"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"300", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", 
         RowBox[{"Line", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"300", ",", "0.05"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"300", ",", "0.975"}], "}"}]}], "}"}], "]"}]}], "}"}]}], 
      "]"}], "]"}]}], ";"}]}]], "Input",
 CellChangeTimes->{{3.6266683998623047`*^9, 3.6266684930966797`*^9}, {
   3.6266685466279297`*^9, 3.6266686069023438`*^9}, {3.6266686374179688`*^9, 
   3.6266687473398438`*^9}, {3.6266693322773438`*^9, 
   3.6266693779648438`*^9}, {3.6266694093398438`*^9, 3.626669443129883*^9}, {
   3.6266694737626953`*^9, 3.626669498567383*^9}, 3.626669529895508*^9, {
   3.6266695827158203`*^9, 3.6266696415878906`*^9}}],

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{"%", ",", "plus"}], "]"}]], "Input",
 CellChangeTimes->{{3.6266686171210938`*^9, 3.6266686195117188`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Eustice1910", "=", 
   RowBox[{"Line", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        FractionBox["#", "2"], ",", 
        RowBox[{
         SqrtBox[
          FractionBox["0.0735", "\[Pi]"]], "/", "2.59"}]}], "}"}], "&"}], "/@", 
     RowBox[{"{", 
      RowBox[{"20", ",", "5000"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Grindley1908", "=", 
   RowBox[{"Line", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        FractionBox["#", "2"], ",", 
        FractionBox["0.317", "36.6"]}], "}"}], "&"}], "/@", 
     RowBox[{"{", 
      RowBox[{"25", ",", "1400"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"WhiteII", "=", 
   RowBox[{"Line", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        FractionBox["#", "2"], ",", 
        FractionBox["0.630", "31.7"]}], "}"}], "&"}], "/@", 
     RowBox[{"{", 
      RowBox[{"16", ",", "13000"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"WhiteI", "=", 
   RowBox[{"Line", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        FractionBox["#", "2"], ",", 
        FractionBox["1.032", "15.62"]}], "}"}], "&"}], "/@", 
     RowBox[{"{", 
      RowBox[{"0.058", ",", "41000"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"WhiteIII", "=", 
   RowBox[{"Line", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        FractionBox["#", "2"], ",", 
        FractionBox["0.2908", "610.5"]}], "}"}], "&"}], "/@", 
     RowBox[{"{", 
      RowBox[{"220", ",", "4000"}], "}"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.6230444725351562`*^9, 3.6230444762558594`*^9}, {
   3.6230446067666016`*^9, 3.6230447041396484`*^9}, {3.623044770692383*^9, 
   3.623044771915039*^9}, {3.6230449165791016`*^9, 3.6230449167666016`*^9}, {
   3.623044961131836*^9, 3.6230450557851562`*^9}, {3.6230451150664062`*^9, 
   3.6230452323935547`*^9}, 3.6230483532177734`*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{"%156", ",", 
   RowBox[{"Graphics", "[", 
    RowBox[{"{", 
     RowBox[{
     "Blue", ",", "Eustice1910", ",", "Red", ",", "Grindley1908", ",", 
      "Green", ",", "WhiteI", ",", "WhiteII", ",", "WhiteIII"}], "}"}], "]"}],
    ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", "500"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6230447172714844`*^9, 3.6230448285908203`*^9}, {
  3.6230448918291016`*^9, 3.623044907754883*^9}, {3.623044964489258*^9, 
  3.623044965138672*^9}, {3.623045071810547*^9, 3.6230450792421875`*^9}, {
  3.623045240826172*^9, 3.623045248618164*^9}, {3.6230483312177734`*^9, 
  3.6230483829521484`*^9}, {3.6248655041289062`*^9, 3.6248655043154297`*^9}, {
  3.626670780171875*^9, 3.6266707802734375`*^9}}],

Cell[BoxData[
 GraphicsBox[{{PointBox[{1, 0}], PointBox[{1, 0.1}], PointBox[{1, 0.2}], 
    PointBox[{1, 0.25}], PointBox[{1, 0.3}], PointBox[{1, 0.4}], 
    PointBox[{1, 0.5}], PointBox[{1, 0.6}], PointBox[{1, 0.7}], 
    PointBox[{1, 0.8}], PointBox[{1, 0.9}], PointBox[{1, 0.95}], 
    PointBox[{5, 0.3}], PointBox[{5, 0.5}], PointBox[{5, 0.9}], 
    PointBox[{10, 0}], PointBox[{10, 0.}], PointBox[{10, 0.05}], 
    PointBox[{10, 0.1}], PointBox[{10, 0.15}], PointBox[{10, 0.2}], 
    PointBox[{10, 0.25}], PointBox[{10, 0.3}], PointBox[{10, 0.35}], 
    PointBox[{10, 0.4}], PointBox[{10, 0.45}], PointBox[{10, 0.5}], 
    PointBox[{10, 0.55}], PointBox[{10, 0.6}], PointBox[{10, 0.65}], 
    PointBox[{10, 0.7}], PointBox[{10, 0.75}], PointBox[{10, 0.8}], 
    PointBox[{10, 0.85}], PointBox[{10, 0.9}], PointBox[{10, 0.95}], 
    PointBox[{10, 0.975}], PointBox[{10, 1.}], PointBox[{15, 0.3}], 
    PointBox[{15, 0.5}], PointBox[{15, 0.9}], PointBox[{20, 0}], 
    PointBox[{20, 0.05}], PointBox[{20, 0.1}], PointBox[{20, 0.2}], 
    PointBox[{20, 0.3}], PointBox[{20, 0.4}], PointBox[{20, 0.5}], 
    PointBox[{20, 0.6}], PointBox[{20, 0.7}], PointBox[{20, 0.8}], 
    PointBox[{20, 0.9}], PointBox[{20, 0.975}], PointBox[{25, 0.3}], 
    PointBox[{25, 0.5}], PointBox[{25, 0.9}], PointBox[{30, 0}], 
    PointBox[{30, 0.05}], PointBox[{30, 0.1}], PointBox[{30, 0.2}], 
    PointBox[{30, 0.3}], PointBox[{30, 0.4}], PointBox[{30, 0.5}], 
    PointBox[{30, 0.6}], PointBox[{30, 0.7}], PointBox[{30, 0.8}], 
    PointBox[{30, 0.9}], PointBox[{30, 0.975}], PointBox[{35, 0.5}], 
    PointBox[{40, 0}], PointBox[{40, 0.05}], PointBox[{40, 0.1}], 
    PointBox[{40, 0.2}], PointBox[{40, 0.3}], PointBox[{40, 0.4}], 
    PointBox[{40, 0.5}], PointBox[{40, 0.6}], PointBox[{40, 0.7}], 
    PointBox[{40, 0.8}], PointBox[{40, 0.9}], PointBox[{40, 0.975}], 
    PointBox[{45, 0.5}], PointBox[{50, 0}], PointBox[{50, 0.01}], 
    PointBox[{50, 0.05}], PointBox[{50, 0.1}], PointBox[{50, 0.2}], 
    PointBox[{50, 0.3}], PointBox[{50, 0.4}], PointBox[{50, 0.5}], 
    PointBox[{50, 0.6}], PointBox[{50, 0.7}], PointBox[{50, 0.8}], 
    PointBox[{50, 0.9}], PointBox[{50, 0.975}], PointBox[{55, 0.5}], 
    PointBox[{60, 0}], PointBox[{60, 0.05}], PointBox[{60, 0.1}], 
    PointBox[{60, 0.2}], PointBox[{60, 0.3}], PointBox[{60, 0.4}], 
    PointBox[{60, 0.5}], PointBox[{60, 0.6}], PointBox[{60, 0.7}], 
    PointBox[{60, 0.8}], PointBox[{60, 0.9}], PointBox[{60, 0.975}], 
    PointBox[{65, 0.5}], PointBox[{70, 0}], PointBox[{70, 0.05}], 
    PointBox[{70, 0.1}], PointBox[{70, 0.2}], PointBox[{70, 0.3}], 
    PointBox[{70, 0.4}], PointBox[{70, 0.5}], PointBox[{70, 0.6}], 
    PointBox[{70, 0.7}], PointBox[{70, 0.8}], PointBox[{70, 0.9}], 
    PointBox[{70, 0.975}], PointBox[{75, 0.5}], PointBox[{80, 0}], 
    PointBox[{80, 0.05}], PointBox[{80, 0.1}], PointBox[{80, 0.2}], 
    PointBox[{80, 0.3}], PointBox[{80, 0.4}], PointBox[{80, 0.5}], 
    PointBox[{80, 0.6}], PointBox[{80, 0.7}], PointBox[{80, 0.8}], 
    PointBox[{80, 0.9}], PointBox[{80, 0.975}], PointBox[{85, 0.5}], 
    PointBox[{90, 0}], PointBox[{90, 0.05}], PointBox[{90, 0.1}], 
    PointBox[{90, 0.2}], PointBox[{90, 0.3}], PointBox[{90, 0.4}], 
    PointBox[{90, 0.5}], PointBox[{90, 0.6}], PointBox[{90, 0.7}], 
    PointBox[{90, 0.8}], PointBox[{90, 0.9}], PointBox[{95, 0.5}], 
    PointBox[{100, 0}], PointBox[{100, 0.}], PointBox[{100, 0.01}], 
    PointBox[{100, 0.05}], PointBox[{100, 0.1}], PointBox[{100, 0.15}], 
    PointBox[{100, 0.2}], PointBox[{100, 0.25}], PointBox[{100, 0.3}], 
    PointBox[{100, 0.35}], PointBox[{100, 0.4}], PointBox[{100, 0.45}], 
    PointBox[{100, 0.5}], PointBox[{100, 0.55}], PointBox[{100, 0.6}], 
    PointBox[{100, 0.65}], PointBox[{100, 0.7}], PointBox[{100, 0.75}], 
    PointBox[{100, 0.8}], PointBox[{100, 0.85}], PointBox[{100, 0.9}], 
    PointBox[{100, 0.95}], PointBox[{105, 0.5}], PointBox[{110, 0.05}], 
    PointBox[{110, 0.3}], PointBox[{110, 0.4}], PointBox[{110, 0.5}], 
    PointBox[{110, 0.6}], PointBox[{110, 0.7}], PointBox[{110, 0.8}], 
    PointBox[{110, 0.9}], PointBox[{115, 0.5}], PointBox[{120, 0.05}], 
    PointBox[{120, 0.3}], PointBox[{120, 0.4}], PointBox[{120, 0.5}], 
    PointBox[{120, 0.6}], PointBox[{120, 0.7}], PointBox[{120, 0.8}], 
    PointBox[{120, 0.9}], PointBox[{130, 0.05}], PointBox[{130, 0.3}], 
    PointBox[{130, 0.4}], PointBox[{130, 0.5}], PointBox[{130, 0.6}], 
    PointBox[{130, 0.7}], PointBox[{130, 0.8}], PointBox[{130, 0.9}], 
    PointBox[{140, 0.05}], PointBox[{140, 0.3}], PointBox[{140, 0.4}], 
    PointBox[{140, 0.5}], PointBox[{140, 0.6}], PointBox[{140, 0.7}], 
    PointBox[{140, 0.8}], PointBox[{140, 0.9}], PointBox[{150, 0.01}], 
    PointBox[{150, 0.05}], PointBox[{150, 0.3}], PointBox[{150, 0.4}], 
    PointBox[{150, 0.5}], PointBox[{150, 0.6}], PointBox[{150, 0.7}], 
    PointBox[{150, 0.9}], PointBox[{160, 0.05}], PointBox[{160, 0.3}], 
    PointBox[{160, 0.4}], PointBox[{160, 0.5}], PointBox[{160, 0.6}], 
    PointBox[{160, 0.7}], PointBox[{160, 0.9}], PointBox[{170, 0.05}], 
    PointBox[{170, 0.3}], PointBox[{170, 0.4}], PointBox[{170, 0.5}], 
    PointBox[{170, 0.6}], PointBox[{170, 0.7}], PointBox[{170, 0.9}], 
    PointBox[{180, 0.05}], PointBox[{180, 0.3}], PointBox[{180, 0.4}], 
    PointBox[{180, 0.5}], PointBox[{180, 0.6}], PointBox[{180, 0.7}], 
    PointBox[{180, 0.9}], PointBox[{190, 0.05}], PointBox[{190, 0.3}], 
    PointBox[{190, 0.4}], PointBox[{190, 0.5}], PointBox[{190, 0.6}], 
    PointBox[{190, 0.7}], PointBox[{190, 0.9}], PointBox[{200, 0.01}], 
    PointBox[{200, 0.05}], PointBox[{200, 0.1}], PointBox[{200, 0.15}], 
    PointBox[{200, 0.2}], PointBox[{200, 0.25}], PointBox[{200, 0.3}], 
    PointBox[{200, 0.35}], PointBox[{200, 0.4}], PointBox[{200, 0.45}], 
    PointBox[{200, 0.5}], PointBox[{200, 0.55}], PointBox[{200, 0.6}], 
    PointBox[{200, 0.65}], PointBox[{200, 0.7}], PointBox[{200, 0.75}], 
    PointBox[{200, 0.8}], PointBox[{200, 0.85}], PointBox[{200, 0.9}], 
    PointBox[{200, 0.975}], PointBox[{210, 0.05}], PointBox[{210, 0.3}], 
    PointBox[{210, 0.4}], PointBox[{210, 0.5}], PointBox[{210, 0.6}], 
    PointBox[{210, 0.7}], PointBox[{210, 0.9}], PointBox[{220, 0.05}], 
    PointBox[{220, 0.3}], PointBox[{220, 0.4}], PointBox[{220, 0.5}], 
    PointBox[{220, 0.6}], PointBox[{220, 0.7}], PointBox[{220, 0.9}], 
    PointBox[{230, 0.05}], PointBox[{230, 0.3}], PointBox[{230, 0.4}], 
    PointBox[{230, 0.5}], PointBox[{230, 0.6}], PointBox[{230, 0.9}], 
    PointBox[{240, 0.05}], PointBox[{240, 0.3}], PointBox[{240, 0.4}], 
    PointBox[{240, 0.5}], PointBox[{250, 0.3}], PointBox[{250, 0.5}], 
    PointBox[{260, 0.3}], PointBox[{270, 0.3}], PointBox[{270, 0.5}], 
    PointBox[{280, 0.3}], PointBox[{290, 0.3}], PointBox[{290, 0.5}]}, {
    {RGBColor[0, 0, 1], 
     LineBox[{{10, 0.05905667192389617}, {2500, 0.05905667192389617}}]}, 
    {RGBColor[1, 0, 0], 
     LineBox[NCache[{{Rational[25, 2], 0.00866120218579235}, {
        700, 0.00866120218579235}}, {{12.5, 0.00866120218579235}, {
        700, 0.00866120218579235}}]]}, 
    {RGBColor[0, 1, 0], 
     LineBox[{{0.029, 0.06606914212548015}, {20500, 0.06606914212548015}}], 
     LineBox[{{8, 0.019873817034700314`}, {6500, 0.019873817034700314`}}], 
     LineBox[{{110, 0.00047633087633087637`}, {
       2000, 0.00047633087633087637`}}]}}},
  AspectRatio->1,
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0, 500}, {0, 1}}]], "Output",
 CellChangeTimes->{{3.62304477503125*^9, 3.6230448291464844`*^9}, {
   3.623044894754883*^9, 3.623044908209961*^9}, 3.623045080548828*^9, {
   3.6230483654277344`*^9, 3.623048383370117*^9}, 3.6230526687304688`*^9, 
   3.624865505448242*^9, 3.626670780796875*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData["all"], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10001.},
 CellChangeTimes->{{3.5685248867174826`*^9, 3.56852488806356*^9}, {
   3.5685252368645105`*^9, 3.5685252375165477`*^9}, 3.6266698607626953`*^9}],

Cell[BoxData[
 GraphicsBox[{PointBox[{1, 0}], PointBox[{1, 0.1}], PointBox[{1, 0.2}], 
   PointBox[{1, 0.25}], PointBox[{1, 0.3}], PointBox[{1, 0.4}], 
   PointBox[{1, 0.5}], PointBox[{1, 0.6}], PointBox[{1, 0.7}], 
   PointBox[{1, 0.8}], PointBox[{1, 0.9}], PointBox[{1, 0.95}], 
   PointBox[{5, 0.3}], PointBox[{5, 0.5}], PointBox[{5, 0.9}], 
   PointBox[{10, 0}], PointBox[{10, 0.}], PointBox[{10, 0.05}], 
   PointBox[{10, 0.1}], PointBox[{10, 0.15}], PointBox[{10, 0.2}], 
   PointBox[{10, 0.25}], PointBox[{10, 0.3}], PointBox[{10, 0.35}], 
   PointBox[{10, 0.4}], PointBox[{10, 0.45}], PointBox[{10, 0.5}], 
   PointBox[{10, 0.55}], PointBox[{10, 0.6}], PointBox[{10, 0.65}], 
   PointBox[{10, 0.7}], PointBox[{10, 0.75}], PointBox[{10, 0.8}], 
   PointBox[{10, 0.85}], PointBox[{10, 0.9}], PointBox[{10, 0.95}], 
   PointBox[{10, 0.975}], PointBox[{10, 1.}], PointBox[{15, 0.3}], 
   PointBox[{15, 0.5}], PointBox[{15, 0.9}], PointBox[{20, 0}], 
   PointBox[{20, 0.05}], PointBox[{20, 0.1}], PointBox[{20, 0.2}], 
   PointBox[{20, 0.3}], PointBox[{20, 0.4}], PointBox[{20, 0.5}], 
   PointBox[{20, 0.6}], PointBox[{20, 0.7}], PointBox[{20, 0.8}], 
   PointBox[{20, 0.9}], PointBox[{20, 0.975}], PointBox[{25, 0.3}], 
   PointBox[{25, 0.5}], PointBox[{25, 0.9}], PointBox[{30, 0}], 
   PointBox[{30, 0.05}], PointBox[{30, 0.1}], PointBox[{30, 0.2}], 
   PointBox[{30, 0.3}], PointBox[{30, 0.4}], PointBox[{30, 0.5}], 
   PointBox[{30, 0.6}], PointBox[{30, 0.7}], PointBox[{30, 0.8}], 
   PointBox[{30, 0.9}], PointBox[{30, 0.975}], PointBox[{35, 0.5}], 
   PointBox[{40, 0}], PointBox[{40, 0.05}], PointBox[{40, 0.1}], 
   PointBox[{40, 0.2}], PointBox[{40, 0.3}], PointBox[{40, 0.4}], 
   PointBox[{40, 0.5}], PointBox[{40, 0.6}], PointBox[{40, 0.7}], 
   PointBox[{40, 0.8}], PointBox[{40, 0.9}], PointBox[{40, 0.975}], 
   PointBox[{45, 0.5}], PointBox[{50, 0}], PointBox[{50, 0.01}], 
   PointBox[{50, 0.05}], PointBox[{50, 0.1}], PointBox[{50, 0.2}], 
   PointBox[{50, 0.3}], PointBox[{50, 0.4}], PointBox[{50, 0.5}], 
   PointBox[{50, 0.6}], PointBox[{50, 0.7}], PointBox[{50, 0.8}], 
   PointBox[{50, 0.9}], PointBox[{50, 0.975}], PointBox[{55, 0.5}], 
   PointBox[{60, 0}], PointBox[{60, 0.05}], PointBox[{60, 0.1}], 
   PointBox[{60, 0.2}], PointBox[{60, 0.3}], PointBox[{60, 0.4}], 
   PointBox[{60, 0.5}], PointBox[{60, 0.6}], PointBox[{60, 0.7}], 
   PointBox[{60, 0.8}], PointBox[{60, 0.9}], PointBox[{60, 0.975}], 
   PointBox[{65, 0.5}], PointBox[{70, 0}], PointBox[{70, 0.05}], 
   PointBox[{70, 0.1}], PointBox[{70, 0.2}], PointBox[{70, 0.3}], 
   PointBox[{70, 0.4}], PointBox[{70, 0.5}], PointBox[{70, 0.6}], 
   PointBox[{70, 0.7}], PointBox[{70, 0.8}], PointBox[{70, 0.9}], 
   PointBox[{70, 0.975}], PointBox[{75, 0.5}], PointBox[{80, 0}], 
   PointBox[{80, 0.05}], PointBox[{80, 0.1}], PointBox[{80, 0.2}], 
   PointBox[{80, 0.3}], PointBox[{80, 0.4}], PointBox[{80, 0.5}], 
   PointBox[{80, 0.6}], PointBox[{80, 0.7}], PointBox[{80, 0.8}], 
   PointBox[{80, 0.9}], PointBox[{80, 0.975}], PointBox[{85, 0.5}], 
   PointBox[{90, 0}], PointBox[{90, 0.05}], PointBox[{90, 0.1}], 
   PointBox[{90, 0.2}], PointBox[{90, 0.3}], PointBox[{90, 0.4}], 
   PointBox[{90, 0.5}], PointBox[{90, 0.6}], PointBox[{90, 0.7}], 
   PointBox[{90, 0.8}], PointBox[{90, 0.9}], PointBox[{95, 0.5}], 
   PointBox[{100, 0}], PointBox[{100, 0.}], PointBox[{100, 0.01}], 
   PointBox[{100, 0.05}], PointBox[{100, 0.1}], PointBox[{100, 0.15}], 
   PointBox[{100, 0.2}], PointBox[{100, 0.25}], PointBox[{100, 0.3}], 
   PointBox[{100, 0.35}], PointBox[{100, 0.4}], PointBox[{100, 0.45}], 
   PointBox[{100, 0.5}], PointBox[{100, 0.55}], PointBox[{100, 0.6}], 
   PointBox[{100, 0.65}], PointBox[{100, 0.7}], PointBox[{100, 0.75}], 
   PointBox[{100, 0.8}], PointBox[{100, 0.85}], PointBox[{100, 0.9}], 
   PointBox[{100, 0.95}], PointBox[{105, 0.5}], PointBox[{110, 0.05}], 
   PointBox[{110, 0.3}], PointBox[{110, 0.4}], PointBox[{110, 0.5}], 
   PointBox[{110, 0.6}], PointBox[{110, 0.7}], PointBox[{110, 0.8}], 
   PointBox[{110, 0.9}], PointBox[{115, 0.5}], PointBox[{120, 0.05}], 
   PointBox[{120, 0.3}], PointBox[{120, 0.4}], PointBox[{120, 0.5}], 
   PointBox[{120, 0.6}], PointBox[{120, 0.7}], PointBox[{120, 0.8}], 
   PointBox[{120, 0.9}], PointBox[{130, 0.05}], PointBox[{130, 0.3}], 
   PointBox[{130, 0.4}], PointBox[{130, 0.5}], PointBox[{130, 0.6}], 
   PointBox[{130, 0.7}], PointBox[{130, 0.8}], PointBox[{130, 0.9}], 
   PointBox[{140, 0.05}], PointBox[{140, 0.3}], PointBox[{140, 0.4}], 
   PointBox[{140, 0.5}], PointBox[{140, 0.6}], PointBox[{140, 0.7}], 
   PointBox[{140, 0.8}], PointBox[{140, 0.9}], PointBox[{150, 0.01}], 
   PointBox[{150, 0.05}], PointBox[{150, 0.3}], PointBox[{150, 0.4}], 
   PointBox[{150, 0.5}], PointBox[{150, 0.6}], PointBox[{150, 0.7}], 
   PointBox[{150, 0.9}], PointBox[{160, 0.05}], PointBox[{160, 0.3}], 
   PointBox[{160, 0.4}], PointBox[{160, 0.5}], PointBox[{160, 0.6}], 
   PointBox[{160, 0.7}], PointBox[{160, 0.9}], PointBox[{170, 0.05}], 
   PointBox[{170, 0.3}], PointBox[{170, 0.4}], PointBox[{170, 0.5}], 
   PointBox[{170, 0.6}], PointBox[{170, 0.7}], PointBox[{170, 0.9}], 
   PointBox[{180, 0.05}], PointBox[{180, 0.3}], PointBox[{180, 0.4}], 
   PointBox[{180, 0.5}], PointBox[{180, 0.6}], PointBox[{180, 0.7}], 
   PointBox[{180, 0.9}], PointBox[{190, 0.05}], PointBox[{190, 0.3}], 
   PointBox[{190, 0.4}], PointBox[{190, 0.5}], PointBox[{190, 0.6}], 
   PointBox[{190, 0.7}], PointBox[{190, 0.9}], PointBox[{200, 0.01}], 
   PointBox[{200, 0.05}], PointBox[{200, 0.1}], PointBox[{200, 0.15}], 
   PointBox[{200, 0.2}], PointBox[{200, 0.25}], PointBox[{200, 0.3}], 
   PointBox[{200, 0.35}], PointBox[{200, 0.4}], PointBox[{200, 0.45}], 
   PointBox[{200, 0.5}], PointBox[{200, 0.55}], PointBox[{200, 0.6}], 
   PointBox[{200, 0.65}], PointBox[{200, 0.7}], PointBox[{200, 0.75}], 
   PointBox[{200, 0.8}], PointBox[{200, 0.85}], PointBox[{200, 0.9}], 
   PointBox[{200, 0.975}], PointBox[{210, 0.05}], PointBox[{210, 0.3}], 
   PointBox[{210, 0.4}], PointBox[{210, 0.5}], PointBox[{210, 0.6}], 
   PointBox[{210, 0.7}], PointBox[{210, 0.9}], PointBox[{220, 0.05}], 
   PointBox[{220, 0.3}], PointBox[{220, 0.4}], PointBox[{220, 0.5}], 
   PointBox[{220, 0.6}], PointBox[{220, 0.7}], PointBox[{220, 0.9}], 
   PointBox[{230, 0.05}], PointBox[{230, 0.3}], PointBox[{230, 0.4}], 
   PointBox[{230, 0.5}], PointBox[{230, 0.6}], PointBox[{230, 0.9}], 
   PointBox[{240, 0.05}], PointBox[{240, 0.3}], PointBox[{240, 0.4}], 
   PointBox[{240, 0.5}], PointBox[{250, 0.3}], PointBox[{250, 0.5}], 
   PointBox[{260, 0.3}], PointBox[{270, 0.3}], PointBox[{270, 0.5}], 
   PointBox[{280, 0.3}], PointBox[{290, 0.3}], PointBox[{290, 0.5}]},
  AspectRatio->1,
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{0, 1}]], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10001.},
 CellChangeTimes->{{3.6266698566064453`*^9, 3.6266698607626953`*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"F", "=", "1"}]], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{{3.5363009590091248`*^9, 3.5363009593059998`*^9}, {
   3.5685252615469217`*^9, 3.568525262453974*^9}, 3.6260724754208984`*^9}],

Cell[BoxData[
 GraphicsBox[{PointBox[{5, 0.3}], PointBox[{5, 0.5}], PointBox[{5, 0.9}], 
   PointBox[{10, 0.05}], PointBox[{10, 0.1}], PointBox[{10, 0.15}], 
   PointBox[{10, 0.2}], PointBox[{10, 0.25}], PointBox[{10, 0.3}], 
   PointBox[{10, 0.35}], PointBox[{10, 0.4}], PointBox[{10, 0.45}], 
   PointBox[{10, 0.5}], PointBox[{10, 0.55}], PointBox[{10, 0.6}], 
   PointBox[{10, 0.65}], PointBox[{10, 0.7}], PointBox[{10, 0.75}], 
   PointBox[{10, 0.8}], PointBox[{10, 0.85}], PointBox[{10, 0.9}], 
   PointBox[{10, 0.95}], PointBox[{10, 0.975}], PointBox[{10, 1.}], 
   PointBox[{15, 0.3}], PointBox[{15, 0.5}], PointBox[{15, 0.9}], 
   PointBox[{20, 0.05}], PointBox[{20, 0.3}], PointBox[{20, 0.5}], 
   PointBox[{20, 0.9}], PointBox[{20, 0.975}], PointBox[{25, 0.3}], 
   PointBox[{25, 0.5}], PointBox[{25, 0.9}], PointBox[{30, 0.05}], 
   PointBox[{30, 0.3}], PointBox[{30, 0.5}], PointBox[{30, 0.6}], 
   PointBox[{30, 0.7}], PointBox[{30, 0.8}], PointBox[{30, 0.9}], 
   PointBox[{30, 0.975}], PointBox[{40, 0.05}], PointBox[{40, 0.3}], 
   PointBox[{40, 0.5}], PointBox[{40, 0.6}], PointBox[{40, 0.7}], 
   PointBox[{40, 0.8}], PointBox[{40, 0.9}], PointBox[{40, 0.975}], 
   PointBox[{50, 0.05}], PointBox[{50, 0.3}], PointBox[{50, 0.5}], 
   PointBox[{50, 0.6}], PointBox[{50, 0.7}], PointBox[{50, 0.8}], 
   PointBox[{50, 0.9}], PointBox[{50, 0.975}], PointBox[{60, 0.05}], 
   PointBox[{60, 0.3}], PointBox[{60, 0.5}], PointBox[{60, 0.6}], 
   PointBox[{60, 0.7}], PointBox[{60, 0.8}], PointBox[{60, 0.9}], 
   PointBox[{60, 0.975}], PointBox[{70, 0.05}], PointBox[{70, 0.3}], 
   PointBox[{70, 0.5}], PointBox[{70, 0.6}], PointBox[{70, 0.7}], 
   PointBox[{70, 0.8}], PointBox[{70, 0.9}], PointBox[{70, 0.975}], 
   PointBox[{80, 0.05}], PointBox[{80, 0.3}], PointBox[{80, 0.5}], 
   PointBox[{80, 0.6}], PointBox[{80, 0.7}], PointBox[{80, 0.8}], 
   PointBox[{80, 0.9}], PointBox[{80, 0.975}], PointBox[{90, 0.05}], 
   PointBox[{90, 0.3}], PointBox[{90, 0.5}], PointBox[{90, 0.6}], 
   PointBox[{90, 0.7}], PointBox[{90, 0.8}], PointBox[{90, 0.9}], 
   PointBox[{100, 0.05}], PointBox[{100, 0.1}], PointBox[{100, 0.15}], 
   PointBox[{100, 0.2}], PointBox[{100, 0.25}], PointBox[{100, 0.3}], 
   PointBox[{100, 0.35}], PointBox[{100, 0.4}], PointBox[{100, 0.45}], 
   PointBox[{100, 0.5}], PointBox[{100, 0.55}], PointBox[{100, 0.6}], 
   PointBox[{100, 0.65}], PointBox[{100, 0.7}], PointBox[{100, 0.75}], 
   PointBox[{100, 0.8}], PointBox[{100, 0.85}], PointBox[{100, 0.9}], 
   PointBox[{100, 0.95}], PointBox[{110, 0.05}], PointBox[{110, 0.3}], 
   PointBox[{110, 0.5}], PointBox[{110, 0.6}], PointBox[{110, 0.7}], 
   PointBox[{110, 0.8}], PointBox[{110, 0.9}], PointBox[{120, 0.05}], 
   PointBox[{120, 0.3}], PointBox[{120, 0.5}], PointBox[{120, 0.6}], 
   PointBox[{120, 0.7}], PointBox[{120, 0.8}], PointBox[{120, 0.9}], 
   PointBox[{130, 0.05}], PointBox[{130, 0.3}], PointBox[{130, 0.5}], 
   PointBox[{130, 0.6}], PointBox[{130, 0.7}], PointBox[{130, 0.8}], 
   PointBox[{130, 0.9}], PointBox[{140, 0.05}], PointBox[{140, 0.3}], 
   PointBox[{140, 0.5}], PointBox[{140, 0.6}], PointBox[{140, 0.7}], 
   PointBox[{140, 0.8}], PointBox[{140, 0.9}], PointBox[{150, 0.05}], 
   PointBox[{150, 0.3}], PointBox[{150, 0.5}], PointBox[{150, 0.6}], 
   PointBox[{150, 0.7}], PointBox[{150, 0.9}], PointBox[{160, 0.05}], 
   PointBox[{160, 0.3}], PointBox[{160, 0.5}], PointBox[{160, 0.6}], 
   PointBox[{160, 0.7}], PointBox[{160, 0.9}], PointBox[{170, 0.05}], 
   PointBox[{170, 0.3}], PointBox[{170, 0.5}], PointBox[{170, 0.6}], 
   PointBox[{170, 0.7}], PointBox[{170, 0.9}], PointBox[{180, 0.05}], 
   PointBox[{180, 0.3}], PointBox[{180, 0.5}], PointBox[{180, 0.6}], 
   PointBox[{180, 0.7}], PointBox[{180, 0.9}], PointBox[{190, 0.05}], 
   PointBox[{190, 0.3}], PointBox[{190, 0.5}], PointBox[{190, 0.6}], 
   PointBox[{190, 0.7}], PointBox[{190, 0.9}], PointBox[{200, 0.05}], 
   PointBox[{200, 0.1}], PointBox[{200, 0.15}], PointBox[{200, 0.2}], 
   PointBox[{200, 0.25}], PointBox[{200, 0.3}], PointBox[{200, 0.35}], 
   PointBox[{200, 0.4}], PointBox[{200, 0.45}], PointBox[{200, 0.5}], 
   PointBox[{200, 0.55}], PointBox[{200, 0.6}], PointBox[{200, 0.65}], 
   PointBox[{200, 0.7}], PointBox[{200, 0.75}], PointBox[{200, 0.8}], 
   PointBox[{200, 0.85}], PointBox[{210, 0.05}], PointBox[{210, 0.3}], 
   PointBox[{210, 0.5}], PointBox[{210, 0.6}], PointBox[{210, 0.7}], 
   PointBox[{220, 0.05}], PointBox[{220, 0.3}], PointBox[{220, 0.5}], 
   PointBox[{220, 0.6}], PointBox[{220, 0.7}], PointBox[{230, 0.05}], 
   PointBox[{230, 0.3}], PointBox[{230, 0.5}], PointBox[{240, 0.05}], 
   PointBox[{240, 0.3}], PointBox[{240, 0.5}], PointBox[{250, 0.3}], 
   PointBox[{250, 0.5}], PointBox[{260, 0.3}], PointBox[{270, 0.3}], 
   PointBox[{270, 0.5}], PointBox[{280, 0.3}], PointBox[{290, 0.3}], 
   PointBox[{290, 0.5}]},
  AspectRatio->1,
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{0, 1}]], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{3.6266332860683594`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"F", "=", "dp"}]], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10001.},
 CellChangeTimes->{{3.5363009470872498`*^9, 3.5363009487903748`*^9}, 
   3.626116648774414*^9}],

Cell[BoxData[
 GraphicsBox[{PointBox[{1, 0}], PointBox[{1, 0.1}], PointBox[{1, 0.2}], 
   PointBox[{1, 0.25}], PointBox[{1, 0.3}], PointBox[{1, 0.4}], 
   PointBox[{1, 0.5}], PointBox[{1, 0.6}], PointBox[{1, 0.7}], 
   PointBox[{1, 0.8}], PointBox[{1, 0.9}], PointBox[{1, 0.95}], 
   PointBox[{10, 0}], PointBox[{10, 0.}], PointBox[{10, 0.05}], 
   PointBox[{10, 0.1}], PointBox[{10, 0.15}], PointBox[{10, 0.2}], 
   PointBox[{10, 0.25}], PointBox[{10, 0.3}], PointBox[{10, 0.35}], 
   PointBox[{10, 0.4}], PointBox[{10, 0.45}], PointBox[{10, 0.5}], 
   PointBox[{10, 0.55}], PointBox[{10, 0.6}], PointBox[{10, 0.65}], 
   PointBox[{10, 0.7}], PointBox[{10, 0.75}], PointBox[{10, 0.8}], 
   PointBox[{10, 0.85}], PointBox[{10, 0.9}], PointBox[{10, 0.95}], 
   PointBox[{20, 0}], PointBox[{20, 0.05}], PointBox[{20, 0.1}], 
   PointBox[{20, 0.2}], PointBox[{20, 0.3}], PointBox[{20, 0.4}], 
   PointBox[{20, 0.5}], PointBox[{20, 0.9}], PointBox[{25, 0.5}], 
   PointBox[{30, 0}], PointBox[{30, 0.05}], PointBox[{30, 0.1}], 
   PointBox[{30, 0.2}], PointBox[{30, 0.3}], PointBox[{30, 0.4}], 
   PointBox[{30, 0.5}], PointBox[{30, 0.9}], PointBox[{35, 0.5}], 
   PointBox[{40, 0}], PointBox[{40, 0.05}], PointBox[{40, 0.1}], 
   PointBox[{40, 0.2}], PointBox[{40, 0.3}], PointBox[{40, 0.4}], 
   PointBox[{40, 0.5}], PointBox[{40, 0.9}], PointBox[{45, 0.5}], 
   PointBox[{50, 0}], PointBox[{50, 0.01}], PointBox[{50, 0.05}], 
   PointBox[{50, 0.1}], PointBox[{50, 0.2}], PointBox[{50, 0.3}], 
   PointBox[{50, 0.4}], PointBox[{50, 0.5}], PointBox[{50, 0.6}], 
   PointBox[{50, 0.9}], PointBox[{55, 0.5}], PointBox[{60, 0}], 
   PointBox[{60, 0.05}], PointBox[{60, 0.1}], PointBox[{60, 0.2}], 
   PointBox[{60, 0.3}], PointBox[{60, 0.4}], PointBox[{60, 0.5}], 
   PointBox[{60, 0.9}], PointBox[{65, 0.5}], PointBox[{70, 0}], 
   PointBox[{70, 0.05}], PointBox[{70, 0.1}], PointBox[{70, 0.2}], 
   PointBox[{70, 0.3}], PointBox[{70, 0.4}], PointBox[{70, 0.5}], 
   PointBox[{70, 0.6}], PointBox[{70, 0.9}], PointBox[{75, 0.5}], 
   PointBox[{80, 0}], PointBox[{80, 0.05}], PointBox[{80, 0.1}], 
   PointBox[{80, 0.2}], PointBox[{80, 0.3}], PointBox[{80, 0.4}], 
   PointBox[{80, 0.5}], PointBox[{80, 0.6}], PointBox[{80, 0.7}], 
   PointBox[{80, 0.9}], PointBox[{85, 0.5}], PointBox[{90, 0}], 
   PointBox[{90, 0.05}], PointBox[{90, 0.1}], PointBox[{90, 0.2}], 
   PointBox[{90, 0.3}], PointBox[{90, 0.4}], PointBox[{90, 0.5}], 
   PointBox[{90, 0.9}], PointBox[{95, 0.5}], PointBox[{100, 0}], 
   PointBox[{100, 0.}], PointBox[{100, 0.01}], PointBox[{100, 0.05}], 
   PointBox[{100, 0.1}], PointBox[{100, 0.15}], PointBox[{100, 0.2}], 
   PointBox[{100, 0.25}], PointBox[{100, 0.3}], PointBox[{100, 0.35}], 
   PointBox[{100, 0.4}], PointBox[{100, 0.45}], PointBox[{100, 0.5}], 
   PointBox[{100, 0.55}], PointBox[{100, 0.6}], PointBox[{100, 0.65}], 
   PointBox[{100, 0.7}], PointBox[{100, 0.75}], PointBox[{100, 0.8}], 
   PointBox[{100, 0.85}], PointBox[{100, 0.9}], PointBox[{105, 0.5}], 
   PointBox[{110, 0.05}], PointBox[{110, 0.3}], PointBox[{110, 0.5}], 
   PointBox[{110, 0.9}], PointBox[{115, 0.5}], PointBox[{120, 0.05}], 
   PointBox[{120, 0.3}], PointBox[{120, 0.5}], PointBox[{120, 0.9}], 
   PointBox[{130, 0.05}], PointBox[{130, 0.3}], PointBox[{130, 0.5}], 
   PointBox[{130, 0.9}], PointBox[{140, 0.05}], PointBox[{140, 0.3}], 
   PointBox[{140, 0.5}], PointBox[{140, 0.9}], PointBox[{150, 0.01}], 
   PointBox[{150, 0.05}], PointBox[{150, 0.3}], PointBox[{150, 0.5}], 
   PointBox[{150, 0.9}], PointBox[{160, 0.3}], PointBox[{160, 0.5}], 
   PointBox[{160, 0.9}], PointBox[{170, 0.3}], PointBox[{170, 0.5}], 
   PointBox[{170, 0.9}], PointBox[{180, 0.3}], PointBox[{180, 0.5}], 
   PointBox[{180, 0.9}], PointBox[{190, 0.3}], PointBox[{190, 0.5}], 
   PointBox[{190, 0.9}], PointBox[{200, 0.01}], PointBox[{200, 0.05}], 
   PointBox[{200, 0.1}], PointBox[{200, 0.15}], PointBox[{200, 0.2}], 
   PointBox[{200, 0.25}], PointBox[{200, 0.3}], PointBox[{200, 0.35}], 
   PointBox[{200, 0.4}], PointBox[{200, 0.45}], PointBox[{200, 0.5}], 
   PointBox[{200, 0.55}], PointBox[{200, 0.6}], PointBox[{200, 0.65}], 
   PointBox[{200, 0.7}], PointBox[{200, 0.75}], PointBox[{200, 0.8}], 
   PointBox[{200, 0.85}], PointBox[{200, 0.9}], PointBox[{200, 0.975}], 
   PointBox[{210, 0.05}], PointBox[{210, 0.3}], PointBox[{210, 0.5}], 
   PointBox[{210, 0.9}], PointBox[{220, 0.05}], PointBox[{220, 0.3}], 
   PointBox[{220, 0.5}], PointBox[{220, 0.9}], PointBox[{230, 0.05}], 
   PointBox[{230, 0.3}], PointBox[{230, 0.9}], PointBox[{240, 0.3}], 
   PointBox[{250, 0.3}]},
  AspectRatio->1,
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{0, 1}]], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10001.},
 CellChangeTimes->{{3.6261166421289062`*^9, 3.6261166487783203`*^9}, 
   3.6266333175341797`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"F", " ", "=", " ", "r"}]], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10002.},
 CellChangeTimes->{{3.5363009185716248`*^9, 3.5363009359622498`*^9}, 
   3.626116655455078*^9}],

Cell[BoxData[
 GraphicsBox[{PointBox[{1, 0.3}], PointBox[{1, 0.5}], PointBox[{1, 0.9}], 
   PointBox[{5, 0.3}], PointBox[{5, 0.5}], PointBox[{10, 0.05}], 
   PointBox[{10, 0.1}], PointBox[{10, 0.15}], PointBox[{10, 0.2}], 
   PointBox[{10, 0.25}], PointBox[{10, 0.3}], PointBox[{10, 0.35}], 
   PointBox[{10, 0.4}], PointBox[{10, 0.45}], PointBox[{10, 0.5}], 
   PointBox[{10, 0.55}], PointBox[{10, 0.6}], PointBox[{10, 0.65}], 
   PointBox[{10, 0.7}], PointBox[{10, 0.75}], PointBox[{10, 0.8}], 
   PointBox[{10, 0.85}], PointBox[{10, 0.9}], PointBox[{10, 0.95}], 
   PointBox[{10, 0.975}], PointBox[{20, 0.3}], PointBox[{20, 0.4}], 
   PointBox[{20, 0.5}], PointBox[{20, 0.6}], PointBox[{20, 0.7}], 
   PointBox[{20, 0.8}], PointBox[{20, 0.9}], PointBox[{20, 0.975}], 
   PointBox[{30, 0.3}], PointBox[{30, 0.4}], PointBox[{30, 0.5}], 
   PointBox[{30, 0.6}], PointBox[{30, 0.7}], PointBox[{30, 0.8}], 
   PointBox[{30, 0.9}], PointBox[{30, 0.975}], PointBox[{40, 0.3}], 
   PointBox[{40, 0.4}], PointBox[{40, 0.5}], PointBox[{40, 0.6}], 
   PointBox[{40, 0.7}], PointBox[{40, 0.8}], PointBox[{40, 0.9}], 
   PointBox[{40, 0.975}], PointBox[{50, 0.3}], PointBox[{50, 0.4}], 
   PointBox[{50, 0.5}], PointBox[{50, 0.6}], PointBox[{50, 0.7}], 
   PointBox[{50, 0.8}], PointBox[{50, 0.9}], PointBox[{50, 0.975}], 
   PointBox[{60, 0.3}], PointBox[{60, 0.4}], PointBox[{60, 0.5}], 
   PointBox[{60, 0.6}], PointBox[{60, 0.7}], PointBox[{60, 0.8}], 
   PointBox[{60, 0.9}], PointBox[{60, 0.975}], PointBox[{70, 0.3}], 
   PointBox[{70, 0.4}], PointBox[{70, 0.5}], PointBox[{70, 0.6}], 
   PointBox[{70, 0.7}], PointBox[{70, 0.8}], PointBox[{70, 0.9}], 
   PointBox[{70, 0.975}], PointBox[{80, 0.3}], PointBox[{80, 0.4}], 
   PointBox[{80, 0.5}], PointBox[{80, 0.6}], PointBox[{80, 0.7}], 
   PointBox[{80, 0.8}], PointBox[{80, 0.9}], PointBox[{80, 0.975}], 
   PointBox[{90, 0.3}], PointBox[{90, 0.4}], PointBox[{90, 0.5}], 
   PointBox[{90, 0.6}], PointBox[{90, 0.7}], PointBox[{90, 0.8}], 
   PointBox[{90, 0.9}], PointBox[{100, 0.05}], PointBox[{100, 0.1}], 
   PointBox[{100, 0.15}], PointBox[{100, 0.25}], PointBox[{100, 0.3}], 
   PointBox[{100, 0.35}], PointBox[{100, 0.4}], PointBox[{100, 0.45}], 
   PointBox[{100, 0.5}], PointBox[{100, 0.55}], PointBox[{100, 0.6}], 
   PointBox[{100, 0.65}], PointBox[{100, 0.7}], PointBox[{100, 0.75}], 
   PointBox[{100, 0.8}], PointBox[{100, 0.85}], PointBox[{100, 0.9}], 
   PointBox[{110, 0.3}], PointBox[{110, 0.4}], PointBox[{110, 0.5}], 
   PointBox[{110, 0.6}], PointBox[{110, 0.7}], PointBox[{110, 0.8}], 
   PointBox[{110, 0.9}], PointBox[{120, 0.3}], PointBox[{120, 0.4}], 
   PointBox[{120, 0.5}], PointBox[{120, 0.6}], PointBox[{120, 0.7}], 
   PointBox[{120, 0.8}], PointBox[{120, 0.9}], PointBox[{130, 0.3}], 
   PointBox[{130, 0.4}], PointBox[{130, 0.5}], PointBox[{130, 0.6}], 
   PointBox[{130, 0.7}], PointBox[{130, 0.9}], PointBox[{140, 0.3}], 
   PointBox[{140, 0.4}], PointBox[{140, 0.5}], PointBox[{140, 0.6}], 
   PointBox[{140, 0.7}], PointBox[{140, 0.9}], PointBox[{150, 0.3}], 
   PointBox[{150, 0.4}], PointBox[{150, 0.5}], PointBox[{150, 0.6}], 
   PointBox[{150, 0.7}], PointBox[{150, 0.9}], PointBox[{160, 0.3}], 
   PointBox[{160, 0.4}], PointBox[{160, 0.5}], PointBox[{160, 0.6}], 
   PointBox[{160, 0.7}], PointBox[{160, 0.9}], PointBox[{170, 0.3}], 
   PointBox[{170, 0.4}], PointBox[{170, 0.5}], PointBox[{170, 0.6}], 
   PointBox[{180, 0.3}], PointBox[{180, 0.4}], PointBox[{180, 0.5}], 
   PointBox[{180, 0.6}], PointBox[{190, 0.3}], PointBox[{190, 0.4}], 
   PointBox[{190, 0.5}], PointBox[{190, 0.6}], PointBox[{200, 0.3}], 
   PointBox[{200, 0.4}], PointBox[{200, 0.5}], PointBox[{200, 0.6}], 
   PointBox[{210, 0.3}], PointBox[{210, 0.4}], PointBox[{210, 0.5}], 
   PointBox[{210, 0.6}], PointBox[{220, 0.3}], PointBox[{220, 0.4}], 
   PointBox[{220, 0.5}], PointBox[{220, 0.6}], PointBox[{230, 0.3}], 
   PointBox[{230, 0.4}], PointBox[{230, 0.6}], PointBox[{240, 0.3}], 
   PointBox[{240, 0.4}]},
  AspectRatio->1,
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{0, 1}]], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10002.},
 CellChangeTimes->{3.626669774629883*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Union", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"First", "[", "#", "]"}], "&"}], "/@", 
   RowBox[{"Union", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"GetFields", "[", 
       RowBox[{"#", ",", 
        RowBox[{"{", 
         RowBox[{"\"\<Re\>\"", ",", "\"\<r/R\>\""}], "}"}]}], "]"}], "&"}], "/@", 
     RowBox[{"GetResults", "[", 
      RowBox[{"{", "}"}], "]"}]}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5445843174905243`*^9, 3.544584334300486*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1", ",", "5", ",", "10", ",", "15", ",", "20", ",", "25", ",", "30", ",", 
   "35", ",", "40", ",", "45", ",", "50", ",", "55", ",", "60", ",", "65", 
   ",", "70", ",", "75", ",", "80", ",", "85", ",", "90", ",", "95", ",", 
   "100", ",", "105", ",", "110", ",", "115", ",", "120", ",", "130", ",", 
   "140", ",", "150", ",", "160", ",", "170", ",", "180", ",", "190", ",", 
   "200", ",", "210", ",", "220", ",", "230", ",", "240"}], "}"}]], "Output",
 CellChangeTimes->{{3.5445843282061377`*^9, 3.5445843353195443`*^9}, 
   3.5986042845527344`*^9, 3.598605225375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Union", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"4", 
     RowBox[{"First", "[", "#", "]"}], 
     SqrtBox[
      RowBox[{"2", 
       RowBox[{"Last", "[", "#", "]"}]}]]}], "&"}], "/@", 
   RowBox[{"Union", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"GetFields", "[", 
       RowBox[{"#", ",", 
        RowBox[{"{", 
         RowBox[{"\"\<Re\>\"", ",", "\"\<r/R\>\""}], "}"}]}], "]"}], "&"}], "/@",
      "$res"}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.500804607421875*^9, 3.50080462509375*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "15.491933384829668`", ",", "20.`", ",", "26.832815729997478`", ",", 
   "30.983866769659336`", ",", "40.`", ",", "46.47580015448901`", ",", 
   "53.665631459994955`", ",", "55.85696017507576`", ",", "60.`", ",", 
   "61.96773353931867`", ",", "77.45966692414834`", ",", "80.`", ",", 
   "80.49844718999243`", ",", "92.95160030897802`", ",", "100.`", ",", 
   "107.33126291998991`", ",", "111.71392035015153`", ",", "120.`", ",", 
   "123.93546707863734`", ",", "131.45341380123986`", ",", 
   "134.16407864998737`", ",", "141.9859147943908`", ",", 
   "151.7893276880822`", ",", "154.91933384829667`", ",", "160.`", ",", 
   "160.99689437998487`", ",", "167.5708805252273`", ",", 
   "175.27121840165313`", ",", "185.90320061795603`", ",", 
   "189.31455305918772`", ",", "200.`", ",", "202.3857702507763`", ",", 
   "214.66252583997982`", ",", "216.88706738761536`", ",", 
   "219.08902300206643`", ",", "223.42784070030305`", ",", 
   "236.64319132398464`", ",", "240.`", ",", "247.8709341572747`", ",", 
   "252.98221281347034`", ",", "262.9068276024797`", ",", 
   "268.32815729997475`", ",", "278.85480092693405`", ",", 
   "279.28480087537883`", ",", "280.`", ",", "283.9718295887816`", ",", 
   "303.5786553761644`", ",", "306.724632202893`", ",", "309.83866769659335`",
    ",", "320.`", ",", "321.99378875996973`", ",", "331.3004678535785`", ",", 
   "335.1417610504546`", ",", "340.8225344662527`", ",", 
   "350.54243680330626`", ",", "354.17509793885847`", ",", "360.`", ",", 
   "371.80640123591206`", ",", "375.65942021996466`", ",", 
   "378.62910611837543`", ",", "390.99872122553035`", ",", 
   "394.36024140371956`", ",", "400.`", ",", "402.79026800557136`", ",", 
   "404.7715405015526`", ",", "425.9577443831723`", ",", 
   "429.32505167995964`", ",", "433.7741347752307`", ",", 
   "438.17804600413285`", ",", "440.`", ",", "446.8556814006061`", ",", 
   "455.36798306424663`", ",", "464.75800154489`", ",", "473.2863826479693`", 
   ",", "480.`", ",", "481.99585060454615`", ",", "482.99068313995457`", ",", 
   "495.7418683145494`", ",", "505.9644256269407`", ",", "520.`", ",", 
   "520.6150209127662`", ",", "525.8136552049594`", ",", "526.7257350842087`",
    ",", "536.6563145999495`", ",", "556.5608681896348`", ",", 
   "557.7096018538681`", ",", "560.`", ",", "567.9436591775632`", ",", 
   "569.6314598053727`", ",", "588.6934686235273`", ",", "590.3219460599445`",
    ",", "600.`", ",", "607.1573107523288`", ",", "613.449264405786`", ",", 
   "615.27229744236`", ",", "619.6773353931867`", ",", "640.`", ",", 
   "643.9875775199395`", ",", "650.661202162846`", ",", "657.2670690061993`", 
   ",", "657.7537533150229`", ",", "662.600935707157`", ",", "680.`", ",", 
   "681.6450689325054`", ",", "697.6532089799344`", ",", "701.0848736066125`",
    ",", "708.3501958777169`", ",", "709.9295739719539`", ",", 
   "712.6289357021648`", ",", "720.`", ",", "743.6128024718241`", ",", 
   "744.9026782070258`", ",", "751.3188404399293`", ",", "757.2582122367509`",
    ",", "760.`", ",", "774.5966692414834`", ",", "788.7204828074391`", ",", 
   "800.`", ",", "804.5868505015478`", ",", "804.9844718999243`", ",", 
   "805.5805360111427`", ",", "832.5382874078524`", ",", "836.5644027808021`",
    ",", "840.`", ",", "851.9154887663447`", ",", "858.6501033599193`", ",", 
   "867.5482695504614`", ",", "876.3560920082657`", ",", "880.`", ",", 
   "898.5321363201208`", ",", "899.2441270311416`", ",", "912.3157348199142`",
    ",", "920.`", ",", "920.173896608679`", ",", "946.5727652959386`", ",", 
   "960.`", ",", "963.9917012090923`", ",", "965.9813662799091`", ",", 
   "993.9014035607355`", ",", "1000.`", ",", "1019.6469977399041`", ",", 
   "1041.2300418255325`", ",", "1080.`", ",", "1160.`"}], "}"}]], "Output",
 CellChangeTimes->{{3.500804591296875*^9, 3.500804625421875*^9}, 
   3.5015728331875*^9, 3.507270141208625*^9, 3.5986042799941406`*^9, 
   3.598605223274414*^9, 3.5992145245680623`*^9, 3.599386705902047*^9, 
   3.599459882833688*^9}]
}, Closed]],

Cell[BoxData[
 RowBox[{"$res", "=", 
  RowBox[{"GetResults", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\"\<r/R\>\"", ">", "0.1"}], ",", 
     RowBox[{"\"\<Re\>\"", "->", "1"}], ",", 
     RowBox[{"\"\<F(r)\>\"", "\[Rule]", "\"\<dp\>\""}]}], "}"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.604215975321289*^9, 3.6042160170166016`*^9}, {
   3.6042160965908203`*^9, 3.604216146495117*^9}, {3.60421618653125*^9, 
   3.604216201989258*^9}, {3.6042162966279297`*^9, 3.6042162967441406`*^9}, 
   3.604216397626953*^9, {3.6193445755908203`*^9, 3.6193445770214844`*^9}, {
   3.6194349855527344`*^9, 3.6194349930664062`*^9}, {3.6194359641152344`*^9, 
   3.619435973586914*^9}, {3.624869932576172*^9, 3.624869940142578*^9}, {
   3.625393348482422*^9, 3.6253933524960938`*^9}, {3.625466016705078*^9, 
   3.6254660256621094`*^9}, {3.6254668139765625`*^9, 
   3.6254668217128906`*^9}, {3.625468914631836*^9, 3.6254689741591797`*^9}, {
   3.6266120037646484`*^9, 3.6266120119785156`*^9}}],

Cell[BoxData[
 RowBox[{"ShowTable", "[", 
  RowBox[{
   RowBox[{"GetResults", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\"\<Re\>\"", "\[Rule]", "100"}], ",", 
      RowBox[{"\"\<F(r)\>\"", "->", "\"\<dp\>\""}], ",", 
      RowBox[{"\"\<r/R\>\"", "->", "0.5"}]}], "}"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "\"\<year\>\"", ",", "\"\<month\>\"", ",", "\"\<day\>\"", ",", 
     "\"\<Nxz\>\"", ",", "\"\<Re\>\"", ",", "\"\<r/R\>\"", ",", 
     "\"\<F(r)\>\"", ",", "\"\<shift\>\"", ",", "\"\<mvx\>\"", ",", 
     "\"\<mvy\>\"", ",", "\"\<mvz\>\"", ",", "\"\<Evx\>\"", ",", 
     "\"\<Evy\>\"", ",", "\"\<Evz\>\"", ",", "\"\<m\[Psi]\>\"", ",", 
     "\"\<\[Delta]m\[Psi]\>\""}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.44583852246875*^9, 3.445838549265625*^9}, {
   3.4486947765*^9, 3.448694778890625*^9}, {3.44938758534375*^9, 
   3.449387586109375*^9}, {3.45023722728125*^9, 3.450237229109375*^9}, {
   3.500804225625*^9, 3.50080422840625*^9}, {3.5026137356296253`*^9, 
   3.5026137558015003`*^9}, 3.5026138003640003`*^9, {3.505797789984375*^9, 
   3.505797790171875*^9}, {3.5685260340181046`*^9, 3.5685260398614388`*^9}, {
   3.623479858498047*^9, 3.6234798759726562`*^9}, 3.623480313008789*^9, {
   3.6234806513632812`*^9, 3.6234806573164062`*^9}, 3.623480900203125*^9, 
   3.6234811051972656`*^9, {3.6234850929492188`*^9, 3.623485096998047*^9}, {
   3.624869643885742*^9, 3.624869648908203*^9}, 3.6248696896679688`*^9, {
   3.624869787796875*^9, 3.6248698135742188`*^9}, {3.624869848008789*^9, 
   3.624869884196289*^9}, {3.624870023298828*^9, 3.624870023397461*^9}, 
   3.6261181640585938`*^9, {3.6266008154140625`*^9, 3.626600824618164*^9}, {
   3.6266013803007812`*^9, 3.626601386620117*^9}, {3.6266097630703125`*^9, 
   3.6266097651640625`*^9}, {3.6266111280996094`*^9, 
   3.6266111307246094`*^9}, {3.6266115116933594`*^9, 
   3.6266115120996094`*^9}, {3.6266119958740234`*^9, 
   3.6266120147285156`*^9}, {3.626620270091797*^9, 3.6266202755820312`*^9}, {
   3.626622828801758*^9, 3.626622828876953*^9}, 3.6266237113515625`*^9, {
   3.6266297704453125`*^9, 3.6266297764501953`*^9}, {3.6266654820410156`*^9, 
   3.6266654917910156`*^9}, {3.626673278294922*^9, 3.626673290560547*^9}, {
   3.630637088802398*^9, 3.630637097765911*^9}}],

Cell[CellGroupData[{

Cell["\<\
\:0417\:0430\:0432\:0438\:0441\:0438\:043c\:043e\:0441\:0442\:044c \:043e\
\:0442 \:0414\:0438\:043d\:0430 \:0438 \:043d\:0435 \:0442\:043e\:043b\:044c\
\:043a\:043e\
\>", "Subsubsection",
 CellChangeTimes->{{3.409559282888*^9, 3.40955929567*^9}, {3.409561191457*^9, 
  3.40956119519*^9}, {3.617440216900375*^9, 3.617440225804672*^9}}],

Cell[BoxData[
 RowBox[{"Graphics", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Point", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"First", "[", "#", "]"}], 
         SqrtBox[
          RowBox[{"2", 
           RowBox[{"Last", "[", "#", "]"}]}]]}], ",", 
        RowBox[{"Last", "[", "#", "]"}]}], "}"}], "]"}], "&"}], "/@", 
    RowBox[{"Union", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"GetFields", "[", 
        RowBox[{"#", ",", 
         RowBox[{"{", 
          RowBox[{"\"\<Re\>\"", ",", "\"\<r/R\>\""}], "}"}]}], "]"}], "&"}], "/@",
       "$res"}], "]"}]}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
   RowBox[{"Axes", "\[Rule]", "True"}], ",", 
   RowBox[{"AxesOrigin", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0"}], "}"}]}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0", ",", "1"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.613147879438266*^9, 3.6131478820456877`*^9}, {
  3.6131479428230314`*^9, 3.6131480750525236`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Select", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"First", "[", "#", "]"}], 
        SqrtBox[
         RowBox[{"2", 
          RowBox[{"Last", "[", "#", "]"}]}]]}], ",", 
       RowBox[{"Last", "[", "#", "]"}]}], "}"}], "&"}], "/@", 
    RowBox[{"Union", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"GetFields", "[", 
        RowBox[{"#", ",", 
         RowBox[{"{", 
          RowBox[{"\"\<Re\>\"", ",", "\"\<r/R\>\""}], "}"}]}], "]"}], "&"}], "/@",
       "$res"}], "]"}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"Abs", "[", 
      RowBox[{
       RowBox[{"First", "[", "#", "]"}], "-", "70"}], "]"}], "<", "5"}], 
    "&"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6131486617898283`*^9, 3.613148740171664*^9}, {
  3.6131490156023283`*^9, 3.613149040563266*^9}, {3.6131495325486174`*^9, 
  3.6131495438367033`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"67.08203932499369`", ",", "0.9`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"70.`", ",", "0.5`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"71.55417527999327`", ",", "0.4`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"69.71370023173351`", ",", "0.3`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"70.71067811865476`", ",", "0.25`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"66.40783086353596`", ",", "0.05`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"69.57010852370435`", ",", "0.05`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"72.73238618387272`", ",", "0.05`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.6131486857517424`*^9, 3.6131487646443205`*^9}, {
  3.613149034732211*^9, 3.613149040875766*^9}, {3.61314953302518*^9, 
  3.6131495446394377`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"SortBy", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       FractionBox[
        RowBox[{"First", "[", "#", "]"}], 
        SqrtBox[
         RowBox[{"2", 
          RowBox[{"Last", "[", "#", "]"}]}]]], ",", 
       RowBox[{"Last", "[", "#", "]"}]}], "}"}], "&"}], "/@", "%"}], ",", 
   "Last"}], "]"}]], "Input",
 CellChangeTimes->{{3.6131485492068205`*^9, 3.6131485960886564`*^9}, {
  3.61314874815018*^9, 3.613148776156039*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"209.99999999999997`", ",", "0.05`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"220.`", ",", "0.05`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"229.99999999999997`", ",", "0.05`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"100.`", ",", "0.25`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"90.00000000000001`", ",", "0.3`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"80.00000000000001`", ",", "0.4`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"70.`", ",", "0.5`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"50.`", ",", "0.9`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.613148596763461*^9, {3.6131487489587736`*^9, 3.613148776450961*^9}, 
   3.6131490488992033`*^9, 3.613149555285922*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Select", "[", 
  RowBox[{"$res", ",", 
   RowBox[{
    RowBox[{
     RowBox[{"GetFields", "[", 
      RowBox[{"#", ",", 
       RowBox[{"{", 
        RowBox[{"\"\<Re\>\"", ",", "\"\<r/R\>\""}], "}"}]}], "]"}], 
     "\[Equal]", 
     RowBox[{"{", 
      RowBox[{"210.", ",", "0.05"}], "}"}]}], "&"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6131488199451017`*^9, 3.6131488324167814`*^9}, {
  3.613148922912875*^9, 3.6131489275456877`*^9}, {3.613149058438266*^9, 
  3.6131490620212736`*^9}, {3.6131495658718596`*^9, 3.6131495659343596`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
   "2009", ",", "5", ",", "4", ",", "128", ",", "210", ",", "0.05`", ",", 
    "0.0001`", ",", "\<\"dp\"\>", ",", "0", ",", "0.4662566248413038`", ",", 
    "0.0539124687608549`", ",", "8.`*^-7", ",", "0.7765597734232681`", ",", 
    "9.`*^-6", ",", "0.03512482182304249`", ",", "2.`*^-6", ",", 
    "0.0005517685951014016`", ",", "2.`*^-8", ",", "0.17736129550513094`", 
    ",", "4.9999999999999996`*^-6", ",", "0.00019252280531999636`", ",", 
    "1.`*^-8", ",", "0.017504447455250004`", ",", "0.0017503723437500007`", 
    ",", "\<\"ErrScale 1e-4\"\>"}], "}"}], "}"}]], "Output",
 CellChangeTimes->{3.613148833390414*^9, 3.613148927989047*^9, 
  3.6131490629079924`*^9, 3.6131495667986174`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"FrameLabel", "\[Rule]", 
  RowBox[{"{", 
   RowBox[{
   "\"\<Dean\>\"", ",", 
    "\"\<\!\(\*FractionBox[\(Re\), SqrtBox[\(\[Kappa]\)]]\)\>\""}], 
   "}"}]}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"maps", "=", 
  RowBox[{"Grid", "@", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"ListContourPlot", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Function", "[", 
         RowBox[{"elem", ",", 
          RowBox[{
           RowBox[{
            RowBox[{"{", 
             RowBox[{"re", ",", "shift", ",", "kappa"}], "}"}], "=", "elem"}],
            ";", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"re", 
              RowBox[{"(", 
               SqrtBox[
                RowBox[{"2", "kappa"}]], ")"}]}], ",", 
             FractionBox["kappa", 
              RowBox[{"(", 
               SqrtBox["re"], ")"}]], ",", "shift"}], "}"}]}]}], "]"}], "/@", 
        RowBox[{"Union", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"GetFields", "[", 
            RowBox[{"#", ",", 
             RowBox[{"{", 
              RowBox[{"\"\<Re\>\"", ",", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{
                 "\"\<shift\>\"", ",", "\"\<mvx\>\"", ",", "\"\<mvy\>\"", 
                  ",", "\"\<m\[Psi]\>\""}], "}"}], "\[LeftDoubleBracket]", 
                "i", "\[RightDoubleBracket]"}], ",", "\"\<r/R\>\""}], "}"}]}],
             "]"}], "&"}], "/@", 
          RowBox[{"GetResults", "[", 
           RowBox[{"{", 
            RowBox[{"\"\<F(r)\>\"", "\[Rule]", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"\"\<r\>\"", ",", "\"\<1\>\"", ",", "\"\<dp\>\""}], 
               "}"}], "\[LeftDoubleBracket]", "k", 
              "\[RightDoubleBracket]"}]}], "}"}], "]"}]}], "]"}]}], ",", 
       RowBox[{"PlotLabel", "\[Rule]", 
        RowBox[{
         RowBox[{
          RowBox[{"{", 
           RowBox[{
           "\"\<\:0421\:0434\:0432\:0438\:0433\>\"", ",", 
            "\"\<max \!\(\*SubscriptBox[\(v\), \(x\)]\)\>\"", ",", 
            "\"\<max \!\(\*SubscriptBox[\(v\), \(y\)]\)\>\"", ",", 
            "\"\<max \[Psi]\>\""}], "}"}], "\[LeftDoubleBracket]", "i", 
          "\[RightDoubleBracket]"}], "<>", "\"\< \:043f\:0440\:0438 F=\>\"", "<>", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
           "\"\<\[Epsilon]r\>\"", ",", "\"\<const\>\"", ",", 
            "\"\<\!\(\*FractionBox[\(\[PartialD]p\), \
\(\[PartialD]x\)]\)\>\""}], "}"}], "\[LeftDoubleBracket]", "k", 
          "\[RightDoubleBracket]"}]}]}], ",", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "250"}], "}"}], ",", "All"}], "}"}]}], ",", 
       RowBox[{"FrameLabel", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
         "\"\<Dean\>\"", ",", "\"\<\[Kappa]/\!\(\*SqrtBox[\(Re\)]\)\>\""}], 
         "}"}]}], ",", 
       RowBox[{"ContourLabels", "->", "All"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"k", ",", "1", ",", "3"}], "}"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.624810084959961*^9, 3.6248100864560547`*^9}, {
  3.624811483729492*^9, 3.6248114853466797`*^9}, {3.624811528748047*^9, 
  3.6248115376777344`*^9}, {3.62481200896875*^9, 3.624812012129883*^9}, {
  3.6248120851533203`*^9, 3.6248121289541016`*^9}, {3.624812605897461*^9, 
  3.624812608995117*^9}, {3.624814105578125*^9, 3.6248141138935547`*^9}, {
  3.624856253361328*^9, 3.6248562679902344`*^9}, {3.6248563835878906`*^9, 
  3.6248563838222656`*^9}, {3.6261180598945312`*^9, 3.626118060133789*^9}, {
  3.626677835435547*^9, 3.626677856201172*^9}, {3.626677910498047*^9, 
  3.626677915998047*^9}, {3.62667849971875*^9, 3.626678503296875*^9}, {
  3.626678949265625*^9, 3.62667895290625*^9}, {3.6266790400625*^9, 
  3.626679048421875*^9}, {3.626679169390625*^9, 3.626679189390625*^9}}],

Cell[BoxData[
 TagBox[GridBox[{
    {
     GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJxlVnc81vsXVzfVLw0lRdceFxlRMh5xjhUPWWXvvRJpG6GElG5uUcjee2Zk
70jK6GooKYriChWVys/t+dznj/r887zO8z2fM9/vcz689l77nZYzMDCwLWNg
+PdX8wh8COgch10/Tj8w/DjT5HcYHGb1DC1PfoTuu/+eSXiiq1cytLAex5vW
PqOKNRG9zfj4n4Y2waS7cMDiCcV03//wKCVZ96lkJGR/uH7j5MhGIifDnxky
fQXjrJhnMn1ci5pN9NnJ92JoXMPN0K7JgRuomvYsijeJPy6iXwWDRfmrymp4
UNM5JvyMUS2xz0vuN0JAK7+Yymc+bFI+9mheppnEJ0Dstf4i35xsrXn9WQCt
9TkmJVTbSXyCxF8HTG4qrSnt/gO/WLcuOundAfHmq73MuULE/13wdWOKLQkQ
xmuHPFgSLO6RfERIPD2/yPrOsV05LNuRXekCy9tdvfB1ysFt19/bSbx9MOkY
PuD5lyi6qlsnMFL6wW7uy1DxP6KooNEfGFHTT+ohQepfQvKXwhcmzr2VrypI
ftKkH7W/yLT8dtP7R8tHFkcj5B8y/K+VxCtP7LWT+Cj4jO9ql2dzJ4lHAbfV
SK/6NNYFAn4LK8b2yGLwIfOp35nyYYHoF7x/nbiptJT4V8KY4uS9160rf5FF
v2ZbnfVEcr8WUnslEiIalFGWdY12j8V//VQh9ppB8f2ay6+51ZC/r2XWcHUb
dMrtyVKbVcMvp3JKVna2k/oo0fFFq48yHV80/2p0fP0s0+qjTscbrT4adLzR
6kOl441WHy063mj10Sb9agHNv3olDlqpYobq4sKbqgzomzl91shyLw6tWNS7
NJdP/FNxjcOiAdu20l/kWd3WvY/ttcn9cqgq/cQYHaWDKLCYUWNyC4RmI6me
SXrEXi1YHR/ixTZ9rD2y6F+k1QjfHlte/POYAc45N3AoZTaRfmlgX9POSKcH
aaRfWthqMuUedjiX+NfFJ3MPUg1Di0l/9Il+GemPAd6JiDx9gq+S9Gc/uV9N
+mOItXz7TGPq60h/DNFPUSTkCkcjLDoKDtpzaGNA377gBxapIDhJ1d+oq4fZ
bBuLDvtm0/wHGWCf9d9P1sYWwrOed1tjRA8Q/VIYo9pV3rtpiFc/SsTyHSyH
8Q2Bu7r5jMn9KuDwlv0a4WuCdQrvW+vDayD6+u8tX7xMcd2ApZH833UEH7oE
/ykEHwYE75kkf0PCl/xfZBo+jOj8o+HDhPDnJsGHGZ2PNHyYE/7cIviwIPyp
AYv4WtWCQwZ4hMzH/+o3pRPE4nctg9TDGN3sbB+xf80F9D0d0ZJhSvSL4Qil
fWJ/kjlKqjGX5I2UQl3mbpWR45bkfjkMekQOPN5hTcczDS+A/psLNV74HqPj
kSafo+OtiitkwqDqT6hyZmn0KzDAuNgfh+D5APmeCH2D1zuT3hrikrD0Twqx
Z0zspUNCuVjllUoTZHqYdlhxTRappxmxlwPDQhXutnLmuN3ycvNH4Xzi34LY
L/xFzrqe6M59xhLTl6w9TCsmfLAi/kvgkaruolWiNUr/2GdlJF8bEs9Nwg9b
Ek8lzD4Hbq19ttjyUXgpgnKQCX3NLqJjhDu+Z9YaaSWA8/T08dYYU+z6zt4/
EppG+mGBpwOGb8e7ZkM6P9Oyd9zWRL8AAqNZIyfUbHGmvsJ01ZYS6OQ6ke3v
aEful4HOzWOmV4/YY7rSaZ3G+XLCRxMy/+IJH83JvEsl9bIm8zKL8NGWPm9p
fLQj87KY8NGePn9peHIk87IcNh5mnk4XM8PeU0KMJ2fiIPKfAcvUjVYou9Bq
qjeXQvOHtriCMicxcjQTzjnfpazrtiP6udC6TjNXnOKASZWmg2u8ikB8Z0qb
fLcTJsQ9U2XffZPw2wJD4thUIudiCb9tsGhjzcAaPWI/yA63DbhFdKdmEH47
EP0cwm9HnLG+Pb9fq5Dw2QVHj16RmjxVBpNmlHaetVbodcC/TpI1lt7PuYhv
wl1VyTT7jfa4a3rP+2+v00FGgeUj3wVHop8Da0J9W712OGN+RU2Yg2oBrC3u
3jks5IZRSpx/jt4vJfPhP77EkPlgR3+/0PrhSPZFOpkHTvR9Q5sHLmRf5BP+
u5P9UAqjvDt17x23RWUxfZ/sy9dh9qgBa9EyBzSJZJ3f7Z5E6u+EMr6Hqu1S
02Bsg3mRnIYL0c8i88IOh3/Ml2v0/p6586wpKSyR1NcZIxO3P27ZnEbmhSvR
z4TeLRryEU72+P6SZLwt9RqEHWldzaXkhO9cJnxFKxNI/VzwI0+/mN+VVIgd
TXbTXeFO9DMJ/x3IPoomfHcm+yee1MeN7K9Uwt+D9P3XwGQpoGXkiF0f+Xxe
7Yym99dpNjjlqSq5j+4YeHJ21C03BbRvjfE7NnkQ/QzCTyek3KXc4K6IIvx0
xU/VaT6BCTdI/gdx0HBlvpdKCuGnJ9FPhwIG7w2r1Z1xEFX3RClHQYlX7ruF
Cjf0NV6xsG35Dfh2SWLIJ8CLfE8n/HQh++8q4ac72Xdx8IjJdILxNQPqVH+2
vNU3DJt7O/4+/5wRQ5g42UXThuBCqVG5eMU0BKaH8XyofQmZcm4H1Pk24vr7
2cB1ZwCCjwVRnkbPgLkI9Te7ihEoPWL1VIpFBHvEXhud9S0Ak/stip7Nwjgt
ucDArpwC/c7miWp5Mqiikx3n7JsHlIio/tmnwhieeMjW/FEx9AmbyfbPC6Pp
bmkVoZk8uDjsK8+1XgQlN77x0bIuAvP4pCRqmDBmz+4PYTMrBZVlAbry34QQ
L8aV+dnfBL5VJhqpAttQ4quDTS08gI5FleV8LEJo7L25m2npvfZh07u3WoHc
eN5Hr3aR+x54DQpKHvEWxH1ocPol1kLnsRPBh+7woe9Jz4Gk503wYo/kgNo7
frxT/7J59/1BuGy34ltk13Y0n5lX2JV8Dz4kWGcnafKgrs3znOzyFyBmtqAI
c6KYOS48IjZ4F/4IKRB/aiuCZXlREKrdA9pSTEkNEhz4znuietOyURBTP/Ii
8p4Y8pnbvmZL6oLKwqnrFQ3bMNgyqoCrYxQe9gx0RaIkXqLs7AnkvQ0XdlzX
4fSVwbzWeJaAvwphwXXlm54CGZSz4z97PjAfhgOiJU7yi6N6lY6S+54uEGw+
PK37chf2TB7PydSthY7nihTfFFk8de6Qm59oN/19PO22s+xOVBuciB3jO+0k
gxWrjVfwKPXAZi7NdeMvtiGzzW3jAPtxqF6fBf6HZDD3mlPx3YUBmNyekFZQ
L49Xll1mm6u+DYrWw+LB/gp4X0P2zAf3VujTCKm0N1HEZpNtl7IfNsKBseqU
xHOAW5o/zE4/ugU5LE92eHBwYmLoJ9Hv7m8AZqXOx8XL4W/GW7RDWJ9Dm+/4
2u+r1FHFFfx+z26HiwXqf/BvRQxZZRDTpVYBDWEa3t95Eb+LJ0cf1S6EvS4R
cRmDiK+z1LzXXUuBxodrK6UZ1LGeOUtdur4d5s2zNjWxUpHryymLJtEKmJUX
7DzxXQ0P7nPJK2lph0HL8EYvRk30YvK48VS2DqpTkzm3buZBYcoKNaGhN6Ds
U3W1I0YBQ62DOHbpvoAoff27zVc1sIPx85vT/r2w8qHqvtszVEwT19LkEiuC
ZyuBMbaWF1WiM7bEcL0F5qrH4gOPlLCqWIy9R+slmM+FTxa5aaFZjIss89QD
EDP9zHGh2BDlxbQ8Q+Ub4Z3unFFKCBXnPXxets4VwFFv/0MTHMbIbOD3j0Rd
JdjYSeUWCRhhto01pUegDoY4TiVd9ufHNxycN8L3voXpdp5kT35lfAVyjE5j
LyE31MH0losONrZlDgUxPwQp/gOrlw8Y4uGt1U5e6Y2QyCb3WarTEEN6JSux
rgFsJBm27j1KxZ5TkzrcZXEQZiRVqL70XorgcflG7a0Hc95bQ/ZtxtjE+amr
z64EVMSer+VSFcQ7PROqtvZvge88VW18WAXP148LhhqOwI3UgrPn5PTxvGnX
BtNLj0DgjMxIFIMJ/uZ6IUtjpBU6RtdXec0Y4pN2x3TOkjrI2gK7R0WM0frN
2JTyrQrQPLNcoXuHMdaOSzwTmK0AH2GVriQGI1QafPmHvlYtsFJzHgxMCeOj
GNfyXIFwOBEoIqbyRAZ5V7dxCjCfgYZkzQM6DMq4cwePZv77v2Ds28FO81HE
IJEO5dnBkxA/lv49cEATT07GyrOEhcO7yxMK578a4542Dx27w6lwcWTVV+d5
Y6wPNONSYFzap9pfzdYOGOMlV6YdJjrxUCOz59nRTnecCrZ+8NinBNYFxeLj
KHecjK4cG9EphQql4lP2Le6YH1zUcCW+BChXbfKCznmgh8FnfmmZdGCAAbnK
qaX9oTAa93ykmL5/vTuNKNr8JeBw73JLv5cHvkq5YL55fwYY15V0WTR64HjK
q0bGJbwfzJNnkz7sgYXBTFaC0um/zOef58nP/PkZHz/n/3O8/wdAaf1x
       "], {{
         {RGBColor[0.293416, 0.0574044, 0.529412], EdgeForm[None], 
          GraphicsGroupBox[{
            PolygonBox[{{10, 5, 9}, {8, 9, 5}, {10, 11, 5}, {5, 11, 12}, {190,
              6, 187}, {198, 13, 197}, {187, 6, 258}, {7, 5, 4}, {6, 2, 1}, {
             196, 13, 198}, {7, 4, 6}, {8, 5, 7}}], 
            PolygonBox[{{191, 8, 7, 186}, {181, 6, 4, 182}, {186, 7, 6, 
             190}, {195, 12, 11, 193}, {192, 10, 9, 189}, {193, 11, 10, 
             192}, {184, 5, 12, 194}, {197, 13, 12, 195}, {182, 4, 5, 184}, {
             194, 12, 13, 196}, {185, 2, 6, 181}, {189, 9, 8, 191}, {183, 1, 
             2, 185}}]}]}, 
         {RGBColor[
          0.4929635661978001, 0.40436372680408833`, 0.8099002441606625], 
          EdgeForm[None], 
          GraphicsGroupBox[{
            PolygonBox[{{194, 3, 184}, {18, 3, 17}, {21, 3, 20}, {28, 18, 
             17}, {22, 3, 21}, {15, 3, 14}, {19, 3, 18}, {17, 3, 15}, {28, 15,
              14}, {28, 17, 15}, {205, 28, 210}, {204, 3, 201}, {28, 21, 
             20}, {196, 3, 194}, {184, 3, 182}, {182, 3, 181}, {206, 3, 
             204}, {190, 28, 186}, {28, 22, 21}, {28, 19, 18}, {201, 3, 
             199}, {28, 20, 19}, {181, 3, 185}, {20, 3, 19}, {200, 28, 202}, {
             235, 3, 231}, {215, 3, 206}, {221, 3, 215}, {231, 3, 221}, {211, 
             29, 208}, {192, 28, 193}, {191, 28, 189}, {186, 28, 191}, {185, 
             3, 183}, {207, 29, 211}, {193, 28, 195}, {202, 28, 205}, {189, 
             28, 192}, {250, 3, 242}, {242, 3, 235}, {195, 28, 197}}], 
            PolygonBox[{{197, 28, 14, 198}, {188, 187, 258, 259}, {198, 14, 3,
              196}, {203, 22, 28, 200}, {199, 3, 22, 203}, {210, 28, 29, 
             207}, {208, 29, 28, 209}}], 
            PolygonBox[{{209, 28, 190, 187, 188}}]}]}, 
         {RGBColor[
          0.6095334429052847, 0.6010128255971616, 0.9105408472451612], 
          EdgeForm[None], 
          GraphicsGroupBox[{
            PolygonBox[{{260, 96, 261}, {37, 32, 30}, {37, 33, 32}, {37, 96, 
             38}, {32, 33, 27}, {39, 38, 96}, {203, 24, 199}, {37, 34, 33}, {
             39, 96, 46}, {32, 27, 30}, {207, 27, 210}, {226, 96, 260}, {38, 
             34, 37}, {200, 24, 203}, {214, 27, 212}, {27, 33, 34}, {188, 37, 
             209}, {213, 38, 218}, {219, 39, 220}, {225, 96, 226}, {209, 37, 
             208}}], PolygonBox[CompressedData["
1:eJwtzk0OwVAUxfGn7MCkfRKJJph1MVYgFsAGzanQihLfwoikRsyY+N84g19y
73s5J7c1GPWGgXOujhq++OCFt9hc4okH7jjjggJNNJDrzf622ClTKmPZFBE8
5lgpa/sCB3TQxVFvXpkZJgi1p+rw6siw1hxjjyXaurFQR6SOKa5I0MdNmVg3
bFCt/P+sY4yTbkuU/QGEVC39
             "]], PolygonBox[{{216, 215, 206, 27, 214}}]}]}, 
         {RGBColor[
          0.7073425328010521, 0.7581648173909206, 0.9127705932386704], 
          EdgeForm[None], 
          GraphicsGroupBox[{
            PolygonBox[{{228, 57, 234}, {50, 51, 45}, {47, 55, 43}, {48, 44, 
             55}, {224, 41, 220}, {64, 57, 51}, {64, 56, 97}, {56, 50, 97}, {
             48, 97, 50}, {225, 41, 224}, {51, 50, 56}, {55, 44, 43}, {48, 45,
              44}, {36, 43, 44}, {227, 45, 223}, {229, 45, 227}, {42, 41, 
             47}, {42, 43, 36}, {214, 36, 216}, {213, 35, 217}, {43, 42, 
             47}, {45, 48, 50}, {42, 36, 41}, {217, 35, 212}, {234, 57, 
             239}, {219, 36, 218}, {56, 64, 51}, {36, 44, 45}, {55, 97, 48}}],
             PolygonBox[{{239, 57, 64, 247}, {252, 251, 243, 244}, {220, 41, 
             36, 219}, {261, 97, 55, 260}, {247, 64, 97, 262}, {244, 243, 236,
              237}, {230, 51, 57, 228}, {218, 36, 35, 213}, {223, 45, 51, 
             230}, {212, 35, 36, 214}, {226, 47, 41, 225}, {216, 36, 45, 
             222}, {260, 55, 47, 226}, {237, 236, 232, 233}}], 
            PolygonBox[{{233, 232, 222, 45, 229}}]}]}, 
         {RGBColor[
          0.8008174051017929, 0.8597321485886513, 0.8969235247344804], 
          EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJxNkcEOwUAURYuE7/AP2FCNaptSi1Zsyq4dliR+2AaJFVZi5744EouTmc68
e9990251WO6bnucNREsshRNrMRGp6LMO2SciEDG6PndGxVkPvd0VIhK1GAmf
mjN1VzHmzKc2podRirloN77+L+Fpv9HyJo8je02taWb45eIpVuJBvc23QLfl
u6S25jvB0yd3iGaNxnpbhk7jqwuZP0cTMlfAbFMy5fQt6FVzVnFufTNxFDty
h2T4zW/rnbezNzzh59A6fI9kdewvZLnhkfKfYvQZ2WfkDZihxC/4e98xNSle
Q+YoOS/wjbgf0TvhPMPDpz7C3/p8ADXrObU=
             "]], 
            PolygonBox[{{233, 54, 63, 237}, {264, 102, 114, 265}, {234, 65, 
             52, 228}, {253, 252, 244, 245}, {257, 114, 84, 241}, {223, 52, 
             53, 227}, {239, 98, 65, 234}, {240, 84, 102, 255}, {238, 63, 70, 
             246}, {263, 91, 102, 264}, {248, 76, 101, 254}, {255, 102, 91, 
             256}, {227, 53, 54, 229}, {246, 70, 76, 248}, {254, 101, 114, 
             257}}], PolygonBox[{{245, 244, 237, 63, 238}}]}]}, 
         {RGBColor[
          0.8886566062355247, 0.8890241816083516, 0.8575716413421426], 
          EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJw1lEtPmkEUhudrF20Xbdqf0F/jqpo0sbAQSLqREoUSsFgviFBBURFFCVWw
gnipgUZif5dpFzWu2r4n87h48n1z5sy5z7x+n3qbfOSc2xWPRU80xXdxLeri
QMyKLbEoCqIsFsSciCGPIAuJliiKCnbOsPUicO5C35f6fkRvW6yIjrjkf5+1
2U6JtMiLmviKzo6oik2xhn2Tf+G8+U6KPZERE2JaxMU71vdiTNyJMDKL/40Y
Z890PyCfQDYOn7H5NPD/T/R1gT//T/xGP5AsgY8QcaXIr4CPOPWL4O8ZNs32
JP6m0S2g843eWQ26YiAO6eOQ/Rq1m4ecWKaf1tdVsUS/WtgtEIvplTjXp7Yb
1DnPehFbe/ShSgxZ5+dkC7sVdErYXcfGBnbWia2NLE+vL7Fp/W4QS4n/Eucs
f5vZJucbyG1268RV4+wJ+sfiCN+W2z7++vj/S+/uyWeAnW3yaeNjmbiL9LSC
/Sb1t9qm2W/gfx6dOnGsUdMqdnP4sV4/zJ1hM2CzcEdst9RlhTrZnI0R+y06
f6iN5XojrsRI/HT+bt4QwynyK+pwQi0u0P3h/EzbbP+iHtfUeIgPs3XOekT+
tt5F1/ycsXeKvEvsA3RHyI/QN5s97A/R7VKrA2pnZz9R5xTx18jhnDjsbIc+
9+lPj73ngc/xVeDjO6Y3HXTN5yE+u8SySYx2f2acn/McvbW3rUIsdteXkKXB
YrV5yNM7O9NCx3QT9L2MTZPbPNh7UHD+PcuiV8ZPEbtR598Ve2umnH9XHt4+
+05yfoq13fcI/jLomR972+1u2521uW1Tzxh7SfIOE0uG2OLIEshnqFGUPGLU
YJb/KH5iyObwmWRvFXmcmDPIw9heoAYh1ll68R+dMeBB
             "]], 
            PolygonBox[{{274, 174, 180, 269}, {263, 121, 78, 249}, {267, 145, 
             163, 268}, {249, 78, 77, 256}, {245, 71, 79, 253}, {240, 77, 71, 
             241}, {266, 170, 180, 271}, {272, 167, 174, 274}, {268, 163, 170,
              266}, {271, 180, 167, 270}}]}]}, 
         {RGBColor[0.941176, 0.906538, 0.834043], EdgeForm[None], 
          GraphicsGroupBox[{
            PolygonBox[{{266, 151, 268}, {268, 151, 267}, {274, 171, 272}, {
             269, 171, 274}, {271, 151, 266}, {270, 151, 271}}], 
            PolygonBox[{{273, 175, 171, 269}, {272, 171, 151, 270}}]}]}}, {{}, 
         TagBox[
          TooltipBox[
           {GrayLevel[0], Opacity[0.4], 
            LineBox[{267, 268, 266, 271, 270, 272, 274, 269, 273}]},
           "0.6`"],
          Annotation[#, 0.6, "Tooltip"]& ], 
         TagBox[
          TooltipBox[
           {GrayLevel[0], Opacity[0.4], 
            LineBox[{253, 245, 238, 246, 248, 254, 257, 241, 240, 255, 256, 
             249, 263, 264, 265}]},
           "0.5`"],
          Annotation[#, 0.5, "Tooltip"]& ], 
         TagBox[
          TooltipBox[
           {GrayLevel[0], Opacity[0.4], 
            LineBox[{262, 247, 239, 234, 228, 230, 223, 227, 229, 233, 237, 
             244, 252}]},
           "0.4`"],
          Annotation[#, 0.4, "Tooltip"]& ], 
         TagBox[
          TooltipBox[
           {GrayLevel[0], Opacity[0.4], 
            LineBox[{261, 260, 226, 225, 224, 220, 219, 218, 213, 217, 212, 
             214, 216, 222, 232, 236, 243, 251}]},
           "0.3`"],
          Annotation[#, 0.3, "Tooltip"]& ], 
         TagBox[
          TooltipBox[
           {GrayLevel[0], Opacity[0.4], 
            LineBox[{250, 242, 235, 231, 221, 215, 206, 204, 201, 199, 203, 
             200, 202, 205, 210, 207, 211, 208, 209, 188, 259}]},
           "0.2`"],
          Annotation[#, 0.2, "Tooltip"]& ], 
         TagBox[
          TooltipBox[
           {GrayLevel[0], Opacity[0.4], 
            LineBox[{183, 185, 181, 182, 184, 194, 196, 198, 197, 195, 193, 
             192, 189, 191, 186, 190, 187, 258}]},
           "0.1`"],
          Annotation[#, 0.1, "Tooltip"]& ], {}, {}}, {InsetBox["0.1`", 275], 
         InsetBox["0.2`", 276], InsetBox["0.3`", 277], InsetBox["0.4`", 278], 
         InsetBox["0.5`", 279], InsetBox["0.6`", 280]}}],
      AspectRatio->1,
      Frame->True,
      FrameLabel->{
        FormBox["\"Dean\"", TraditionalForm], 
        FormBox[
        "\"\[Kappa]/\\!\\(\\*SqrtBox[\\(Re\\)]\\)\"", TraditionalForm]},
      Method->{},
      PlotLabel->FormBox[
       "\"\:0421\:0434\:0432\:0438\:0433 \:043f\:0440\:0438 F=\[Epsilon]r\"", 
        TraditionalForm],
      PlotRange->{{0, 250}, All},
      PlotRangeClipping->True,
      PlotRangePadding->{Automatic, Automatic},
      ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztXHtwlUWWb3MfuY+ExwDijFows+wu6zoMCMNiHBRk5CGDw6JgNDwShMvL
CAgKDCEGYzYqaC4Z3gZhwpIoMjxUAiLMUoRhyaqT1V0XJThSKtZSZZVT/mNZ
ZVVvn9OPe757+/vud6/o7CtV+e79Ht2/X59z+vTp0/3dSRXL58+trFi+4IGK
/uMerlgyf8EDy/qPXfywuBS4ijH2qvh/rT+D71x8VYdXGeccblo+puNHQBzb
WILJvwI89hT/JSzZxfEJep8l2lhXsgS/lpTAZ4Il8CY8r54rSbIuUe52CTMD
P6KyGnULq21LGJiuZAI/C9SzcCvRxhGqJNnFeFeSlQhouAvX4N4YWn3AUX2B
ugbVQHH4lC2LGXZtqkku1WetvbuUA8pDkueStSEoybcxKS7dUJ/ku0uCSEqL
X6kEyBptaNikgkmwNp5WfaGn6CdnM4aAwxgmexhUvh8/IurSKumD14LG2FRr
CyyP9sBrEXONkZaS52xFu+G1UEZRQJWtD0sZZ1ZXTEyV/unHKYw7dNhaXsBn
QZc1sh8q/tr05FNSW32V8tsS0iZsz3THM6DSJexHPefyrOVasTGaVPGgD9hi
BWu6tzC6JHz6g+1GbIMUD/hAvsopN90ddZuhNi033a1tz7jJzfas5ZqX3Lxg
ZcOLxb1krpCKcsBRNuADM01i2jPTR65WHVB6Jtkcy3NuQrNVablmE1rAH7KW
Gzo3YxG+UI3caNkCf7A+jK03nsWIU/c0pitid5bungt6kelMPlF7pBXziZYm
PVtv7qN9cJKMbd+dqyvIAb6IyVE91f1gnHWF83CbEXsd8JzkUeAhMSVU24jr
7MUk3uCOkae7cr5SEEaLtiHOdq3Yq3hW8FTpVJTiMrS7j7kuxbOCqzHXK5KR
Bhl3BpdGU06Xp++j438SwvWIrKS3h/4CWe8FZOCvgAos1/5cz/1vwfjvxMV2
Lew0I5uXDmS7hzVeY6k8YrlW7PM52zVbA3r5fA4jtQJLz7GN44Gs95yVR+W1
Xp999lnxF198QbUyuLOz8+rLly/j2cPfkgbsBhH+6quvxr722mvqiep5neI4
d0oLX/OrY7xp22VxJo+rVhzmm3ad5IdPXWYhPGINY44fPx74+uuv2cLstL+h
/+ETu9WLM3kcV1zDp4ypV4TdacP5hueOIeGwpM3rGvbxQ787w9+6cEmciWNc
WZOXlzVTqIBjCnWXe7P7KDnTWkOWa8Er0EyqHd3MptYOvqX5RWxmFI5B3Wls
4QHnPT7//PO/uHDhQsBwTI0vWPTH/OOPu2Tc4X9EAqCwu5AGeDR+bPFj/J6f
P+VofPldO3htzWlH4x9ZdoBv33PG0fjd+9/mDdt3YeOL8RhhB6uGsik7LuHZ
Wzums0FVv4fv/OQfzvHNmzcEoHmi3e01paymvQvPfobHYvZxcyljZU141lw2
xNwXjLHjvv/cvY65PphIKL9WU5UX4DHO7r9ByrLfhL3Y5qZtrexWNoMtFt8n
qnuMDWOJVtM5rRJoFK2wSaD97ff5xo0NBUoCH7evZkNZKWsWZyOVBNprhrCy
ZtlqkMbQmuP8j3/8D75nz06+Z2cjO131Y1be8i7/03++y/7UMpVae24SiFIJ
YPurJ9zN2A0b+cxJz7FZw25kpbWXhWRADmG+fcunfPGKBmzz4VNnWWJSLWs6
dTnoKoQiVzM4euYP/Pnnt6nWwx9K4FYlgOYyZgRwcee97IYFz4HMePvx32Jb
UskDbvKE2QSAY03QpdkPlgxiN03oxGbXzZjMBkw7a5q9/qm3eXX9btXsVjZe
GMNar2bHsamsdDeeNZYOZctOoAjQE7a2/kaads1q1i4+b8OzsFH66dMn2OZF
JeyGuc/CgGEmBCRzqCdfV0jnYPHQ+GnjnmUNc6aSxof4Y1UneMO2o6ypcphE
ntRqrH7/sYvCv2/iZ89dZN2kh0erhz+haFEHXCvkLx4+wQ8e3CvN2SgcO7Yy
+RDrSE5ibORCfuilHWxfxXD0k8pZO7Sdl3uL8juKV0PzMvT9y1Fr2daFZY4m
02HscGstS6xLdfRXTn7K19Svx4b1UoPazpde5q+//io2RCmTnzv3r7y5uYm/
1LKVvTDTeO8waVHaMJVri24vepSXTdzs7Lh/vY7Pm7udLR45zNFxRYvYhrpd
0FmlBd/o2nG/pxr1xvsfoW7Pn39HOmaljB9cunTp+o8++gjPeubndUfGH+IP
/P1u4nUD7K4BUkigiEBKEYL2AjZQGf3AyrNGEaCgfzx4xMH5lZNn0UWCCv4G
jn+bH7+S+AI+f+peyg/5Ql9wi3cKFS9wFODcKC+QbUfHKeR1LRxvzo/X8Fg5
X1J2xMELTODJf3jTwWvZ0n0YkNAx+tCJT3jtM42gV8Prd2/+O29q2swvXnyP
9QReP/fvQgN8cHQaX/XAPzvYgFfZuOEDB5vEnK1839EPXMOlnsTintmyg7/z
zhusO7AZayAj7rIpUGwmdHsCOrODzeq5/8IrZm1wsAF2j1ZvdejsyQ0H+P7X
25FHD8UG4pTGHUKXR18Wvk2wmZCbzjQv4ngMr6XTj/HKRbsdvOoeP4M8qJTA
2Syvkv5VS6nllWPGxiNw/GV+vG4rWorxHeUFNg/BbbZ4b9e+TpQN1R6caxsP
wXFKfrxsfW/GL7bx+ic6sloVnWv0IFYF/a+z86x4Ln9etr4H8XJjw3lkVGCx
L6rHmqcaHH1P6BQCILT2IPC6Ox9eYT4kWspXzj6thwFt80EPswJ1bt+zzzGG
UToBP3SwXwZcSCgDD3rY0NqnW3hb+xsI3xuPQYyMgQQMnpqCv/4f5pNue4yv
SbxlKChbDlrMhYYv4BIB/GolB0KB3ZNNI3EHk5+G5SjVc8BCOSDP28huYnez
MRhJy6VYON6SOM9Xrt3ukAZMJyGMABJ9U1RuPnPmDCJlNY5Cc2tibDhj4XI+
vvhxVnLt9WzcfdpgC/nUO9bz5LPvsbppw3CghanN+HF7hNs9bJxhVd0u/nrH
20jiGjhOzYYdM7dGR/qxfrF6CDDZlMHD2XUlL6MyQDGzZjbIPhIU8LUwm+JL
F7/In9/7ZtiiD0Se5o4s5/veWQRxT8q8myOLwLECZnQGhO8oXsOmDhlhCC+b
eYIvWrBLE8Yp4MhWbUVaVNCnoeMYrXkQ9srLyNDKZUk0Zshq6Y4pXsVKh5YY
sgun7ecrlh9SnpEtuuUmdvvCTa5RiV+mtuSWTqlkrEPKmorQ8kRkykb3+xFY
HvJTaQStdpTmCDaITVjRElH8hAHiLMF0xWnpfd8rOxgyPFKrfFJ4YS08Rw/t
c2Od7hEwNDesf1dN8uXfdWObccoTsQQrSO7e/ISng3+SBlKZ0Rilif9keMbe
A2GMmH7r0U/1HIeO97ad5082bkWafeBYmp81ppKbmQtV8l40g+7P4g9iqgzo
PjLrJF8wbwfTrldMSJAbsIxYek7vLFxtqT3dY9LWgoIu9G6JL+SJe15Aeg/d
fxjEZwKJrZs+4UtXbUBiUUt3wRHyvmw+MBNzRGwuX1R6EDEBe/WqowZTWBz6
WYpJu8CVwFRBk8GERN7TGw85MKllY2Byf+6Yw2IzcbwHTD2+2DKlUYuZ+sJE
LyCH+RAfGpuBzhnQxIgCfcKgLa5swdAUcGIWQ8OQsCxbCyMZLdTRjRrFtF1D
BA8zZwpHDSdfOD2vAkgx4HjBUZvJF+4Xt1ahNH3AgcfZtKsF4brDcXpucHd2
q8M4zRIi2uAgbIYUxO//7UJecDTN5QEXtwgT83gzcoMjGXReed8rMAv3gqP9
wBcc9gMxogGWCAF46fgkYkGHFxG2DavIYpZxg5UZWjsbdHvRSn7/nRupB/MC
oc4EQWbmJr9RRcsg/YpwatnFC45aRwzgZuUGRyaafPbk3/Ca6pM2uGKLdUTz
gKNuElopJmZecDq1ClPGCMCV5wb3k+g9OBUkI4ENrptl/lHoCy5o4JTd60kx
mCVkzOlkPdP+C9naSXLYHlh5Fq9U1T3MJoo5V6OgUKCSyW+dqGGDVBq9wmf3
GF20HFusJ4KKj7ujibDD62ZAXhvP1k7ClR3snk9v3A4KyJFNRMdPbSKKT229
xliqb5rslBF6pc8yCUcxGT9+3WWZoRbklQz5r3ecYM2/bWLLbkpNNyERrxl6
2GwhCVxLEgnHJuVr0lirMCM31kWocRtr6Mm1z7zI2tZNgbUiLefZ2UVM9245
d866kp05fT1QdM1xSbIhm4iFWcr0gSa89q4prFGSZR5sC1UAS+cEP0hjqdyD
F0sxxeNbd592sLRYrngSzoLAktU+s4pNkGr0ICgj7ELPybTekUV326sdqOmN
wG4HEcyc2ZuEtDJz5WoIpC6ALrCwutUVbMScQ14yjUn5OVfFEm1hZRi2eU3I
RwuGRstw/kICItMCtRKGPHvDcU723pTaKMfMkrXxD5YpopEyKSd3QsSJVhw5
DEfyTc+9NGea/svGOaREqqxgPmw0FHKL677muvUmiOd4T4oWp2ESI2ioqQhM
M4N8LuRrgVkvw4yGJEEiw64uDvt2zg0cOHDygQMHWNxDhnrVELdUKF0H0/RM
s4V6QqiZ0eVeZDY3m56Dpa2trZ2DBw8GfuU7d+6Mephh0KhYTV0NvYChJ2Jy
k2RW4Z3MRFnmj9+DY8KdouQSHPVP4m/UqFEf9u/fHyhGjJRSfV4nKDJ7iKSm
4ndDTSWeHNRo/jsbNdVLBp47d25Jg/hbsmQJ/I8/cuQI3b6mA3mDSzflaFw6
jc+GqywLcABvy/z58wG//4cffsiu9YmrraVy+XocxAC3BxznueNi7y4AOBYA
k4l8+eWXeOd6AqoWjAyoChYdoNBQWNDzDcoCO8vLy82tfqmAKWTmESQyFWFU
Ztq8Oxzn5wGkGqamE8wWKOqGCd/FX3j1vSuCp+YTnngZsfCCK4dHV4eM4kje
zh9ekOBhVtiWgr2a0FCL69Yl2ZAl4MEZh8eGQhuNBIwWMryk7wFQGiojaGjA
2iz0UUpDTCghZM2BRjxdGuq7GC0TqVBQi6avBx8aYWk+sI4u4rrUNHNRNj5R
dz7khb7vp7pb0OTn1EJdocVvFhlZ0PFQpYoJImm18NhJPQDLqF06UJkAp3lB
FdZELK4Eo8oHc9EBV28jpqKblInQGY+k8XexOZgZARqPVpyCzHDE0jH80XB2
xNTGmvReIaFpaKoikYglMs0HWm/Qoi87ynFdz5yyUqCGh3nSyhyVQA2wLalW
F1LvulAl0BBXxRaaxuZfX8T9Bv5peEkCwh3VD0QsQSVBI1ZFIWoZcHBh46G8
R7ZU6KnGbY1BA3mfGCvr6+vTnL5sCs2zpMFQaeIS52J3mAGkSp2QJUtnMUsv
CeVZpRriYxbTw/1gS/xVqfba0ART3JKHD2SpMtd3blLRsqRBtjHqAT5O5A/r
7MK7yZn7UncavnfNp207DnhTKVIhKpns+CSS31sHchfASLXdSG9kZj9cw+q2
wbCSOSn0QcXrfQzbPlyyHhxg1fNeZoN6DGcLN3wgAh6JX1N9EkNtKLQ4fZTz
IwDbVliqCRXRIvhP+9zMHtryaXfA9vG2h9eMjTaW2qAaWRXcCFjjxqYuy2b2
9tkX3RtKW6U3eq6eu58N71PiB2aApfjK2S+wkr4joXgxFF/uuzg2cHQfeHC0
/+Ihiq4HPoZlH8lSVvpxfBsB914Jx+KvoAsodoBHv/uy6JFW/M8qi+PDyhwU
5Ci4Ir1be0HhgLkqP5rfpCyGPb/67stiyL/6WyxrUwvO6KvyA/2uyzqymGty
K+vI2nqUlR64KEvgQbK38lrAAqn2BchUVLU7ZK6v5unxxoaJkdz09b4xPYdT
s20qfaNPOANTZRNwY9xj2WFtsYNJgCrRw32SMZZmq7a1y2211enexHerzE5A
GiQUZrSKbnyu+YYKJLlT3Xo3WFgjgd1RWzd94gXrvgHKvsBAU7Z61NdpDzGM
Du/o6MAnPPQ3wFIFKmZtbmUQ9vFvoYzafqwZZQ41wXRp12ZjkXsJJ+8nvq3H
8ewKP44Cq/NVp7lle6P8Sl/zgP//Xwf4v9deag70Vzbk4o7d/ckXddg8A54a
B+6Ut8aaW6kMaoHl2vfdqxiNH6klc/nnDBuCeC2AxNoUS72Yy1J71BX3LkeO
g36XGf+I632VkZdVR5nLD6A4ihTY5Keek2urUes9U4eS9V9KaYzCj+vk7fRE
sDlP++6QlpOy3gSfYPR7xvNSML3Sbqd/T/8tRH1urz61epyKXPRL+jTvILfX
hIwi5aw9ba8EqfevpKRuc1RFQ4e+qSQ+pz8V4CYpqRxJUT6TxHgxaX0+ZJTq
JSpKP+J4HcFSv01ScXJNR9Q+pIHCU7Yhu3xvEtu5BeTpis1URIatfDMBpFWv
YzBnkCuz71FShcNDOFuUVQ59U3srPC3BZi0ezzucnlsHIrJWAS1ZXnLF0j98
4fSMRFeyDukcYylVkV9j42mqFjrwEJRjX4+CMz9+SX7x1PjHtN8Qpc9o16p7
d9qeG7wnmQeJ6xWs2xKy+ogjHWqp3stoYtpGnZuaHB1Qi3JANn8SIJbD2WBL
Z72ZOu/CDOfdRdCGMDkaO1grrSWSXcPpoBh2GL38WTn8hcKf0CFWPaHHSCro
YbI26290sav+C1jCs5g=\
\>"]], 
     GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJyFWHk41l3zV48okiRJKWtRSfatmBFl3/f1sdzIrsWStEcpSaKQbNn3275H
liIKUUpJ8rSnRYTEr/e9z3P/rit/vN9/XJ975syZMzPnM3MIOPkauyxmYGAo
XsTA8J+/tG81Pvl0q3VTcic81TegDv1cgW+blj/XEmuC2TFnd+n+dfhc8Mo9
n9tPIPv7teuBrwTwoFKK/jOJRjjWIiS2e1oQm1QPDfyQuw00e8LIrqXpxKnc
AoNF+cyltfyo6RoXftKsDso+ttS+nhZGe0Pej+JqbWS/jZhn8cVfW6tqAY7M
kOsteLuJ4LvQyMLH0KbJS+yXgYnNUyVLXR7iTzF8XFVSW9K1GWfsW+ZdDDrI
ei6yPpv4z0H0U2D77Ss9K3NFiH+dxN4yIo+CYHfWeOoxUbzq7cV5w+Y+kW8h
8m4wdI2/l8O5FXlUznO+l+4h8dpK4tELHynhj3wub8N9e+xvLFF6CI6TM0PF
n7bhTo2HxyNqH5LziJHz9IHwkZ+Mb3aJYG+TVJRLXymJpzg+nexLMw1rBOVx
lkuv+WSwTlDXMq6hi37+lxauPZX/hJH4iZP8Ucl6GZLfOuKfEslnO/FnJ66r
lWGeenMPNC/3iHvaSWPVxtAPRlWFZL0iJsT/56sGO/8hAWxFZH1800+Z5Q49
/wXjr5NWlZwi/svjaW/rsfWs+WS9CsYVp+y9Zl+5AG+bzbY75YNEvw7SesRv
RNxSRXkuFp1um3/razexf5ucXx2Fepu/mS5tXYDbFXZlqX9Tx5mgHCpTe9sf
+TpB4qNCrweaP+r0eqLVyx56/dHqQ4NevzR7WvT6p8VTm17/tHjqkPw2g8i3
KC2f5B04xDhvcHEyhOynhSzO80Zr15WQeKthhtr8z3dVGQvk3/Rb9j5x0iHy
cqgqmVoSG6OHKDyfUWtRTewbEPt1JD+GWHdgPqRIu3EB/vXE9kLkISOcdL3F
q5LZROIrhS0WYx5n/YJJ/jRI/d0k/uiT+ism+TKk1yctX0bYERF1NECwktgz
JvZqSH5MSb3Wk/yY4hHlLaHRvI3wlv24dJegHGav5SjyCw5agOcpmwadeHXw
WK/u6T6bNJo/J4yw177/6fL4Qnje/Zk7bpsJkZfAGy3HyvtlpnhlQjxe0LOc
2DMn9qqAd7/8bESwBdbvHG9pCK+F2Gvrm2d8LZHtka2ZYn89ya8iuU8BCzCt
fvTJ/Uol8TEl9yv/f2JafZnR7yetvixwNELxMcOyf/nMiuxXQerLmtzXalJf
NuS+1kJ9puzuV/67cEzvBOeRq/5gk1inVuBthAcIv9HiZY7ujg4DPLO5CzAG
H41ozrAk+sVwQKntg3GyNUqor6TmvSoh9m2J/XIY9Ip69GSHPf1+0OoPMGR1
ocbL4EMLcO/Xo6fMbPcSfIZezzR+iaTXL00eswBXuXI2HikwIvwTT+6LCVmf
tAD3Dl5rT35vir/B719Syf7mxF76AnyjXKwyutKC8FkWyZcV2S/nf2LaeWzo
fDksUuHhoGCNW20v3Z4QzV8g/xPT7rMd8ZcKWdeSPPhO2mL6b28e3yxeIP8T
D6jpz9sl2aOM9H++UhK/v8n5yuDbC+DT1nXA5gnR3x6VEz5wIOetBM4XXHv/
UXJEY5pDC+y1bwzIDqGo4r05noevwg6CXNhrni16ZrhjLrPOTPsGqScbPHps
+E7ivuwFOF2IddFnPnuiXwDHY7miPqg74NeGCkvmNVRi35HYLwW9skOWVw44
YbrKUb3GH+V/8P8Bwk8WpF8kknzYk36S9T8xjb8c6P2Jxl+OpN8Uk/2cyH4l
hL8opL+UL8DSHj1FzJHqKP+zxdJgcj9w+K38ki5mhT1BIksCvybQ9kcHZFSa
FH91MBPOuHYqsXU5EnkutLBp5m5XcsbkSstBFt8iYo9C7P3mB6nUVsUuF7yR
8FyNR7aM8NleLOKofcRisJ/wow2GJqzdHTUZT+LviOseuUd0pWUs0KfxpTPR
zyF8ScGv9nd+GGsXEn1Xok8lfOmGowejJT8GlULSf++LBk5G/BK9V+UHH62U
2viX26GvSUi9BBfZv9EJpb/sGv/1Oh3kdnJOCJ6nEHkOsIQFt/jucMX8itqz
zmoFsLy4S2pYxB1jVDZEjj4o+aO/+hG+/Zdv4kg+KaRfpxM+daH3cxqfupF+
nb8A0/jUg/TrEli66FzDhpfaaBHF9UPWwxdGBaT07/s7oKqY4eHsS9fgDbt1
kYKGG8FZYDiXP0QVdkedISmFzyF5JL8uKBfsXeOYdhM+bJ9JDjvlhZICs9YN
eVTCn7p4suN5U/JZH8LPjjj8X36/SvLlilFJW580r75J+HgfkWcSPvZACY60
9ryKXMK/PvT+cUD3VWs2iz5+dvsQvK3SG3rWaChGuDjh+EWJRActYr/RDSf4
H4odiU6D+NEUd31GDyLPhNiAF1PjPF74ZeYi616GXLiXt5lt+3NfDPAQ9l9a
WfzHfOFF589/55l/+Yw2n4TS+YcmjyD87UjmmWjC185EP5bwNYXMM/HEvitZ
n0j42Y3ML6SfMbgTe2mEbz3Q0mR+88l3N4k/nvR5isanXjguPd9tfC5rgZzG
j364bWJOeLK1kPCfD0atng8WFskj5/El/uQv0KfxsTfxPwfGdJJf8yQYosu3
06nP1LzgFqutsLYZBe9NCB7+RyqW1IsHHg/8Nuqem7pArlP9RojS5EVwBgyO
cXDKsfvi2kMmbI612YQvjXCq5ubh4zc8CR+7oFKn0nW+ihjCr34Yr+Z7/sGW
f/nYEwdNmfJ9d6cukNP42YesT4ebX3U9XogbY7A54891iz2hgGE/+9I9rjiI
artiVGNIPXnh8oqRZ4YvU/6Y9zwIP7uR+fAKyZcPmR9TIGEidKZVZh+G52/e
1u9N5OhLf4/9iWl86o7v7LaHqrBdgXPvE/45LeyB+f/l52ia/rAf+n84Udou
mkz40JPMg9EQ8KKoW3W1F+pcSzi0hoXo8x/AY0b53N0rkyAr61FPurwgypSb
tbNqVIJrvMCFlhIhnGKS+2u1ej39fTPGwsDXyVcDxwSVT3R5CeMTzu8VI4ca
ocJH4Wnp0CZ0Ff+otMqpCTwNCorS/fgxZ5HDuIJBCTSrVIXJO21GO/XGk4tF
moHrwKnqmen1yHp2k3no2xyYTP4pmdS7DoV4i3RiA7Po77nyyxurzXp+zydc
mrUv2nlw+Q5XnXO+TRBreuRMtTw3bghn7XfYmAoWq+MSWDlXY9oa8eFBmQQo
Dec/olMogkbvj5YWvHsAJ09RRIz/2YRXr614YjDWC1u35vM/URDF4Vg/Bi9q
FyQErp7WOSWMBss7m9R/9MHfnAm8q8KEcHeYE6+sySMovrdr8V+JgujfOWtS
Z/sYMtT2RchKCOIiKfvCtXceQ0TjLqWi3yOFhJgpE9f6AXAqY/3gck8GW7op
YmkyPZAo2iCfVyKIDc5L+vS0B0BPeOzEyVOyeGKXla5cWA8w6q/r9vu0GX9l
Vi81T20Fzc4qPuY4EZQrk1Ww1W6HHctvfWHqR6yRr1lh0dMC1z1qhtFGFR00
+3vaoiNhDvhjkidk8XEg6/AXgy6YCFnG/bVTFXNTT/nnc7dDv0igV4aTAB5/
HL3SuqUMttgIlu6SWoEXvj+cSr0QCa6Sz17d45JFef2pWObaNsC7d99N9cui
BIO7I0fnHXCYywxv4pbD3rpVyRpXOkGzSDhdskEV+ViYK9l+tsFQ/FgIX5U0
psVbbdhwqRnSzzC39xxUxLWZLvGCg/EgPPFy26Y7O3H72tlX/s4VsPP9wD9F
p2RQ6uflbrUdd2F6ZP9h30pV3Ne072u+WCssuzrswx4njUEDm3tej1MhV8H5
7DM9aSy/YSOjEJALTn09L5x4FNGwxKyLVzwUtn9iipGQ2YXLpjKefE6qhTuD
qwc7xBEtEgNG3gc3QLLqkPQla8Q2Pscq88IqeGv31/1Klz14POl6M9uqIsjz
3np+5rwqUp5viF7R3AQaFoVlBfWqWPE24PFF/zaIjxYUL2tQxx+jGsY5ZRWQ
evD+ylxNIcye3Z/XfGkAWvj3KL/YLI8d/I3u51kfwuBpjuoy0904EM5rmLbi
Hvh+mury6NNB+4vae+LbmuF10UjmrmZt3DS7/mKeWxM8ChbNEQjTQjGPgMbv
I3Fw5OtdxooESYz5MJhQwJQMbunWgpRQxMZac32LiGrouONUxW+uilHrHC4q
aofBkdGADE5GRMEQzhCdxeVgVKq05ddNFezRMRl1Yy+Gd05TET+ydqOKvYLH
bFEafL4VOZ1mq46/ZkqMNUJKAQZ35q8I0MC554lMiy6VwtWXXzZwf9fGr5Mi
z/YnNoJqx7kDte46eO4vSc8Wr6uQGHlp5PRSYfzVgKEXiwcgZlHyeDgqopGG
pb1x80MY2/BzZp+KOmonv/ARz++ClbWbZyOe6eB40QqBqp5mGOH3jWS8q4Nz
OwKTbM42w0e9T6HnDstgttEn9cz4Cvr88zJla9eOB////4Zsg5V6D3bEgmt6
4msXH2V8Wzok8y2wEHh+vjt/JWsv7t2yzXBaoZj+vhIdPzz7tvIKsN8eVL77
VBt/RXy9FrKpCTqa1+e/GTLCu9Ski+KDxbDk9Hxhia8RHvuwIVd7TTFk2da5
xuxRxHPvr/i9jYmALwqpX/cck0C/Fa960TMEgoS0VC0LNFBi7XhzfHk59F7L
d2Pi2IsyGQepS8r/f14QLXss9CIwEwxdRyRv/X6P+vjMepWUlcF0APfV6ANm
qNfCJvTLqQradm5xPs1igQlt9nzMVnWw4fimaH5zXWzgZ2u8NHQT+Dkfqjf1
a6N3lLPdhHMTDFhtcQp/oY2GfBrf11VfhQD9aOqyUjVc2/2cxQdSwEimlU0/
zgjd06nC1ZupkFzzSflohREKubWbLQopgLN88oYKEUZYnZ/k/6k7B5xdp1vL
DhvhbdMvByUycyBoUeq0GrMpjirMW/s9pAKXzHWb2c+muFGAd/PXvdXAMun3
0pXbHB3ul3Vkt1TBjc6TAatCLXC1Iof3yoAGsGaU8eOpV8BfN1unTbcHQta7
AI0wD1W8++a7yZ6g8+DPrLWR8kgPKco6w1VBWcChn2G4gWqIPjOugsYdVDAu
WKoe36GLkUFNYhzGKdB1jPdexnFTzH9+/76oaSn0agmEXX1igssfXGXa31IO
2bF3BOYqTVGFqYvdvrAMXrHkTotLmeA9IepJrW/FYHGQLdLsmCEaMpxxwTc5
MN49NPKh1RgV7+y28/1WCl7WZmOsLIb4y8PEgmF5BtQqB3EzGmjidrfrrBy9
qfT317mLa8o7uH+/p/bCnJuVDuZFWF0aUIiGmvWeTt6/70thtbxrvMJFEKSq
8K5jMcAz2U2sTy+nwKaBltvnJQ3xQ3yDdjZ/DlxvV+uvZdTHGP7ux0FSN+HS
SLet5Lg+tsR9O6aSnALpD/ZJyIQY4Yo3vCtUbuTC3eF2N4FlZujDZRNbP1FN
nzf8Gs8atziWQapNurjpciMUpqjPZniVgN7PvZ6OVua47+qk28mOsyDrwcG+
4m9zNF1k7X0kMRRO53EFm8iqIeXMl/zhj9chI97n4cFlqjhuF5zUXH8QZq0c
dZTMzLF46cbyo0vDoMOarW7zSRtk8tco3O6dAmstsUqlxx4dpCNr7o4lQW/d
9CkWD0ccvNDxo9I+E6wYn3MvHrNHiZRXAsLLUqC1eR0KoDpKuLwL/ySXRZ+f
2/728t7YfwaWTXx/IMpogWdEs00Scs5CjFzmO9EaGwwynvHVfXIdum8/SJGw
c0SzdMOJn6FZcEWHdWwu3AE1bnNeNj2eDtqGi7evTXJGW8MrD4/dyYHEwk2R
Sgx78ZfeRtv+lgKwbL68a4ucNSaEPhTvc71Cn9ct20oE4Xk8cEUv6Rte/Tfa
Sdh0xEek0Od334m8pz2L0mGx0gjlfIUTGkkGqrpVZoHwY+vC6nYnnPl+uWm8
NAt0Dxx763mBggod4ye25uTD+n25dhZ8rujIXuFryPC7f9XX3O/NcEFdY+7H
M/q/8a5q3WWSNtg09Fz5fHgsXL3uXqxQ5Yjdr+citmzMAtalbIfeH3DAE6ZF
zj0KaWAkcT97Ts4Rh3SVNOWombBt/ZbZflYKpls2VUib54PCKMze8nTCoUv1
FTubciFdq4hBdsAFLVsEvAx/FkPh7JbRRycpSJEXeFt5pBAMrzlV7RTQQol6
7uVKJhlgMdC3tHSPFjYOlM1Oz52GHHZZ/9pae5xSbq//wZAEQpzpSue9bXAZ
+2Tw6rtx8JZ5s8abX07Yxbwv0rk7C3jD5z+Lhzpia6xtZYb07/du10ir6qwj
9lF2f3Zly4ROprWFp5opeO0JV9i2rQXAyl6u3plJwRNhRYfSYvJB1S6H30XN
GUNspjzS2HJhmFWTx1jYFaWiWrXSZ4thmdMJDZZYTaQ2yWt5+vjB2paMy7pW
DhjDXBOn45sK0sfPPB6RpGBnamEpW2ARGN7IDrIUcsWDCX3zChuoIOQVLXqw
ioI+8ytj2XgKwO5Dkez9Ta5oqn656+sKKrzK+qlTsd4BvxxmX2cdngprHvWn
sB11xIb3Pjec52+C5VzazqkqFxwQV2w520eFSbdDccaLDPD9gcpRsZwUqFKA
+aEdzvhocnaUmpsNIkpdWpItjigWKdXK8jEDhDz5VMKVzTFiWOXi/qOnIZVr
T9DwcXOc8+grZOQIBV3qhUgtURMc2La4eUqGCtasUZ/0d5ihINPTGovjgQvm
2z/noT/74Z/1/2e/+/P8/wcU5EYD
       "], {{
         {RGBColor[0.293416, 0.0574044, 0.529412], EdgeForm[None], 
          GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJxNkEsOAjEMQxs6UL5TYMsKaY7ASTgCB4DLA2LFYNOHxMJKYrl20uPldr5O
UkoHIQtPYSG8hBKNm6puVVWStZ059DtqL5zQD9G0Gf0Ab78V/FyY0dvL/pWM
DXxFl/+0hfye2X4d/tm59CPzd4doxt51GW02b23FJ35vhDd/4H7N/ZmcBzvd
uW3P7gW9330Arm0K7Q==
             "]], 
            PolygonBox[{{248, 9, 12, 249}, {271, 7, 9, 246}, {254, 3, 17, 
             256}, {241, 4, 7, 271}, {243, 5, 4, 241}, {266, 17, 14, 265}, {
             265, 14, 11, 247}, {253, 16, 18, 272}, {247, 11, 8, 245}, {249, 
             12, 3, 251}, {244, 8, 6, 242}, {252, 15, 16, 253}, {242, 6, 5, 
             243}, {251, 3, 13, 250}, {250, 13, 15, 252}}]}]}, 
         {RGBColor[0.415974651055972, 0.2705007953839793, 0.7016830103480475],
           EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJwtkEkOwjAMRRNYgYQYChQ6IZBYd4m4BkfgAHB2WqZSivhW3uLJ07djZ3u+
ni4959xO9MXUO5fJrmRn+JYrZSORiDl+iW92IY7SbUwjG9FrMxZolqISe3EX
H5GLlvetN0N7EKkY+6C/gfm17Ud9zVzricnH1Gr0FXNNW4iOd79i4oPfEefs
9eDWl3A+3PsjtvxAuRE32q0NvW9qphn6sEfMfi2ahjhhvyfWbi3YM+UPCvw/
mpcgxQ==
             "]], 
            PolygonBox[{{248, 29, 37, 246}, {258, 22, 23, 259}, {259, 23, 24, 
             260}, {244, 37, 26, 245}, {255, 20, 21, 257}, {309, 308, 292, 
             293}, {298, 30, 55, 323}, {283, 34, 28, 277}, {254, 19, 20, 
             255}, {282, 31, 34, 283}, {262, 25, 28, 269}, {257, 21, 22, 
             258}, {293, 292, 263, 264}, {266, 26, 19, 256}, {260, 24, 25, 
             261}, {280, 28, 31, 313}, {277, 28, 30, 298}}], 
            PolygonBox[{{264, 263, 261, 25, 262}}]}]}, 
         {RGBColor[
          0.5468402120338355, 0.49804066371648253`, 0.8856303875032078], 
          EdgeForm[None], 
          GraphicsGroupBox[{
            PolygonBox[{{36, 33, 39}, {281, 36, 289}, {287, 41, 301}, {313, 
             73, 280}, {276, 36, 290}, {283, 65, 282}, {290, 36, 281}, {302, 
             39, 316}, {279, 32, 278}, {262, 33, 264}, {299, 41, 287}, {269, 
             33, 262}, {289, 36, 267}, {323, 65, 298}, {298, 65, 277}, {277, 
             65, 283}}], 
            PolygonBox[{{275, 32, 33, 269}, {274, 35, 32, 275}, {322, 35, 38, 
             284}, {285, 33, 32, 279}, {284, 38, 73, 342}, {270, 33, 36, 
             276}, {310, 309, 293, 294}, {278, 32, 35, 322}, {282, 65, 73, 
             313}, {301, 41, 36, 286}, {316, 39, 33, 285}, {273, 38, 35, 
             274}, {267, 36, 41, 299}, {286, 36, 39, 302}, {280, 73, 38, 
             273}}], PolygonBox[{{294, 293, 264, 33, 270}}]}]}, 
         {RGBColor[
          0.6475526228659274, 0.6620990688445687, 0.9114075674475891], 
          EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJw1j70OAWEQRWfoVUJhCY2In2V3SUiIRKhEswWVZhMtnsAzeGRnMqO4OTff
N7lzZ1C9ymdNRDqojtoqcoddmMMCpWiCNmiKcv5WcA93MXeCDfXZIXzAhXjW
KjKW6KKe84breCtin81uYTNyLO+ASnwLXsMncI7G+JvlRB/rlUVH2/GNHZX6
nvR/j3q3nrrMz+BR/T9Tv8fu+qjLfB+eY9dI/X7z9pZEN+v7A8T4FBw=
             "]], 
            PolygonBox[{{296, 53, 52, 314}, {316, 93, 48, 302}, {288, 50, 46, 
             291}, {295, 46, 53, 312}, {301, 48, 101, 287}, {278, 82, 93, 
             279}, {314, 52, 56, 400}, {355, 43, 42, 303}, {305, 51, 50, 
             317}, {281, 43, 44, 290}, {368, 57, 43, 355}, {375, 49, 57, 
             333}, {268, 267, 299, 300}, {291, 46, 44, 304}, {304, 44, 49, 
             375}, {354, 56, 51, 324}, {289, 42, 43, 281}, {290, 44, 46, 
             276}}], PolygonBox[{{300, 299, 287, 101, 369}, {311, 310, 294, 
             46, 295}, {343, 42, 289, 267, 268}}]}]}, 
         {RGBColor[0.7437690914140038, 0.816692161284192, 0.9136010065797118],
           EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJwtkblOA0EQRKch9UeACJxYMggJCFhrAQPmMIcx4r6MwcLcER9ASExGSOK/
5BVTQen1zvRR0zvZe+28jKWU6mgc9SOlLXgHC7iIVtAG3y3YhRdoh/gMTqNv
4inYgHMp1w3QD/pF1cjn83CIton33UM9191XcQs+Oj6ANfRJXIHPnnECr1BT
c+A96moWXEKlesIPe5PHgb0su0a1N5HnaZZm3qIv4jd4HPntp3DT/mfhJWoT
jyK/Wf0nYN216lFEnjPj3qXfWHiX8lpytwp34Z53MvTMwnus+O1Hzl1zr07k
fufw3Tk1n5XOa9ubdrBg/1Xn/N+jZuSd9OChveo/P0XOufYuVdvwfuX9wf9B
PrXHP0xCL5w=
             "]], PolygonBox[CompressedData["
1:eJwtkLlOA1EMRW2Uz6CALqkQREKILEBWBGQhILFmVRRAYvsCmpRpkoKOMg1/
ybn4FUdzxnPfG9vbk4/e+4aZbUIG2m52zPMCungdnvAKlPAv+LGo6dulR1Zn
TvAt+LbIKPsLLbwBr/gzVPEi3OJHcI4XYA/Pw356L3vU5Kod4B31lP6nXsvp
u+6Y4g0o4dcww3OQhUPlEvIlrGDXY7Y11DSL+klndHYMNYs7dfcNzPEF7OB3
6sEiM8SbaX+qveEvHr1oZs3+AG28CT383mMXmu8Mv4JTi0wff/TIaocDfOSx
y/8d4J8evWjnLfwPe0ElYA==
             "]], 
            PolygonBox[{{401, 400, 354, 164, 411}, {357, 75, 319, 331, 
             332}}]}]}, 
         {RGBColor[
          0.8321006449825009, 0.8701642755174219, 0.8829086613018551], 
          EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJxFlE1vzGEUxf+XT2JpbSkRNiQiOq1I8B/GvJBp0EaTTjKN6bQoylSrZfRF
qy8ZCbuurHwNKyuJ7+Gc3J9YnJw7/+c+9+Xc+8ypxvTE1ImiKFrCSeEoimJH
/DLy24ptYUNYF7aEj8IrYV5YFN4Jr4WOMBR2ObdfX/isWAfizUhf31kmlmPu
F3nuvNvCQ+GPMMX9eeKtR9YzIucmeff4vYy/864JT4MaxaPIPO/Fj6mz7lyR
ub5Gfpvh+02hUqSv+7rFnUNrRK0+H+DTEEp8++RfoJ8d9FtE5wXYuva420G3
OaEpVIUHwi/hNz279y52E99poSaMCZ8iez+I1HUDfSqRsa5G9udexqm7jt0g
f0n9LXQf4j/DPK4zn1lqLDnvYPe45/sXlO+O44trwk/rKn4U2dcl8WXhu2NE
1lFB+/ORfd+N7K3GWQ3Nbd/Q2Q9xm5mOc7fN98lInVrUOkKzOe+h8E32WfE5
oS37jHce29+qxPzXY8nvOnrYfhap8Yp4iTzW5qJ+T9pX3Ge3uuIrwrHse+Ld
yBkNIutwPafFz9Hae7kXuXMvIufnOY6JJyJnUVrjyJlU0WHA3O5Tg2t5E7l3
T8S3I+Nf81snr/X4EPmWDsW9yPe55Z3i/fodb1OP63rLf8VR/N9p785S5N6v
8l5b7K3fje/uR8K243XxaYIR/sPIN/6FHfFcjtnTWebxFw/elXE=
             "]], PolygonBox[CompressedData["
1:eJwtk8dKg1EQRu+IL+LSteBaVxYEjQXsDVuMJmDD3mOviSVWVOw7V65c+Q6u
XAm+h+dz/sUhh+Tey8w3k4LuVG0yL4RQDPkwbiFs8rkEM3gn/OC/MIQvwTw+
BxP4GKzju5DBN+AKP4EFfBC+8QTU4LOwiB/AFh6HD/wT7vFyaMSroR4vi+63
Qyn+DDt4B6TwVhjCG6DW/A29FYc+fMq8Ft3R3UJ4xd+gCu8yP6s7/XgCVoPX
oFqUgbJQzdt4E3wFr2nY/I7u6rsOvBneg/fUiE9CKuonie/DOZ6FK2UNh/g1
HCtLuMBv4VS9mp89U+bmmSm7U7g0z0hv10CFsoXx4DPQLKYF3gqj+FPUn+b5
KoeMZgEr+EiUv87obBbSwd/U22twF7zGPfMd0C5oB7QLj5AL3pN6uzPvbTPa
rSIYCJ5RJd5iPrsktOG35r1px5bxOvPfVI9m02s+O73RY55pdTQv1a6d+N+N
4Nnvmvemmk7MM1AW6km9nZlnewMPest8V7XzJfiR+W/KSFnFzHdR89du58xn
pZmmzWegWcS0k/iLRf8d7TD+By5vb9U=
             "]]}]}, 
         {RGBColor[
          0.9411759999999999, 0.9065379999999998, 0.8340430000000001], 
          EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJxNlPlOk1EQxb+rT+Ir+Qg+AMQ1rnHft8TdRBOXgNSlISANUiJLEJQWGyEE
0oYSUlJK2lIfwXMyP6N/nMy93z0zc+7M3O/Aof6DffuyLDss7BdOpyz7Jjsg
7AjbQg9sCnvCGXHGZY/DnYd/Vft3ss9krwiDWj+SHZVtCm/xse8b2aJsh5g+
ywsTQo691yW+e78szAqTwiq2IMwIP9Fn37Ywzfdhzn5koW1N+CRsCA3hl1AX
usKlFHd5ncJvD1/nqlKLv7ldmxWhJuyirYa+Hrk3iT0L96nijslelx0S5rQ+
JXueOt5IkdO5i9ylLHwmXoGzClq8/yh85179xHTsL1nU3XUboUcL1HJKaFGn
HPHLrCfIsYSGadbD+OXpyQw6CvDMWRcep8hzk/5/RV8TPdZ1LoXuO7Kv0Gqd
v+lHl3w58jfwW0RfHv1j9HWD8yE4Jc6n6MkKPSiisQO/ga42cVvotv5B2Xsp
ZuWa7FF65PfhWf8gPEjh3yLnEerflyJfnfvcStGDsynqsUBNXvDd55epl9/N
yxT9vC/7BJ+7KeI6/knZ27wjv8ULaHvo9wfHWjrUr41Waz6Wgme+7zSQQsvz
FHHnmKMT8C+m8PHa3yr0vse8Oo7ze/63sngXtpOsF+lLg7qvMyvvyWW9Zepv
nZ5/vxu/u21irP43o22+Of8unAr7KtwCuZa4f50ZMN+9m6d/JeauyVkX7jL6
t4hfJeYIvRuHX4O7k/37B3ge15jJP/L7/Kg=
             "]], 
            PolygonBox[{{417, 198, 178, 412}, {408, 167, 201, 415}, {397, 190,
              166, 387}, {419, 221, 173, 398}, {410, 168, 185, 416}, {415, 
             201, 181, 407}, {409, 200, 172, 381}, {391, 181, 221, 419}, {380,
              178, 184, 395}, {377, 196, 197, 383}, {385, 171, 198, 386}, {
             396, 172, 215, 413}, {422, 199, 190, 406}, {399, 215, 167, 
             389}, {390, 173, 227, 414}, {404, 166, 200, 421}, {414, 227, 168,
              410}, {418, 184, 199, 405}}]}]}}, {{}, 
         TagBox[
          TooltipBox[
           {GrayLevel[0], Opacity[0.4], 
            LineBox[{163, 416, 410, 414, 390, 398, 419, 391, 407, 415, 408, 
             389, 399, 413, 396, 381, 409, 421, 404, 388, 387, 397, 406, 422, 
             393, 405, 418, 373, 379, 395, 380, 394, 412, 417, 386, 385, 374, 
             372, 402, 165, 378, 371, 403, 384, 392, 383, 377, 424, 367, 376, 
             366, 370, 423, 426}]},
           "0.5`"],
          Annotation[#, 0.5, "Tooltip"]& ], 
         TagBox[
          TooltipBox[
           {GrayLevel[0], Opacity[0.4], 
            LineBox[{341, 329, 340, 328, 363, 339, 349, 347, 338, 348, 350, 
             425, 364, 352, 320, 335, 334, 336, 362, 337, 321, 327, 365, 345, 
             351, 359, 353, 326, 358, 420, 361, 360, 344, 346, 330, 307, 318, 
             356, 357, 332, 297, 315, 401, 411}]},
           "0.4`"],
          Annotation[#, 0.4, "Tooltip"]& ], 
         TagBox[
          TooltipBox[
           {GrayLevel[0], Opacity[0.4], 
            LineBox[{311, 295, 312, 306, 319, 331, 296, 314, 400, 354, 324, 
             305, 317, 325, 382, 288, 291, 304, 375, 333, 368, 355, 303, 343, 
             268, 300, 369}]},
           "0.3`"],
          Annotation[#, 0.3, "Tooltip"]& ], 
         TagBox[
          TooltipBox[
           {GrayLevel[0], Opacity[0.4], 
            LineBox[{342, 284, 322, 278, 279, 285, 316, 302, 286, 301, 287, 
             299, 267, 289, 281, 290, 276, 270, 294, 310}]},
           "0.2`"],
          Annotation[#, 0.2, "Tooltip"]& ], 
         TagBox[
          TooltipBox[
           {GrayLevel[0], Opacity[0.4], 
            LineBox[{323, 298, 277, 283, 282, 313, 280, 273, 274, 275, 269, 
             262, 264, 293, 309}]},
           "0.1`"],
          Annotation[#, 0.1, "Tooltip"]& ], 
         TagBox[
          TooltipBox[
           {GrayLevel[0], Opacity[0.4], 
            LineBox[{272, 253, 252, 250, 251, 249, 248, 246, 271, 241, 243, 
             242, 244, 245, 247, 265, 266, 256, 254, 255, 257, 258, 259, 260, 
             261, 263, 292, 308}]},
           "0"],
          Annotation[#, 0, "Tooltip"]& ], {}, {}}, {InsetBox["0", 427], 
         InsetBox["0.1`", 428], InsetBox["0.2`", 429], InsetBox["0.3`", 430], 
         InsetBox["0.4`", 431], InsetBox["0.5`", 432]}}],
      AspectRatio->1,
      Frame->True,
      FrameLabel->{
        FormBox["\"Dean\"", TraditionalForm], 
        FormBox[
        "\"\[Kappa]/\\!\\(\\*SqrtBox[\\(Re\\)]\\)\"", TraditionalForm]},
      Method->{},
      PlotLabel->FormBox[
       "\"\:0421\:0434\:0432\:0438\:0433 \:043f\:0440\:0438 F=const\"", 
        TraditionalForm],
      PlotRange->{{0, 250}, All},
      PlotRangeClipping->True,
      PlotRangePadding->{Automatic, Automatic},
      ImageCache->GraphicsData["CompressedBitmap", "\<\
eJzlXHlwVVWa/3xL9kAcoEGBNtKN0oIKBhECg7LjRoMdpGNEiMiTTUCWSJBI
pFHSsj1kMbIKsirTGRUSJ9MK44LYaiPM0EpHG4fRrnbKKbussvzHqjPn+85y
z33v3Pvue4na05Oq3HvfXc73+/bvLPfeXrloxvQHKhfNnFZZPGZB5fwZM6ct
LB49bwE/Fb4IAI7w/38tBjxm/FBujgBjDC9adnfTLsy3jRAD8Rei7cX8vxTi
LYzuMK9DrBFa4qV0WFqK+xjE6CLeL+8rjUMLf264IDOZdrmiGXmJmm2MaTIt
8RjtQ/JevBRrZESqNN4CrCUOpZw0XsVzeG2E2XzY1XxInsNm8HHcC87yNLpG
yZJH8ylbby/kQPIQ4JlArQEK8I0gxKUYDQi+vQBIoJT4pUoQrNaGIhuXZGLQ
yBKaz/YV/fhUxhB2GcN4H4PKdNfDUJdSSSc6F9HGJrkNWW4tonM5+hwYnBr3
2R5tR+eiSY8iVcF9lpBxcnOFhqmaf+p2k4w36Szr85x8CuqiRbhc4lemJ+4S
2uosld8YEzZhu6c9/UIoLdx+5H0e91rOFWqjcR6PBCBbKMlq9+ZGF8d9MLLt
DNswHg8HoHyRW27KHRXP2JqSm3Jr2z1ecrPdaznnJzc/soLxQn4tni5JCTns
ejYcgGaCxFRkNm/5kXRAEZkEO5b7vIRma9Jyzia0cDDKSm4U3LRFBKKq5WY+
GwpGNoCxdaRfeUZQ9zWmNrE7i7unQ71AO1NAqkUJjwWkliA9mzd3UjE4buS2
7y/UhdIgXwAiqzvuh3nWk5xP2Myxt4H3CRwhH4lJodoyrtuLjXqDuTJPexl8
hSC0Fm0pznau0O/xlMSdp50qxSO1e+dcj8dTEpc511rCCEvMd1eVWkXuWKeu
bxKPdvRRVzjVtTos83PcDdncMpzyWlh0GCTOkOXcD3Xf3wuNvyUstnNZbjOy
JcNwqmvUYhdL4605RxVZ6DuydMF1JPztt9/qc0iuwxdffCHv737hwoWffPTR
R8oZqY0jJz5mT9ZvY2f/dAHa41aK9OozZ87kff311/TrztRizsjtrU1msfIJ
cbZ6+QX9v2BmM6v91dEw23foc/5IfNO77In6Q+zV05/zm3EbZivWP8Nef+cU
sVFE2whrfu0E2/7UavZK00H2P5+dmejNRCdpdGZYi1rORbxMMMJmjXqJgxl1
9WK2svoPGvnSeSfYkocPKeTbdv6RPbJ6qwt5/YFm9tyLRwnzxbTNYmdazrNn
9h9i8dW17IXnd7BTJ19GDrLYX/9y9jZvNn4qbEBdQl2zmSNfiEpwY66tZo9W
ndbg8Hjegh0K3I5nPmaLatez5nc/leAiGlxDUzM7+f5/CHw5hO/9cx+zl4+/
znbsPcC2bHjMxJmPOEcGxsn6593DpgzdrXDe0reG1Sx4R+NEgc6eWx+ROB9c
9Az7zbGzhDCagHPztp0ouE6GHBXGpzfVsSO/eYadeae5CPH9Ywp85Kg0asCN
vHg5YVNq/nn/x1nVnONeCB959AW2q+ENT4T8vwshjJIUj75ynG3bvZek2Hxk
H3RCeB0QQxc8yk8lyChdwigxrGARDOzYHYYMdrDeMWA1OZAH1rrVx9mmPUdd
WPceeZs99sRaVv34ZrZ245auhDWbsFKo+P0riIv957mT7MSxBvbpR7+DoXgm
JxhSDpSNKqyBMT36QZcrt2qkE29Yz+bFjnohfXLLKVa3eT/b3/SuRBplvz31
Z3bwX07hL0LMIUJXaaT/dKSJlI4hgHPB9h1uoGM01A/fP3YjIo4GR3xru1Uw
rHsf6HJFvUZ81+B6NmPKIY3414+cZ9PvXy8QR9iuPZ+wBTVr2LTpazDOZlti
1aW0DZOVrqh7gv3u3//Afznn0FyaXtgDwxCtT7azoS3J6gmde66XaMMmWgjR
NkzQOFgpYrGtWrGBzm8/fByypaA37HqBBHzsrXfo/2DDi9BF4uSBgaKVsGhx
Dj0OowFHzWn96YM3SdzBrBixXxnpDP1LdvhixzSBIjaxY3BA7Bwv/4XYc8m8
pTvSPx7XPlbH9hw6TIZRty4OxTJivHf2HBkJYsdrqzdsRHsfGgy9yhWFWeWs
vHSLRs+DG6ss3+lCf9cvNlLINdEvW95A6LmZS/R5bN2OBrasrl6j/+d/+5A0
hBys2XpYmX2xFD9XDItvqafQhwnw4J7NnKRAz0MzO978HP0alIIjGf5QGWxI
/hx0Tl92pkzaxp7aetbFzuO/fgUdGOFLdsLEDrL4/G9P82cdL0Y2tux7mZyD
Gz1cTvzkUdDhR8QPKgyV8/brL6EHkwh4wGTvvnl0YCoFFelsIzmCIZ2EsngI
Ir5mjaqFK2AYjJKcTSsR16FjOdTWn1ZOve7JtzGlU6rkwEOSL4xMM+dsZnte
PCF5jVCRgnFfGlxPYikffZxYwXhfv3M3sY5+Lv0F4ymx99//9T6UpMUXDMnp
DdDhl8TPrd16YSLAY5fGVi9/DcZ1q4Cb7zmAzESlsnbv+5SUxQMVKKYee/JZ
OucwFaWCkZcIZItol9z74QqprDffO00Kw3/0pF1b11KWwD1yuGd7HLm7Lj2m
SrK6QLfixUJJ/cYqhbF7b9pPXsTrGM3ULTxGrImfCBFT+VA1Uqiw55STdGb2
3DkwFsphFWdlVZnUL/SAiqdPyJoniswSWLQ6dH/MKVfKnPJS86ukNgzNeB1T
NxZpG9etwMKibyrG/sHFWO8IwCXdZycxNn3YczD4MoGteMwBYmzcfbVwPdwK
VZyLqn6yLglDzxmfJ2gtghUmPLjoCagYMw+ePf25ypWoNDQ1xI1ZCVNNLxmu
MVLgefwVMoonLEu4d2mz5CbZJxWPP05SXoesCSw2/LDJI0y/hqvmskoM6tzT
+kCfLhUwnif/lauaSVPrpvSHQSP7o+ZgX/UI6HT9YcUoxg5lfrCwahH32fGo
UVW0YlhAC0Qmea66VkZGDOfKGLEu4EkJegeKgl0d3wqXotmZvgWTel4Blw+o
I05W33U7XFw0Du4QPRYsr2H+MIDh1cjRr6CqejLZInKCaQkhIuhZt/UQ6h6z
ljOAZ7K1ffauOol6gzff2wxXw0BYdOiw1FEYzh6rhb7lu+nXVTK8YJWJjsaz
AGyaJNrot3gvcfrXv9TDVJgIz/Pj36/oq6fGpu4/SzrGe4pTKTg7KZQWh3Uo
5dBQKB1h7CWAYoEZUzbAuI54dRyU8ZoZc9wvbuPnR19JYtl36AAM7zdCiwVj
CooFi1BeS8HS2ZVQUXtChJ8ceHXzZICyA/RrVVl/GL24ngoSfIRbq7dgRP3K
HRjObC8H4NfQsefc2BOqGpohSzANz08m4QQTRFaiINjVOROwVAmTDDpBxZW9
DNOo4M78muoSkgwWlg0HGHmADL6saz70rxHejLmlqno/1FY/DhOnr4Fly2tg
WC/yZunlufBsVX+4bTPVBCSUbuNWslfePImCgLUba2HJdaCjRN+a17R7C2nk
QlNNCUzcKc6hRHpUrKXigBcM7Pn99Vj1qMKBm8pEWHWyVVLh9UNYWgaGAcf1
S2DcAxeov/fA/K0klWkj7oYyGbjbcZOfvEFIBVXMKyaomn8HdJahu+d9zwnL
KCR/MQVyWdl6itfYi+GZGJpXj4fRK5qhbukEuOr2tSgs6EPsF0I9twgljLM7
K0hgWEXh8yhUTNNYSbU0zoUB0n+oc5abqiS3S2NC/zpRTHUwAv1ruld+/8wN
JAlMV8MVpyKFkSRU1c7DCxUd6FNOjm6XZBu95r1KqQx9C+tHDA1Lx4yFO2aP
gx7DFmMFjOG+t4j8LtNQ0uCXhW9Fybd6E6ahsOzgNgyqUIjC6JiZMHhvWggj
B5lmd5dtcXUBkVk8r7uC2WQpyDfKADvbFDcSZJAYKGa/9DnVy6qWRpOoWxeD
axDSgHvJTBqamnsrJjnfIANIfXkJLDmGQ0riWn1NLTRxd8KsidmEd4I5WS6A
7ukLoF/uL3HAQwlg0s/Xuoa/6pZ9TAK45856p2eZzRZWicIMBYA9eFMAEcMf
VP5AhrGuUcy/+MYfKaesWVkJ3a+vpMobq+4+MnyiP+Af17zs0kUTpxUKv/rq
KygONIgS0dyW5FbgMJTqSOBwGarW6UhEiFssVXH/9PYPw5LjpTWHiWvkmBd4
1NFTHOfIxN/09idqLAP/Q2jrnArWAzhIwPvXcDUy0yd9NeEQFUdrAr/pZ7PZ
40vPaeDotAicqwmrGAUcywCM9wic80PHCng7CRz9D8GjenhZRh2FkvRBDsi7
lw3vPT8RJHciDRLrZexH4557juqpYdWFoPBXyOiMos2QNUmgqvCvXbsDi33q
pN2QPtCBedMRmQI6+pqHfIFyJGGjl6J6zSEDPHazEGJ7o+eCZQGa7o9xO8gb
pRj9LQg86SVX14TtxRAxx7XAZozAqCA4xCHNRA6xx4wc4p5bdo4PN9hpxiFY
HnCgG3Iz2JsbvwF5OX4NlgUbZlOaDQxO2BnxYwNNHkftaL9ghzcbUfJNHORC
65FjFGKwflRqdmzzIJ7shGXYUXyU5E1mlTfuDcLGtIrd6MF+bGw/fJyyBQ5b
IEtcM9yTORujdchLmOCxzTOlqws5SO6ri+l372UP3t9EZsXjpx8T6MmqH4V9
Kl4ecC/nTIxtY114sIOxavKQHZqdcSUrk9hBNnCY3YedDtJDcKhFdmIhD7c3
t7WHRBLZCCEfnDscmsReu/rHyYFETrDox1pm7n0vpuJE1meiSsftLakil22O
KmllQiuYiMghPnIPnpWfPfBn/kQyBx0lBzI5yGEEvk05ZWU3kcH5s9idAzdo
E7FhwpkNrCCwX6AwmfODChP6LE4A6AGO8ZlhUkOhChMv5JMwockmYsKcJYsv
jQkzPo0vc0x3BCqkor5YcP4kEQvOSGA9iViU1WHljLQNq8N29WxvKiweohla
MA8nm6xwopZBbyUaLIj2N71LQC7G7aTM6N9UsBBNJG36OEqtZsCoILsrM/rD
C5aw2/rVpk1/U/1p6trivFYB0r87M/pjC1ewkX0WaPrlpVsC0ceSCunjdE8e
0r8nPfrDC6pw4pHqH05P08eQkkgf+3ZqliDH0L+SP003TQ3kC1m66FL/w66a
i9PdIR/6qmOxa88nmn7ScoLKVPwnrFWh0cFsVSzpEOpFX4UGRR87BRgyRYXN
t9Pahj7ProHo4xQaljMiKPHtfZnRvy63nE0bdlDTxzkHL/rcBnhyE/TlRArR
j2VGWtZGgUhzd9OkcRyBd4WprYxIh03SoCyPe6FaBaIDsY0874AVffnll6nI
58h6paWxEeLOGyxUm3ROE5qxQMUb2kxvLNkKC65Zj8Vcb3B08XNOCSbcRjiU
TMw1q+43Blonk+WLTlHHLLhMwq6y+NJWYDAtFpODDtazMjNRTA6yvmszenm0
i7je4uHM/+h7hqHM0Sl2Qb/8YluClwqLXHZkxZKF29neWKJSJLIY7wJwPZpj
Vz+vkDhMr5hVedgFAft0mKKCQDBr/xax8nf++vXru2UgCTR+E8YMMbEaCIZc
i9jrgw8++LKoqKhh/PjxA9966y0/n/CCIcdCrTBo5npOSuPI+eabb1AK54uL
i4/dxP+OHTvmaxyy3+HCwgs7PVKZCRYxTxApPn/+/FsDBw5ELDOeeuopEcZy
fIee+DUxjxN1vUXFqF0Q6w8VdNklkKDFVsJ2hbd0oItdFDW4asmSJevn8z8u
TtSuZMuvK+3xepNd8t8FfLFoKgsT7dRdu3YhfGRjfENDA1pGgZHQEsc01BLQ
5HeNWgd/zrQGGrUXC0r49oFU8MNoNH1PnTpFv9qr5GcZVopqlM57Ps6S5nSR
ypW3DtI5OprluPDtmjp1qobe3kemWRKRfkGEeawATxPpkrmv0xxBGjK1YvZb
x2x7YaUt7AGLDZzP0Gun5qaHvUjL1IkiTipwvSNiW8GcLly5LjMNuBEDLgUB
m2f51Q6poNn6t6EMoMUwyuJfGMzXuvygyWGHFNAiNPSHQw1yteW8VMDyE2Um
j3mhE3NqXiVA590CS5UhIUZ80GHho6bXgqDL9UZnvL99SSvkliVViqNVapVn
Slh5BixDULxIjTcyXazymOSX/4Miw0rtiXVv0LNpqZPJN9edWtWxv9TduqDw
Hn7wJC0iCQTPHVBUkA7qnkEh4WgkD3SZQFJvA5ov0os+h3+lb0JTxRyOkmCk
QFA5uH0wTe2ZZt8Yl3nMmTAIqr3M8fjJBvOSdEOex3w75XLIVqkMF1TiQoNM
cVwWMIIrvs1Vqdm4XfA3R4+q3EzpmYvWU9Hz68Cnapvca2FmbQ/Kv59Gis22
6bfshgZqO2D31njBo1WYbZ1Fs21Kaovarm2c5Fk8+9VWt20b+DFeJWrzticN
2kh9DV28LW67titv3KvHCFrTtpya94yHgdr2sj85JG4rfEK6XbM344fUGF8H
2zAmtViVSgquGVhB3rv5m699mDoHbdD8tblluCLFaD5Cc+7Yb5Iyeci78SDv
hTtfgHH1/70A4fi8HK/XgMoGrKX1C6kB+c3hO11gpwQMpw/G8J6AYPzGEExJ
Of1xISSnUP/Z7KjFvx5KNNMg60p0ocSlY1mIoemOKaxFM+YBWQb/CXFa1ob3
tJZnVXdrBQSDIONtUAi+rx7zUqhFGWqpaQvBoPCwR+OFKaD4LsQwhsh1D9xO
fVRhDS6P5Fc59epUvm5vY0RhNa4NapM2SApLgwRfNYST9HS1PcTa6aop/EB0
U7RBjvTwD9eGWg7RmjZcL94tS1cPaT3dFgg82pAllQisNf+321Cr8KhUeeR7
aCNJq7iEGl9BCmkukr0rx0rXqDCWp0Le+hayrC3wDBcK9LiHY4o8DbXf7eNJ
QlcLYTOkyzV+6WeffZbp44PzZ11x7ty51I/bZX5Lu8ce9X5SpK5s39JOfYTI
/MCkzLA2irDCm1ygwq3tyNjKE82NMWksXoSLGtwLMnhWDfEjSXXNRxWpPzwT
od8xNSIZa3QWLa/QRwG+EaNKPfpSoJSZbYB/ZWbqcNbCyikEj+Ztn30oDHif
7ZxtOuiHetY2vWPjzefTDLbaUA2wJlt6ZpD+nr/n9P+NXzOim99Fc3+pTSzS
tK98mSBumaKhOJFcrO2FofqS00UOWc5d4t2EeKEm2+j2U4iQ8wUCVARE/ERg
jRKliLT5+l7TLXRb3CXM46j0Wa/rMkKJpnPB48N3rkdCNvnJ+wqkHhJHNPCs
/qbtxUmfyDU/Kk2qaOTO7SyOSnqPCJ8XS3NgIO26iUuJc0L6d8KxS9hujtV6
ixiYx0n3C7l2SLiceJz4CW312968k5Sc9BdWW6MrLNa0dHUkI3A77KFe6f5S
Y4LFpG1hX0/GOEnSvC7ez4QbXHDMAYPOrjELZ42Cl7SF7Qg2xT1xWu0St94v
xJ2bQtxmyZXjWj1jad8m7XzLOdFcgf7Ytwo2ic0nQJaLZ7RZi+b05QR50l1S
hSKKdTTqlkQCyb5l3iMoelhs60SY0HxERgJ3vSYMKddTlB2NZm1+Z7EWZfwu
/w4uy85O1ehrjzab9bnfFf29QoGhL2U8zly6J61IYthO1LdoI2KLBMbnjfWn
7Uud6XxBOhGW+1u0Sjn6O78tjV6RwJS2qxciW9efkDdCvM42CV/id6UBmajU
Ar6E7gVdE+xHDBa4GBpjovkcgwtr837Wm5fgvQlfKhYU2iX3+JIWJzhyjsU5
Q0K+SibmosRLUwXYsGHEDPpa3Mv5pq9jKK4smZ2UJZ15bwb9wMndruWSHEos
3nKZVngssfVBSdIC+SlouvVanckcaaj6xlTrELBUa3IHF/0v/pWlRg==\
\>"]], 
     GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJzNeXk4l9/zt0SkhEqWaJE9qRSyZMa+70JkzS5rUlGhjTZJErLvu7edKERC
tqSFCpVsSbaUpTy+X3fv5/l9XL/r8+9z/3Nfr2vOmTNnzmtmzrLT2k3PlpKC
gmL9agqK//x3lUoqTtLPgN1/vzE4PqltcOz0D2hp/s83CgyqKtabDk9DVOR/
vmEwevC+++TYJNF+ADwv//KauDoBB/77fQaK/37jxL9vBe76VvWUJ26U0Ne1
Aqt4wvSFxiFC30tokfKzi40fIPq3/3+P/2n/sv/6ifk1rsDL839P4PIVmOIf
36jNtdeud3ajg6J5DLXkS1gYO+544JUg1sh6vf0p1gE6dpHPMzYJIpvM9U0j
B16Avmm3pLGGAJ6UjNd6v68dfBzXReZf4MdwlxObYkxbYc+Tuy8YM/lQxS7i
WsCRZhjdWFBR0MKLc+Z1i7baTRCcItaRM8SDWUbjp9RUG1bgotG6ioFZbjTX
4RgVlq8n7OXG5XnW/Su+ULdLSG6Wi7D/CaRP339w+vNOwt7qf8Xv8rJpCit2
EPZXQreWdn7P/DbCvrJ/xdV02ynqVTgIe4oIf7ER+kkr8PL8mYn+6Svky/Yx
ETj+X/Fy/7UEDlmB/7n+//yW118SP3Ddfe76pJFofxCXeVS5Ai+Pvx8/Gtm9
KP1SQvhDGIdq1n9QFcon82VZnkr29zIOJ893GV/9X+yTwL/8PTxFd3tguwLu
6qidNKB9uqL93/XPmRqI3VhwEeYJPi/jUKK9DEaQ4pXum5euwPPE/JfbFwC3
7zzVoLQ4XnIxGdu6LntF++XxRIj2ictyf1lkf+14syWxeIV9y/5VI/Pzf8aT
P9mff9frn3i5vQR5vZe1KpD59m94WZ8smV/L6yXzD/79Q7+/EobECnbVbi5c
MZ+/fGcRX4Tk3UbANxmi6hq3F3uoFrVvzZwDs1M9O/GpDlZ6Lp7LU6uGjonz
F48cEyPkN2FSq06py1odU+QX54fLion+QMijifFUke74oi4re8EKrHLnhbCz
mTzRP4XQr0T0J9bLXx3fGazJdpPL/1/4IoJ1RmNOge4+BL8MsJJLwzji8SMy
H5bl14n1liNwFKFPC7tnOhMNrpJW4HlivZfbZxJ8UsaOGpEQ286k5faog90T
8UGPqvNW2DfE4HeghUsM01mZ8tx9zgCHh/jCTR8jfCQ1Vff4WgXwjKrqMGkB
IQ9agT+0f2eJ2K2PFzo0LnWaFsCyPiVCHkH4Rxc7zF91r4/MXYGX9WkT7dNh
0YbnnTWHOqGP4Hu1Hu4tG6D1vJ2zwv6/fFqOb2+ivpgQ+aWczMe/8b9cP4yw
/6bEG4q1RUR+PELOJ8taDYj8k/2veHl8VXK+WR5Pl5yPlvmvRehPINbjCLLu
/xpqWZe1Yj6PUkXlPp+SxjFN/02+4afg3YmQ1117zcn5/29+WpZfIfxpiI5W
lm/ZFjJX4GV9GkT7e2T+LeMUMI2ulM9x0UXP/zceq40w0uE9Xbd85r/m8+X4
FMKFjIkOTWsdcnyd25yr/NHHawVejldLXPcmyf0wXekKPNkL29U0LLH2B/+x
20/+xqsF0b8I3sprLZrFmuPB/+5XCsnxuCy/vAKXFfyivhdmhl91y7Zd+ZoP
afdjnbYHHMPkpdHeJJGI/GCK/5HqluVCH1+Jk+UhExRcGv0HfzY5fyzLgwl/
HCXqRca/4phiodLQUiNifmmEfYaEfcnE/LQJHPbv8nf3G+NGDIj5JBD5SZ+w
LxbK7DZV++boEuNHrpAv888E77tVJaTPp0PjNu/0czay+PwP28vPV0+CZpGX
8V1Pa0yWOa9Z/ZOoL/6meP5C37Noh/QVWOzqAJuA5hHc+ye18ohaDMGfY1hc
fvaUfG8aOZ8t1y9Pgn82RH0tXoGX/WdO1L80Ip8ZEfUxGg44vcijCVZA8fk6
Y+0ZD9gjkvBUosUWY6I+yLOJEvUILZFKckb488lUYHJnHE8WOoovzvBRn56I
IvKbPfafDN0/eqaQnK/ymCpe02l7EPOzIuprCpGPTPFKFKtcyEwkMKqw+IeJ
iSKXr/UGxRo1WE9qEenjc8QwGc7g/rYCiP3veivjzM3f/M/L3Al/WOOBcemp
3wPJMHpUsn7HejN00z/3aB9zJJGvnIh6/bf+2BD1NJnIH3/jPwK+7pmLu3rx
BO7fuWDyOIvIV2iLYj4uD60Sk6B/p4hW6ylLlBXSOZt++z6RP1z/Z37ztyPq
bRIR/1bYR+Sv51m89Hs+uKG3E/cp2lKi3lTb448dL4V8QxPhxRZliZu21jh1
a1+0pWo4sR+VJuqzMvzuOnYj2MsDZ+yqOGRS84n4difqM2kFXo53d9z94w/3
zNNcgu9u5Pq6HO+uGLJ50YebL4uIZxdE7sWUCqMMIp5P4NSBxXa9oDRyvCz3
P7ECL8ezM7meL/vbkaj3iUT8O6Gx/iJvwHDSCvlyPNsT9scT8WpH3k8sx6cN
YV8kOZ7/7leW4/E4Mf49Il6tCP2h5Hz3P/cvpkT7K/AqTODR8AMPLHAvEjVu
zoMx9bgBtigdtJ28lPBe/gTBByf0Oz3Z75iZAFXrjnGrHbHB5z+4zn4RuUfE
tycaibx12MuUR8S/Lv56mHTWL8aZ4IczsZ9JIOLbFiWbJR9sLwmDpy+rpqRV
T6LqRxsTc+tcSJrQcOoV1kMfQ6p5dkpnyKHwYKBVtMN3KC8dJhtGxK89sR+5
C1E/rsw9PeiA17J5d79yuQvP+hdN/vTyYp+Q4EHPsX7QFreiT3t0CK9fHtd1
e9EOzOXJNqXD32C5vvQR+AOB2+Fc34zBa2FP1AmrN6ZlIwFdYnn669gvECGn
d1ahqh3ESDnFG9I/QfiBzG+v8tohw6Etc8yEFylZXjswCrwF927TS+DfR/zb
QcSeb/7Hgyn44W8Ts5thCDR0aL1/W3JhuuzZIuNPH2Dk9kj9aBc7vnF+HXjO
/xNM8Uvy+QttxzVNJkLd3/vgPFey0C4Kadxkbx00d6cO3L96p3ZbH0aqmNem
Ki8roaYj4hRJchyer980NufTB9ps+w4vbt6EEZfK3zPxfQGRnRZ3bS5xIUOv
GXi9fQGHBI3a90h+BWpZKfqYrX0EfkfgduDTfKlurs+Em4PKJ86UfYGRNpYG
2bM78MoI/+9u306QWv+R7sr0JMyxxPutmhsEHUah8jVKwzC73X9x1a9eAncR
uA3+3FuMu57GgNVa/A/NhAcg2E2qLvI0J46fsJo5G/canpyLPMf+cAJgM93B
gIZBoNI9Pd+SOAgUW8uiVpX0EvgNgdtg1Oa75bY9g0Bblty3p70dNubyar5T
E0LvxUX1uSsdcFx7UDKwYx/+WdeizJDWBI+Vpdri/Q7gBraonwJy1WCkScdn
HTMBsc1MwTXKQ7DDvqzn4rlBcAoqMX+9t4/AbwjcDsmnn/4IoqbHuYT9Mk0h
A0B12M140IEdQ/2C2tId3oLH1NsnJ3iZkbteonH+dD9oNSspiIxwI375UmFk
2AJKtP4PH7zjQbWv+ZSrJIbgYtD4WuXb4mgVlqJwl36JJ1d1tlqyymHPDxv2
8KA2oNuwido3kwXzmr5kK8V8hgtvxofdc+jQU6xi3YOPAxAltrlrLYkFP4V2
8dD3dUGsyQUBmtndyCjE7Bl/uwMuvr/y+OaMMDIKJ4vNqDyHg3n1Amvnlvyx
etu1LM8aYOX0Q8mHu3G7STtjdmAHfC36E5A7KITfmwKvn69d8pfGhVouZmGM
/+g6lXi6GlwdT1k2VgoitYkHvdqWDnj8xsFa+DwtVk7vuSy4exB2PpDTc+Vh
RnGTKLbHou/geJPOScX123D0Xv4RLcFqML5NlzXutgbvT2c8fO00COYsUUrn
azei79pc2QCz97BxMFecUpsdg/UZOTKbasn3OUK5cueZODrIWLhBTitkcxMZ
UztQKMx/rCKfl4/5zbzOEk0DuuAWlvPKgmhccyjw7ItGaI2/VE1xWRD9Ff0e
s92rgtBCCcfL1YIYz8j+wX9DGsTHvvsdfY4KGwP2ddTHDMIff9KmZD9GdL19
i4pT7QNki5xMn63egmFiXo3G+fWwRfo+HX0AJS62gN6Z9kEIWpSBUzbrMU/9
6dpw0R64YDVVPrZrE1bOMPd4hzVCc50farwSwDPKjmc8XBvB/qHJz7M3BTCQ
aja8bvAR+TxdvdeF4a1TIxlLOt1Ntu1/BF9ftSzMulPgtnybE2m/BqGTwfnG
n0gaVFl3Z73MeA88VqVlX127AZMd8v1Nep7DSGCOSJAVL8bso6EsMGkEg1QO
53jaBXBj/xwhumsIpL85PDv/axWKCLSODRf3glag/NGsUWqkk8o2eqHWCnWQ
Gi6Qzo9Diue//zneCBfmTuh7Ly7hrR+r5z88gpdvP9VSx/Pj9m/PL7NENUIb
x/2UvQP8WK78oXd8TxU0W6oHHhUSwBNOiidstVNhNMOEhr5mDm7H7jf8mTEI
l7JY9bcGr0KKJ+N3HVl7gYnyMhepghqrby3MNJS3QPfGE3vvyM7AxjvuzJlj
g3By4FgyDysFej7kKUzz6AWf2tX5Fxmo8UJKp/fMulYIV/rsytrJhyMuT33y
whthytrtspoLP144nzo6IFAFun7zkefWCKCezOVnHzRSQeJN5rTOZ15scOIZ
EfJqhKPpn/1u9vBh63d9+gWKKjh7lmNdQxc/sm9+eFP6QCrMrmd/oaa3AEEH
7uUmtffCb4U1AVG7qdAuS9Tb5XgrSMsuePoXzkCAb22Xi1IfOHz7mWnVR4lU
tTD7mLENJgTdRyMSuXFwZ2GF4MVKKJXMetcpsQupSps2JR6OBFmn5pTQ7F1o
5y0S9cGsEtYuPNrju3kXLm0AS8P5IoGkMjVvw7gKNzPT0/lebQMv1u9eHlo7
8KRB/VrJiYdgIExjUKe8APwxhVrKXO3k+8StacUmb3kqybjMKvrlHepIyBrc
fOA7PRf2rr76ob+xAp6JXjkW9IoLq3uHRCpaIuCqdmb9ld8TsOHyC1+ma+3k
+6+AJPlnZy9WQN9tmezPz3dgpluqWjZrBRxUEjLbMM2DB6cUhpvShkHF0G8i
M0schzb/YTxp9RkqFQ6apAnL4SEXVw8xsW4w6EmXOhuogjJWNQH0+s/hQN6U
rg6zAs6O3r7B51gDjRcsnpdQK2Dl3ETlKE8Z0DGF/ejXEMbNZt49w0v5LeKu
V3uLjAR2HnHdX6/5nHx/ecbLrqPtcAj4HBSyDm4TxX1xO4rHvIogf/37eiEZ
UUzU4nEi2VST76d0+jd0WnwlwerS7P3n47bikNcaU7PxYMjra9fY2SeA4Rod
DKFPG2HoNNPCdJIAam/yp7pgVQU7GfSyGuwFcIi9tCPPLRU89rhnrhLlQ6Ub
5g2Ojx9DdlB7dW4yP/YFJKVcW5sKFgWTrluv70Z63ebb7Fc7IFY0bfWs/m4k
dc+lCWU0QU+ZacRrzt2ouMlsH7dSNXBKM+4pGhREu72/P7neTIPIV49uf1m/
tMU91VgmwxYKHRRTtjFi3LjnY9RTQa9K0Kjcw+MusAsZ9d9n7xSNBCH2+VCn
Eg4sM7qp5pwQAveFhW4//roJL76fXs2adRH45BX0tqexoZdD7NPsK5dh1+Sq
ytCfEhhfwSZsnFQLXSTGwH3dh1A846kaf0IZVNC9XpBo50XWT2/jyqxGQOm1
2TOjrEOo+5yyQpFpaV+kz6+i+lMONzsezU4J6AX6yoTsgQhVvCKV86mqrxNk
Q2/RynHq4LetlCJFfnXAstdPQY5BHefWvWh6bPcYUlXZPr9VlMM/XiOUlob1
cKvC0vXFNi4MlTMZiKMIA6freXNN93ejpdLOM11L61/28LVkU/1ufLqLhbpQ
4znQfP3t0/hjNzY+/MpWeLYGjmzlqWjgFsKDyqsqmqNyyfm08rfKs96FRLjR
s66CcedeLJu4rtVhmgV/74+P8HQ/eLG5jnx/FvJYTON73kPwOXkqj0/1MLrQ
ijXGKD6FKTZ3Pm42xNeVARa9/VXgrNEcs+uEJF7mvUizOFUL6tW9+89+l8Cw
33XitjsegtDBqaetnhIIx9bVROSnw/5vO9z/cEghFd2V3KfNdVB5nWpQ2FMK
5/K3Ddh2PgIV/iEzi2dS+FX7gBsyFMDLp887b3NIo2vp9o/O/JHQwLzrY/UP
CTR+b5MkdSQDPIL8GUUEpFDo3Nuy6cI6kNqgQ/nhphQGe5mI9No/Aqqw7dOB
41JYO756qtM+H1rZvn8RMZDGvsLiVsG4e7Al8VzEY98DuGb/LxGfrwVACtmb
qrhaApMbbp663lUGq8QkAjmlJPBn4e+L3izpIPyqy9hWRgSrHlL063kXwLSO
gltJ2AEM36yk+v1BPqx202rMYzyA3hwveZIlQ+DOJ17pnz0Hkeul2sQz20Kw
TrgxZTQhiofGXsp3scRD9GvO1pKD+zFbFhMUv+fB7KYeu5/O8sgvxHBa/Wc1
8DLHX31lLYdln+qdMyaLQXuQiSREJ4/V1fxGp9uqwY7qnukANz+qnU8wEnk+
AlxJZ9dOi0li8Nja+sNrBmCtdZjnwz0K2GHheVBV9iP4Tzr3zYE6CiUWK2b8
egvnanamcQrootNaekX/D60wOWF0STRMGy+Q1Fs88koh+66yZOsFFRztkqQ0
EKkl35+7MUhuoeW9B5/pT2aJUkpg7Eue4isDZZBYsrfuK58EemxjCL46mgEC
Wb2qLUeF8Z0pu5uVYyZo7TtqH2cqi8Vr1JpezRSB59stW4VeiOGC6J8cc8al
8+KNstX3P8ljZIbJ3gWjGvhidjkfguRxPk3y20J7KYzs1bEY2iOPgbN+Pyn7
MyBzx61Q1WcKaK8WL3O1pwb+7FEzH3ukiLVaEZdvOT0EKieO3ZsCZXFdXlt2
GhTDg5y0svkJeXxvTS2kd7QG5FRpqPRz5bGV/1lFxJtSGO630850kscGFhpg
n82AkOZVBz5flUH+Tc9ET5vmA3V2yY6JAFmckOIVmlUohu271h6rKJHF/uLT
4f7RqTBckuK431wGz3BuOhGdnA+/KqXttGgAU4VUzzt7xgDJ+ZJshrss6nrf
iKbbUUyON2+vccOGVdmgW79OfqJfBd2UtrVNZlZCot4ex8VUBdSJe8a18VkN
hBfR0DO6KmIY6eLhwJlyuLblE2mHqBIGcXmLjpiTYCP1nuGmS/LYHT/gwsOb
CWsN7xtQ9Avgq7w+81qar0DZXB/IJyONHiqLl4dCB8B/Jt6T76kirv/ImUW/
7RMsXjXfKeWsidpTZxJt9d4tnXc3OKQF6eFV7pKxPIcOWHx5AvJNDfFs1sCp
6d9P4JAOs2DzvD5SaYt7vWOoBLdVLJQeU9o4zBkZZ1FVDbYlBsfmn4uj3h27
DBuxFJjmifHktxfB6JOR9Yc0AuHv+wrt9wfbq2Uek+/f5+w3zNy5VgTyi6Pd
F0rV8Zejf1pV72Owey7ZUsquiVpCGYNqfCXwvnLqzW5+NTygQVNfmPUIjLkD
799mVUXBvJMUBQyF8L0ndsQvDlDT4QAjzUw0rDb4dsFcVgWpLnX6PbEpAJGN
rNKcX9TQTzma/ZThYzCLOk3P+kcNA2p54s/XF0EQ15uejSzqSONnrr7eJRXE
5QyGnM4rIHf7usm8uhqI0xYbEaNRxEpDwcTKkXKgNWMdpbyjiML0hy3ZNEjg
7jT3rZV9aX02wNm3xVFg6ezg8emSGi7cTFw3vPExmF/pNDpMpYaygVpJw6xF
YBaHMhGXVZF+9Y9TnYeT4VbRan1vFyWkbeT3qiaRwME6QtXeTg5/nZWtvnE0
Dc5eTr66I0MJc+vfGH5kziffZ/t2NowFRtaQsbsAx0EZ5v/7Htehr8ncNZZD
xjcz6i47292FDg+h/kk6BQyhEzza75YNnN13PktwKKBcfNhV1r5Q8O7x2vAt
Vx2V75mxJO0shjqNsdgEe3U88nCrnM/vIpCNpzlubK6OwqmvzpO+FgHHu+Qd
03zqKP9bz4HVJxVY2bhDdzw8iJMkdz5Tu0JgYzbZJBQniupJM4uO7PGQp50Y
l+m3H1lK6990xfjC6IX7/Fv796GRsMyHyVZ38GF52X7p8W6c0Ll46Ov+r1Bt
HS+8z1ZmKX+tbm+fHoBP0c6St08p4+eaS/YlpZ/AljbQ7GqZNpZM0/4R//Ee
piV0qx//1sd0W7o9q5fO8yXfe3Qltxvj/hyWsuhVDTD7xD/RINUIq3/H3vwd
VwQXjrTJaAgAruv5Uk1zIRpO8h97KfFTHnPHsxKPx92BroQkTqclfg16pLfk
/4iGQZOxuyHdWjgkKP+R2SMLjlFIlkoG6iC/rOrF1NYyeHR/qAHd1HHPhXF0
WSiCmUfXE5moNdDL5dfWnr3p8HK+xi/eVwndaZkP79+QD367XSI57JWwVctb
PUc0FuJ4mFNdDqjijbb8Ct7AJPJ9uo1hZ3fUUj79i8NoHLZF3E+Dz+o7GxtH
1HFS86Ukp3g66PgMmFqrqOGGMx2yE4wp8GYo0CmHVwn11dYNq1ZEQcfdd/zG
H3Xx0WSwnu2qh/B9bYnyO10ddDXv+RFpVQYH31nqzF3SxsSJp6uctbNBNUFu
W+FGHTzEyqoiGZkDF97F0fnZH1zyz7pLOnyFwNSqYPVu4CBKC/YVHKWMBd43
lXGSukcwh6lT89GPSvJ7Ume5aH8zpMKNonI9gZuH8bJ9UmD+FxIkFzRF7a2U
xlHNof6Mrffg0aG2SVsDAwydPTxWolEJL2MvCLJFHsGZL6IVC8cK4cDpONWd
OobIkVjscfRNIWjLuGzfyKyLfY1lD7aKlINh2KhM+Bld5K4+XWT0Kw+8kk6b
PNuvgHWM4YNhxTXAojF4eLuGAkYVvHekjC+Hh9OGO0/bKaBxIPvakow8MIup
p2rzV8A/ej/PtfJGkN9HupSLalTZYmCkQdOn+bouBoeHTCYnl8NinHsGS4Ae
7qH5mRjwmwS/6FZvMP6lg1cCVjkn8ZWDcs0un3WHdDFmO62cRmMe2NO8kXgb
oIkhFiwRI0v1s8E4e6vtvBomymbIhrGnwp+RiMEtVlq4he1lw+S3THBi+UI5
Y6aCqxS6Wr0tkuBiY0jCXKw2Olx0/miaFAaFWrMeY3y6GMExEDylXg5twofV
ZhJ10cE1B6XFSCCtyHRhE7M+7pDfOsMWnQ8y3Is5Jbuk8CzJ/QfPnRyYPlqK
Kf1SSOEqtvlwbhgY814aCOgwx5xAkbyy2FIQFUu4Xs4kjxf8DHTmVG+S36fY
71Wdal6KhzXFZR/8/GTR6mOIQrl8MbiF7Izo95DF91ZsrQyGqVDe+kgzUscE
dymzbO1kLYG73X7CMRwG6D+rbRHEVwkvRndIqtIa4JlGpzOvdAvgm27pveRZ
Q3zFwhhep10E473pMw1MBliS/eBEHHclGO+sKPV5qI9BnMYLo9IFS/mh5YzQ
cX3M5xBgPZUZD6rSnWZbpQyQ7nvVBB9UAkuKHaXVZwN82FZ4/c58ATRv43xb
4KKPV7eJ83GS4mFeWMnk3BFlZAmb/aKjFA/Qbdqf+1MJ6QZcflrfj4W5bM3k
GB19jI2/dOPFpXiQKxFuDxHWx3ek9yWNZfkwJMzhesVEH6fqdh3ijIqHek4H
i05xHWxb83Utxb5c6Jqt32gRr42/TnxWWp0RBlemanrlKnQw7neJdqpMOeyV
03zQmquD46GPAo6ykqA75K2hSaIOUiUwtok0PIArjZJHjb3UMfWn3vaPjWnk
90he1lPqzkKVZPzsiqT9hFcBpF5dT58vbIASNjriVpKVwLfAmC103QCbDp/c
i10FkObBrJ7+xQBLhYW0ZcaX9mMp3xSvUUphwUv6/O/HA+GFz7i0sbwlpjfz
rs3fmw2T+iZ3xdTk0Eg5+lvtpwDy+1S2YKP36IbrsOrdpz/v+Y1R42tvD/VE
EWwJKvjyxNYIW2InIDGmCLZpN+4zVTHCb9T3Ow6lpsCvro3y8XLaqC2pHvmB
/h7oavMvqJ48gvlug/PpZ5NAkPv2K8NMXWxOMm4KYoiG7OsCT/fXGCDbRgsD
x6xE6F0QnEi9oY+sdg2Tu9/Ew3h5zI+Ni0t8v+H/rFY+FjY/Dv3Vd14bxaPS
Ort0woF7gK4hNcwI7ZlPl7bmFUFRS7jpELs5xj7tnznlUgqujiEBV5Wt8PpL
XpY9NDkgJ/Oe5keQBcauVWRkaCwF46/rjkWcMcco1xETr6BSKBdr8rV7ao4T
9N4HLNyzQNli57D7JzO020dxcnNLJuSd1aVKkzXHX21DssGnS0Gwuqfo/G8z
1JOTmXWxKYWK4I0xETzmqOJnsW/DeCbsm5Zsvjx8DLVSP79OEs2E+1S599OF
zJHqrkwJk+fSfnXAIzptjTl67/694VNvJvCObz9y19kUtxzuO0UXXAIDsYNf
tq82RWvqX1Hqx0sgI1I1i/X+ktznNk/MwQxwOfz7cvE5U3z9Wk5y9fYM0F7l
5UuXaoIHKfUeaUAJKC42UbTlmKDc16PM6bIl8NtflC7n21FkZTrC38aQDher
Iim6hTVwq9zoZJXmdfjBFybT0m2ET29wZnznSoWQbVm0celGGPiErvrNeAqI
Xt0c2kp7FHuMjjpvFU2DM3Y3r9C9MUSKSB2lVatToPZiS3PHlAFSxHZGc88n
wujeAcub11TwS4RUkNp5d5DytRhNkNRBBk16b129XMiLKG/d8k0b3UX9u3UM
ImCoKOTNJSdNHH5B9zCYPwQ2lW511CjSxRnF4+6yvNHgW2vOclnlCMYHs1fl
KSXBFfvqhI0nls4/x1oM1h15AGU95rnP3HWxxpNL7T7GQGG2Aw2rrx6KhrpO
ROsv5Y9nyUKbFXSQJjRYWco2F5p7ZJpfnNbBJ7I64/NHo+C5stPE8dOGGFRN
dRqMUyCA+gPjVTNDHGWNlNGLDAClBKszqR9N0PNur3nV0nq8VWsb/kBtis3G
morSQhng/NRd1EhZFveeGz2spuUEa8dPu29PsMYB2st3b2zJhUNcpeZndpvg
3NWPtya2p8MjKX0BufxjmBGl7zuyKRMiRc6lNGiYolzrwVpdwQxgWgwd4Gcz
RNYg3m6L0ynQttvBwuqoIbbznXv4PDYA/E/FeD/RMMRwIc2BjNUB5PexcK5n
+cczMsjYoTFfoFPxNjwTc3Ck2maJh44NCTXTZ0Pomn3GBlLH8DdluXzg+UyY
3yaWabvEp/gPOatnM25D+7i/2UEfWZSw6iWd8T0JrG6RUg1L88tXOrfz0zUb
ONTUci090wYH7ZJ/LcrlgZTrsb4fFpYYnjFSKe+bDQMpiuJT5maokSteWpeb
CQ50m1N6NU1wwbLxLkimk98Dg7/dcjH3TCZjncD8t5/dA6C1p9Rz1wNDjN+Y
nfNyJABYZCsLqRnssJnHb91mFRL5fdCWQ2HP9KVsMras7r0oqn4XdOaf0Vu+
ssL+7Oe46JsDvraP+aoNLHDL5Qhjz5YsuPWze7h00AS57GpKg0pvQuIvj9A7
IaaYrHQjs8TqNpzfeJSGOtkes1XMrtaIk4BrkPXXIw4H5JiaHOWcjYKKnODw
6WhL3CQowNWVmw2y0auGnrFYoU3HARfgyAGftJ9pZ9qssf2m2Hrp7lxw9xq2
9jE4jnRvjKujDkfAbqXZPW+HTfHFthtsctXBoNboYRvkK4EJmRcWkjNOQVST
5FtVpn34oPeo7Kmd2nCR9J5S6eIJ/PP2zqs3D0iw87UhZxyDDR580pWp8m2p
HkUwTVDyWuP96XO3NK1zQSpOzuJ4mRXGVslQaM/cA6MxP1d2F2t8kVdooSiQ
C89Uyybt7EwxWyup+elsMGjcPsbjpmOKMWlO4kkxt6DB/abf3YoTyDWkXqud
QIKUOa1YJREb5D7EnATSeVCEnDYTejY4XWLiTf3zPqiEdKvThNviXo65wPM8
JHgrYGBR//44tjd/KrmingfmabuL3W2PY+gDOc4+9QhobNoxPNNpjk8EZg8V
VN4BO4qx0efbXZGfszZ5ZzEJUPiNk7+9Ddqe56odz80D+naeV00DNlggvuWl
iFcUuGgmLWSP2+AJmW/OLgZRsG0mrsiSxx5NxT0jopbq7ZvzdL5naixQiePk
tzcsd6HsTZX4WIg9ri3k/Rq1jwSH5Isue/2wxfdT6sY/bpOgqTym19TIDo12
VVEodkQCl/3Ya+79S/zhTJBOVA4DhpxNWuxdbmihew14ykgQniVHSUHlgNqU
NszrOqOgkzX74jpHR9SMMztbmE8ChjFp/aHr9kh1cnNjoRsJ1qqbp31RP45K
TiOz3D/uw+c1nI4H0qzQqdbQZ2fYPaD2kSl8KnQI1bUs60dRFRJepJieaHDH
+B2+DbM6JJD6mcmFMq54xQq36heR4KMX6brL0RMoKTA3nl9Agj8i92gPTTnh
NuuKtDXpJFBpf+cpNayDwcel6D2cykFn+koOyxZdpJoQkX/kQwIj1n1DU3K6
+Gk2o59HKBYUJTgXRo6fQEqsCy+NJEFfodbWfdsccd9L56rn7iTIr73EmVvi
hCoGN80ClvgnXRwn/v23A0pe10oNtifBfOOg2m5DBzT/rMXxnvUBsFHxazDf
c8CZnDN5E5YPgO/yM9c95U7IPFaa9f7kkn48da/jhD1OChTC6cMk4PzoF/tO
wR7Dau6s9dR7AHHv38lovrJHED7eX30qBp6kDt01NrXDT1ppHusiooHpyIn6
Hdm2+PFA5HCpHgm498U+/Gpoi6wOo1uY1CNhm9I7zgNqtlg3wpz27VMEhLvB
1V2ex/Hi6Q2bWzkiQGbo0EGmE4Y4skuAz8c2AAzTaPfUq9pgeUXndemW+/Cz
yS72SoU1njliJaDIEg4q+Ro3xg9aozDTk4tnhO+B75cM9g83rLAgP3XzWHwY
fOJ968DEYYkLzLeUW9NC4e7CrtIb1hZI0/Z2fdzO0KX5ilM73/FAq544i3Qz
EpxjXX2mSssJp71qF103xIBCRUj1ma+2qDvwfJeNNQnmDg67GErYYT13Qizv
7ijQeJFyjMvvCBqG7GiirDsLJJznkJqxw3fBoj1CpCiYuLNhyiPKHntAzH1r
cAz8vLXZ9IW2I67DD96baKNX3Df+23vHP++L/3nf98/z3D/PN//k6z/58X8A
vUbVBg==
       "], {{
         {RGBColor[0.29341600000000007`, 0.05740440000000008, 0.529412], 
          EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJwtkD0KwlAQhHcjEiNiIYKNQYIEwRAQFAQ7IV0KwdLSA5jKygN4AEvP4lm8
iTjDDmTmfUz25yXFtTvfEjNbQD1o5WZ47AcdxQ1sL2bWiFvYKAn+wj7KX7AH
NAfnHnXMT7ChOPPoIbNvIOb7i8ddUmW5xaxU+dRjLrPaYx/r7rC38ifOnXLe
fSKeeYi89BC5go3FrD147N3i3GgmZ69VU3rsc/2zUswZterZ11fO76vEvFcm
5rw/8s0Sbw==
             "]], 
            PolygonBox[{{335, 1, 2, 343}, {254, 1, 28, 379}, {281, 2, 1, 
             288}, {307, 29, 1, 261}, {276, 3, 2, 281}, {343, 2, 3, 346}, {
             391, 28, 29, 314}}]}]}, 
         {RGBColor[
          0.4072038775955703, 0.25525078901529386`, 0.6893546272225903], 
          EdgeForm[None], 
          GraphicsGroupBox[{
            PolygonBox[{{269, 5, 256}, {261, 30, 307}, {386, 30, 327}, {352, 
             34, 334}, {357, 5, 269}, {318, 30, 386}, {338, 32, 340}}], 
            PolygonBox[CompressedData["
1:eJwt0ktLQlEUxfFzRcGkLHqQBd20h0UvDAyjRoURUVBIkBRBGE5rVBOb19xm
+VXqq9Qnqf6LswY/ONzL3nvtc2+l89h6yIQQqsiinYRwhWvcYAgVnpdR4HyI
AzRxhB984xNfCMi51xjnE8y7vsV5CpOYwSwucO6ZbfdQrz7e8UfdL3qcX1yj
2rJy4RlPWMEq1rAQYmZlH2G54UzMqKwDfOAVbzhGGmJGZb1PYnbt0HVP9VYG
ZVnivIh1bOAyibtp3q0z951J2fLeXzNynEuYdg/1qmIZRYziDKe+E91Nwf3V
I++Zml3Hjr9B0zWqncC4Z5S8o3bdw34SMyqr7ujOM4uuUW2KOWxiyzM0q4Fd
P9O7Grb9TXquSf2s5jseuKbhf0b/zj8quCvv
             "]], 
            PolygonBox[{{347, 346, 263, 4, 355}, {334, 34, 298, 293, 294}, {
             272, 4, 263, 276, 277}, {315, 314, 307, 30, 318}}]}]}, 
         {RGBColor[
          0.49778980477498347`, 0.41275525229167875`, 0.8166841063254998], 
          EdgeForm[None], 
          GraphicsGroupBox[{
            PolygonBox[{{267, 61, 429}, {429, 61, 424}, {401, 61, 383}, {370, 
             10, 284}, {421, 61, 401}, {424, 61, 417}, {389, 35, 359}, {294, 
             35, 334}, {372, 45, 364}, {284, 10, 259}, {419, 61, 267}, {409, 
             61, 419}, {368, 42, 371}, {417, 61, 421}, {380, 61, 255}}], 
            PolygonBox[CompressedData["
1:eJwt0l0rg3EcxvH7ZkkKk6xF0ZiFPEQRTZTFEDUbRR7yrKWNEOecUA45m7di
b2Xeie/VfR182q/7//i7/kud3xWrTUEQTCCGzzAIhvnNoEw9hUlMY8ZU1/CD
GwwF0RqtLaGIXezhA+/IYhHLWMIr3rxHzXM09xtfeMaL12S9RmsH0O876W4d
XL4dDeo/bGMLBexgDav+prEcVvxNYxW0cvc2PFBXMUo9hnvqOn59J92tO4yy
Ub+d1An0oBd9WMC8z8j5m8ZSGESIAHF0YRMbzqzkTJRNHus4wD4OcYTHMLqb
3uvJPRY8R3PTHlcPSWeoLEfUF8bDaK3mpL2n9r7AJeYw6x7US8z5tIgzbjiT
ut9Yb32ME++hva5w7R7jzijhOZp7irMwylBZ6j+UoW4Oo7fQmTq77LzVj97m
NozuovGKM8o7Q2WZ9Ptpjd7qH4gPNfA=
             "]], 
            PolygonBox[{{364, 45, 300, 309, 310}, {297, 296, 255, 61, 409}, {
             353, 352, 334, 35, 389}, {383, 61, 380, 286, 287}, {358, 357, 
             269, 6, 363}, {262, 6, 269, 256, 257}}]}]}, 
         {RGBColor[
          0.5818743724418743, 0.5565723955806774, 0.9099103056296967], 
          EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJxNkjtLQ1EQhM8aESGVjUFuIVoINoIiARvxcVFJp1YBKwk28QFqY6PpUwh2
WvkXFIModiKCIKT3b1iL33AGtBhmzt7dyZw9mdg92jocSCnNgQr4jpTW4VmK
B+gFdBseAQU6XKuCWspaPAaG3DMY+Vz8+171eZtvK3ADLuG6e3bs24SvnWE6
spfmKvas2ad05nl7lNan9K3CJ5rz7Cj8BtbQV/AjWEQPc8dza9VuPNuFn53h
Bf6wVm3POVvwvT3lrX2p5wd97B7t7wEsoTvwLVhGv8N9e8pbOZRhCn51/TPy
WfUe+sx1zfWc+Q7+cl3vdunf1Z0nfXftYNz9F3AdzKD3I2fVrLxb8fcOHWd+
irw7+ej92+7RDhp+x43I/4nC7990z2bkO8hfGX8BUiE1XQ==
             "]], PolygonBox[CompressedData["
1:eJwt0ksrhGEYxvH3wW7EB6BkZ0UmTU05jEazs6BYmszGIc0gxWZIjBrGOBQ7
cm4sKGVjxVfhk/hfPdfi19zzPof3uuee/lJlttyWJMkAOtAMSTLI5zCq1J1I
4Q3vGMMoJpBDBWWsYwOXKHB2HLuqMUKdRt5ndPYAh/gIcW8On36H3tXCK25x
gzqO0U3YLvxS/+EE+SRmbvqZ1r7xgyc8ugf18oB7POPFe7T3CtcYCjGLMvX5
mda2sYM951WPF9TnmKLO4swZ6/6N9Fu1o4e1FHpDlPL+TeqZEOsMpqmXsYQG
TrUW4izUX4b6y/kmcUddwiJqOEI6xDXtUS9FLHiP9lZ9n+axT72KFc9Qs1QG
ZdHMCr6z5kzKpjM6q57Ve97fdWfWmRu+U3fPY84Zip5pyzPQLNb8f9MMt6j/
AdE2QiQ=
             "]], 
            PolygonBox[{{415, 66, 339, 341, 342}, {369, 368, 371, 67, 410}, {
             388, 387, 328, 66, 415}, {422, 421, 401, 70, 434}, {444, 71, 409,
              419, 420}, {376, 375, 297, 71, 451}, {455, 65, 306, 413, 
             414}}]}]}, 
         {RGBColor[0.648475989767541, 0.6635826625258887, 0.911428617368937], 
          EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJwtkT8vREEUxWee0kdQaTe+gkQ0smTFn43W2koUXnQaEokoCCsqeYVVKDUS
jUSiUKBS2Ag+ABHZQrfl/k7uKU5+Z+6cNzP3vvF2ubRZpJQm0AhazSk14Qqc
RLP4Q9hHy/gv+IPm8S/wBLXwR7Bjfwp37LX/iRr4a3iBKvwT3PU5Z/Db5//B
c/t/2EOL+Bke+ev6IMeevGpXztzD6SLu0p0DZ/ruQ33p7jfWc/AdbqE6voSv
Pkd3Hru+niOnfI2zP5x5hlM+V3O6RGv4uxxvVUbZPc9B8+h6tvvwwL6dQ03P
fixFvuP7K7/7lvUCvMnxb1TrOtNyrvJaPT269+0c/0MZvWW0iOxDEbNWRvPe
8Lfqu7RXbQhIkUVo
             "]], PolygonBox[CompressedData["
1:eJwt0T0vg1EYxvFzTgxKE76AwcKsn8Balmp0b00mnWvqIAZ2kg6NQSoMJEq9
LSTeoiEVo0669AOw4n/lvodfnvt5znXOuc9zpleqxbUUQpjCCIYxhBLPCsYY
OOH9GIc4whte8Yk+NrBMdgHz1OuooYd3tHGKBzziCQ1ff4/6AC3PtH1Nrf2N
HwzwhVvc4RIXGKW3TLJvGtvBLurefwFn1H/49Z7U21W0vZVRtosXXOMGWSwy
toR9P0PPM8pOsudEsp7U23O0rOZ8UOcYm0u2p/ZWj+p1BrPJzqSzKaPsVrR/
p3/SpN5GmTqvb9HmaO45dQf30c5W8rtajZbVHWxGu7OKrzdO/Q+PyULi
             "]], 
            PolygonBox[{{407, 406, 376, 83, 486}, {554, 75, 268, 430, 431}, {
             438, 437, 433, 80, 452}, {443, 442, 444, 81, 463}, {454, 453, 
             402, 78, 487}, {428, 77, 418, 422, 423}, {426, 425, 418, 77, 
             578}, {474, 83, 451, 461, 462}, {457, 78, 382, 439, 440}}]}]}, 
         {RGBColor[0.7150776070932077, 0.7705929294711, 0.9129469291081771], 
          EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJwtkLtKg0EQRnfXSxHrYBBSqI2KYBfS2VkEBLFJiEFC1E6TzgfwJXwEGztB
BDsR0UYLOwsb8dKZXgXPx3zFcM4//+zs7MwPRtvDklJaISaILh8DOAvPckpt
/BzeEof4Jdzk3xH+jn8SJ/gdrJSo+cKn8H28Dtfdc61EX/kifKauh9/DJ2IH
v85xXn1054Vn0CyFMx38Fd/AD/Aq3PU8rRJ3qH8Tbjnfh5OepwYXXNOAq65R
bd+ufsfwIcXblpxXbcuuHTTcR+97s2t/Tbtyc5oP/2HmK2JPfeE4R/4vxy5U
f5PjW3mda/v+ITHj3VY8m/Lq9Z1jD9pHzW/U7uv2afjoni/wI8ddp/DXO1+m
5h93oTjI
             "]], PolygonBox[CompressedData["
1:eJwtkDFLglEUhu/9aImWJFracgly039gQ84tLU6Km+nmD/BP+B9K8INAnBSX
UGpRygyqpSQMEgwMnfJ5OXd4+J7v3HvPee89LlQvKpFz7gh24Mk79wjnFHPw
h68gjWegB0P2lWEP37C2hh9YwBu8hjM624ACe6+gjw8gj5dgis+8rWlPUr35
L+J1+MJjaME13HjLoCz/uON7EvLUYBfvRnZWtXc8BaeR9YhDD/XKUjuDX3wJ
c/jWbGqVMF+9xtRGcA8P0IRLZ3te8GeYeJuhWYeR3U13PMDb3t5KeZRVGZVV
d+ywluB/Hz7wz5BhHt5Ub3vnLYtm3uJbj/0/Aw==
             "]], 
            PolygonBox[{{478, 88, 378, 465, 466}, {507, 94, 462, 476, 477}, {
             584, 583, 472, 101, 495}, {579, 578, 473, 110, 611}, {484, 483, 
             449, 109, 552}, {531, 92, 467, 470, 471}, {450, 98, 486, 491, 
             492}, {518, 100, 408, 497, 498}, {492, 491, 408, 100, 516}, {553,
              91, 463, 468, 469}, {460, 459, 443, 91, 508}, {494, 493, 474, 
             94, 496}, {512, 511, 378, 88, 514}}]}]}, 
         {RGBColor[
          0.7797375983514724, 0.8527025947287612, 0.9063672592683213], 
          EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJxNkb8vg1EUhu/9+AvqxyShEgmRSAwWapCSaNIJkS4WEsqgWpp+FdHEZ5Qw
GIR/QGIxGQ1mk0QkTXRiE+w69Dm572B48z733nPPPefc9HppaTdyzk2iLjTP
4gKv4mfoAC7gWdSE77xzGXgPnsan0DacxmdQBR7Cj1ECN/B77pzD43C37n6x
V9FbdTyPavAE/sPZA7wIHynGYkcV88F5UZxXXRZ/g7a0n8JfiTuFx+A3OIZ7
4EG0A69Zf8pvfZ+o5hzeUt5HfABtwrP4lWKSKPRgvTzhw6wP4U+4Xz3anK6V
5zYKuYw35FZv/G9tM45Vj/Vd0PxH8DZ5S/Az3su6CC/g7z7M/8+HP7O7liNR
ndbTqmqbi0L/9mYfvoz24RX8Um/Zn//60O83XtY8bd4N5bQZvPhQQ0t/21Qv
KcXbvQ6fl0mf
             "]], PolygonBox[CompressedData["
1:eJwt0T0vxEEQx/GdJdQK5RGlcDmJi4dCXEM85OSOjsQdyaFyhYJrNPTUvACF
RuVVqCQi0bqekJyGxPeXmeKTzP53Z2Z3/mP77c3jnFIaRT/WWayhig00sBvf
tFfGtBJgWMAByxNsEa/gkfgSL5bSD3rmOcodxhl7t1hWLtpxvkU8hRLmMI8R
FDCAQdxF/TfcEC/hKHkN1dpDM+6su9dRi2/aW8UFZ09xSHxvXusKD+Y91OuL
+Bvj2e+m+r+sn8xj9Xwm/jN/u2bwSdw1r60eQ+R2cB3r8+xv1tv1hg/zN+qt
7+hiIvtdNKNX9iusF2Mmmk0r7qN8zWIWM3GmEv9E/yajD0VMxgzq0UO9trGD
f+RrNvU=
             "]], PolygonBox[CompressedData["
1:eJwt0LsOQUEQgOE9i14h7rfjkijQITkqD0AhoiAahaBAkEg8hyfyHnQahYKE
IBL/ZLf4MnNmZ3Y2xx0vuwutlAoigCwfa+LVUeqND4bUBohgy9mB2MOG/Md5
nDyBEeZyDzGFNIp2RmbzKNhemfkyO+Osps0e2XfDhFqSWgt78hyxjgaq2FEr
EcuoIIaoNntlf8bukX1H7ltRC5N72uR+2y9zrjZvONH3xAsP3B3zD+RfNOnx
QeNMbUotRN5BGxfHvLNP/gfDdSDA
             "]]}]}, 
         {RGBColor[
          0.8395503710327794, 0.8726485606502097, 0.8795711907072729], 
          EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJwtk8tLVVEUxs9dDvoHRJAiFXRoswgKAwcNnGoOm0jZoIdBoNgVtYGKiaT2
gkorqby3ByQZ0UO4V9RCQTESJAepAyvQQTQQRMLfx1qDj9937tl77b2+dW5Z
Q1PtZUuSpBYVoDwaRJ/RJi+W4DpsQn34m/A7msGvwiyaxC/CZTSF/w+3Y803
+CXq5OAD9B4/DffQKv4nfAWz6B5a0xlwAR5GGfwZ+Cbq6xxL+V7VeCbhO+FK
7FWNk6gdfyVqdKAbqJfnIXgXzsJ5NIqu8jwMP8Kj5r8d1Jlx57fm95bXb4vR
+1f4A83hf+l99K6cXqKn+DTMx/p5uIEW8FuwJdZobS6yUvbnzOfQaJ6pev+r
tegxftz8frrnadiMnuCvmd9D9/kD61En/pb5ftWZM+87E5l8ir40nxPmWf0j
467EZ6O5nDefUY357NWj5qx1Wn8Av5vyeqXKPubSGnl3o9fKmufncAR2x+x7
onZXnHWR5zY4BNOJz2k0slaGyrLSvOYReCx6rDbPRflMwEvoDl4f+VZk/ltn
onf4h3AA9SsHeD8yH4MF5v+FFCxGt/HH4SHzHtXrWKzXrBrDn4KFsVc1rke/
6jsfvainovg+y82/OX17H+BOyt+Xmb/TmgpYFzOrgo+i9wvaFznrf/BC7/Bn
YUncWXffB+bNmTU=
             "]], PolygonBox[CompressedData["
1:eJwtk01LlFEYhs88BO1FWkU6P0BxYYSpMItchFFoUYlFIEGQ4ZSZFIbT15Q4
M5XTjItItJjygwRBY4h0YSBBwkDhyl1SkL+gbdfNcxYXc73nfc/Hcz9nkgPp
3iELIbTDAfjFww9+a7CHj0EFfw8z+ElYxOfhEV6DneBzvuHbsIFX4Qv+Hb4G
H1vEf8JW8LEVfF/fBB+r4p1aA5+Ew/hnmMFnYQlfNV9bY7fxBdjE1+E1/tf8
7FpzF38BOfw+3MCvmq81BxW8A/L4OBzCG833zigT/ET8XvuN4HfM52pM7y7r
DHgJGvBlgT/VN/hdeBv309ykMsXfwVG8DrLBM72GN5vPLcIpfDA+F+AlftP8
rDrzdbzLvPYpqMeL5rVOawx/Yt4rrT+Bn4HTcB4uwCXohxKU4Q18iv3V3LVY
r2oYxV/Bg+CZpvHn5rUrgyxeUJ5wEfr0rfnd+QAPze+M1tYej/F78b3u2DDe
Y16ram7Cu+EZXoYreMZ8Lc0Zx1tivTpPCp82z049UC+Ox/MpL/X6oHlvdd4j
5pkom4/aE79l7uqJevMHfseMlFUq3idlcAw/Z95L3dmzeMK8F7qTreaZLMT3
uZhxKWakrPTnU22qsde8p/l4n5Rtm3kvVaNqbY33XXfoXyKE/4WWgR8=
             "]], 
            PolygonBox[{{665, 664, 643, 181, 684}, {617, 616, 588, 146, 
             649}, {670, 166, 639, 664, 665}, {637, 636, 626, 164, 631}, {657,
              150, 569, 740, 741}, {610, 609, 607, 149, 621}, {634, 161, 632, 
             636, 637}, {601, 600, 549, 126, 574}, {647, 172, 625, 616, 
             617}, {594, 135, 587, 590, 591}, {599, 598, 577, 128, 597}, {650,
              141, 593, 609, 610}}]}]}, 
         {RGBColor[
          0.8993631437140865, 0.8925945265716582, 0.8527751221462245], 
          EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJwtkksrhHEUh/+OT+JT2PkKakpSVpPNuI1SFCnKMKhxy0JhZUNyV4xEUTTl
NmIiYUbjslJoyMpzOmfx9Pze9z3vef9zzlRE45FWCSFUQjlsQAn+YIQHzziB
f+CW/KsZF+EL7rh+xW/4VCHv4TKaXZNvxOq05gUuYD9Y3QLPsjiD42LfnNR6
v3+Jp+GEPIdXxXpmcRTWyMM4CUfkflyCc/I3zuEHuIcneAx2r5pn6ziCq2CZ
XIdbvKf2noVdcjfuETtzFx6DNLkJD8EBOSbWS3vqMMfFZjjhs8pDwc+S83PE
/N1BfCxWc4bb9Vr34N/R82jfPq63cS8uen/9TsJ3lNLfC1e6O59l2t9tFtvr
KK71c+oMFr1+B2/5DFdwQWy/edwhtrNNXOPvao8Br9fZz8MhuQE3+nnaxPah
NTO402eos1zynepuU16v703BJ7kef8A7Wfgf/QNvdHRE
             "]], PolygonBox[CompressedData["
1:eJwtktkqhWEUhj+LG3EJbsBFKAfKkRxiK0VxTikR4YDCqXnITBQZMha2OVNs
NmUKmT2v9R887efb//7Wftf6V3peLKvIQggZkAb5HOb43IJOPAFXeAIO8Bq4
wJ+gET+DS/wNrvAqmMXnoRIvhxl8E0r1DM7xM1jEv83vPkNqaghxzjt4Eh7w
U4Hvwh7+DvEo3y6eA73BMynbunlt3dHdL3jEX8BS+C3nHmiDdkjCDYzCGHya
Z10T5pmUTTO4VTbzbMrYjx/qvrLBNt5n3rtm8IJ/mGf9nyleAZNR/S58Iupn
EUrwffNaqnmPr8KK7sAUNENT1IN6GY/qq4ZqVcOAHOrUC2zAEixDa5RvCbrx
WhjCPyCGH5tnUT3N+tr83WsGd/gJHAWfqWY7bd6LehrBtUyDwTMUmt/RXe3I
OV4c7Y/eWSaea75Lr/qNaqtnfF87hdebP1PGAvOZ6f+0U2XmO6f90U5pt+bN
76pGC95g3psyZeMd5rPRd4F3+8v5RzuiHLBgPhvNaBj/A/b5mG0=
             "]], PolygonBox[CompressedData["
1:eJwt0ElKA0EUBuC2xRt4Aa/kEdwK8Qpx6QV0IVHjBC41kgTNwnkGx4BB3SpR
FKeIIKjfI7X4+Kvf637VVQNDI4OFPMuyfvr49HAqN+UxJyyyQJG63q68ZNt6
Xi6zwhP3ag+yzSMdNtTG5DgTvPDMBU29nt7uzJg9KmeZ45uW2o7civ1SPfpT
HOjtydz3beubNDfmH0Y/754jzvMlG6wzGedSu5Xn8R/WS/EeZ2mf2K/Cvt5d
Ol+cczXeUfuRM0wzzJpaWb7zxlGa+yGrsa91Kd1j3GedGldc67Xka9yZdVP+
8sc/dQlOQg==
             "]]}]}, 
         {RGBColor[0.941176, 0.906538, 0.834043], EdgeForm[None], 
          GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJwtkEtKA1EQRdvqlThxQS7BBZjlZJogOIwgGDKIoxBBUEgQDEK7ATufJolJ
/AQ9l7qD++6hqKpXVacXrfPLKIriDJVFPnOsS7CPGvgef0NHeICP0BI+4O9m
xcoyc47wC1rB3/iXc5T77PgPfkL+L7yEn9AC3uJ7c4VfewbNskNb+DGyXn1u
8c/ImW/wDTrAa7zneBu/cp9xZI1qNWPlv4b4nXMeIiVWXdd9OvjMu2ingW/y
ESlxHfmHajX7BNXwNHJP7Rvs/acd4MbzKke7rdxH967NumvHM2inoWfWzdqO
6waNe77i/9nhYI4=
             "]], 
            PolygonBox[{{726, 251, 252, 769}, {687, 236, 240, 693}, {713, 244,
              235, 720}, {721, 235, 248, 755}, {754, 248, 251, 767}, {701, 
             240, 239, 717}, {762, 239, 238, 727}, {756, 237, 244, 758}, {760,
              238, 237, 759}, {770, 252, 253, 751}}]}]}}, {{}, 
         TagBox[
          TooltipBox[
           {GrayLevel[0], Opacity[0.4], 
            LineBox[{765, 771, 747, 746, 696, 729, 751, 770, 750, 769, 726, 
             752, 767, 754, 755, 721, 720, 713, 758, 756, 716, 700, 732, 759, 
             760, 707, 733, 761, 727, 762, 723, 690, 763, 717, 701, 694, 678, 
             709, 675, 710, 693, 687, 757, 663, 686, 672, 673, 768}]},
           "0.5`"],
          Annotation[#, 0.5, "Tooltip"]& ], 
         TagBox[
          TooltipBox[
           {GrayLevel[0], Opacity[0.4], LineBox[{258, 764, 735}], 
            LineBox[CompressedData["
1:eJwNw90qA2AAANCPN9mLeAW1WkvtarnBbCtFkaJs9pNhspK/EheGIkrsBimi
qEWJG1b+igsvoJ1TJ5LMRNMdIYSE5c4QclbsN2uXPc64aMJ3562actaMC8aM
223UtIMmLTnngOvuWbNon9PmLTjlirsuueaGk0645apj7jjiuKMOe+SBm/Za
98RThzz0wkuXbXjrudfeu+2Nf/776L5Nf33xwWO//fTZL39s+eaHZ15556tP
tgFUZTyz
             "]]},
           "0.4`"],
          Annotation[#, 0.4, "Tooltip"]& ], 
         TagBox[
          TooltipBox[
           {GrayLevel[0], Opacity[0.4], 
            LineBox[{628, 580, 629, 632, 636, 626, 633, 638, 639, 664, 643, 
             642, 585, 615, 530, 625, 616, 588, 558, 557, 593, 609, 607, 587, 
             590, 598, 577, 567, 576, 560, 569, 740, 603, 660, 652, 600, 549, 
             548, 534, 572, 570, 537, 543, 605, 542, 519, 499, 571, 544, 506, 
             540, 573, 595, 596, 539, 565, 545, 503, 564, 513, 515, 532, 581, 
             614, 613, 679, 666, 680}]},
           "0.3`"],
          Annotation[#, 0.3, "Tooltip"]& ], 
         TagBox[
          TooltipBox[
           {GrayLevel[0], Opacity[0.4], 
            LineBox[{529, 484, 552, 556, 592, 608, 606, 586, 589, 485, 546, 
             566, 575, 559, 568, 739, 602, 535, 547, 450, 492, 516, 536, 517, 
             541, 518, 498, 490, 505, 494, 496, 509, 538, 507, 477, 502, 563, 
             512, 514, 478, 466, 460, 508, 553, 469, 584, 495, 582, 533, 531, 
             471, 555, 432, 427, 579, 611, 702, 734}]},
           "0.2`"],
          Annotation[#, 0.2, "Tooltip"]& ], 
         TagBox[
          TooltipBox[
           {GrayLevel[0], Opacity[0.4], 
            LineBox[{703, 523, 522, 488, 452, 438, 551, 521, 440, 457, 487, 
             454, 435, 423, 428, 473, 578, 426, 431, 554, 470, 467, 456, 472, 
             583, 468, 463, 443, 459, 465, 378, 511, 562, 501, 476, 462, 474, 
             493, 504, 489, 497, 408, 491, 486, 407, 449, 483, 528}]},
           "0.1`"],
          Annotation[#, 0.1, "Tooltip"]& ], 
         TagBox[
          TooltipBox[
           {GrayLevel[0], Opacity[0.4], 
            LineBox[{27, 399, 400, 385, 381, 398, 395, 410, 369, 367, 362, 
             397, 360, 390, 354, 351, 342, 415, 388, 320, 317, 394, 414, 455, 
             416, 441, 384, 436, 433, 437, 550, 520, 439, 382, 402, 453, 434, 
             422, 418, 425, 430, 268, 420, 444, 442, 458, 464, 377, 510, 561, 
             500, 475, 461, 451, 376, 406, 448, 482, 527}]},
           "0"],
          Annotation[#, 0, "Tooltip"]& ], 
         TagBox[
          TooltipBox[
           {GrayLevel[0], Opacity[0.4], 
            LineBox[{290, 283, 278, 273, 257, 262, 260, 259, 284, 370, 365, 
             363, 358, 356, 348, 345, 337, 333, 326, 323, 313, 310, 364, 372, 
             371, 368, 366, 361, 396, 359, 389, 353, 350, 341, 339, 330, 328, 
             387, 319, 316, 393, 413, 306, 303, 287, 383, 401, 421, 417, 424, 
             429, 267, 419, 409, 297, 375, 405, 447, 481, 526}]},
           RowBox[{"-", "0.1`"}]],
          Annotation[#, -0.1, "Tooltip"]& ], 
         TagBox[
          TooltipBox[
           {GrayLevel[0], Opacity[0.4], 
            LineBox[{289, 282, 277, 272, 256, 269, 357, 355, 347, 344, 336, 
             332, 325, 322, 312, 309, 300, 292, 280, 275, 271, 294, 334, 352, 
             349, 340, 338, 329, 327, 386, 318, 315, 392, 412, 305, 302, 286, 
             380, 255, 296, 374, 404, 446, 480, 525}]},
           RowBox[{"-", "0.2`"}]],
          Annotation[#, -0.2, "Tooltip"]& ], 
         TagBox[
          TooltipBox[
           {GrayLevel[0], Opacity[0.4], 
            LineBox[{288, 281, 276, 263, 346, 343, 335, 331, 324, 321, 311, 
             308, 299, 291, 279, 274, 270, 293, 298, 265, 266, 264, 261, 307, 
             314, 391, 411, 304, 301, 285, 379, 254, 295, 373, 403, 445, 479, 
             524}]},
           RowBox[{"-", "0.3`"}]],
          Annotation[#, -0.3, "Tooltip"]& ], {}, {}}, {InsetBox[
          RowBox[{"-", "0.3`"}], 772], InsetBox[
          RowBox[{"-", "0.2`"}], 773], InsetBox[
          RowBox[{"-", "0.1`"}], 774], InsetBox["0", 775], 
         InsetBox["0.1`", 776], InsetBox["0.2`", 777], InsetBox["0.3`", 778], 
         InsetBox["0.4`", 779], InsetBox["0.5`", 780]}}],
      AspectRatio->1,
      Frame->True,
      FrameLabel->{
        FormBox["\"Dean\"", TraditionalForm], 
        FormBox[
        "\"\[Kappa]/\\!\\(\\*SqrtBox[\\(Re\\)]\\)\"", TraditionalForm]},
      Method->{},
      PlotLabel->FormBox[
       "\"\:0421\:0434\:0432\:0438\:0433 \:043f\:0440\:0438 \
F=\\!\\(\\*FractionBox[\\(\[PartialD]p\\), \\(\[PartialD]x\\)]\\)\"", 
        TraditionalForm],
      PlotRange->{{0, 250}, All},
      PlotRangeClipping->True,
      PlotRangePadding->{Automatic, Automatic},
      ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztXQmQVNW5Punb3bODO/JeLDABMRAICGoYEIEoyOoghH0EBIYBEYZFZDE4
DI4DjkCD7I6AgDOCBETHYZOACoKG54hRMAw+YqKWVqUqValKpVKVqvPO95+l
z+253ff2iHmv3ntTdbv7bud8/3L+7Zx7Z8ik+cVTH5s0f/rkSa37z51UUjx9
8rzW/WbPFYecHzDGasX2TmuG31z8VB+1jHOOkx5f4+nLEZ91rIjJvxB9Xiu2
fBZr4HSFfZ4V1bGGWD79zM/HdxEropO4Xl2XH2MN4r6+sptC+sqSzahT1Gxd
kemmIVZE3yF1LU4V1XHqKj/WwHhDjOWLrnEWx3DuF3bzjqv5kDqGZnA7viVl
2QZdnSIpSfO+rTeXfCB+SPBcojYAJfg6JtmlCQ0IvrkESKA0+5VIANZIQ3cb
U90UsTqe0HxGStYX+CmD41KGghQK1dSvH1ni0iK5kY6FjbIpakMel15DxzLN
MWZRal3ndWszOhZpdCt6ldRHJY8bN5dnqar9py+3u0neddTzftG9T++yRXar
wq9VT14lpdVCCb+uSOqE1zXNaQ9QGoT+qOuSXOtxLM8oTfz2cIBu81S3ZngL
pYvhO1i3zSzdsG53AvT8Azff9HDUNKM1zTc9rL2uScY3r2s9jqXiW6puJeF5
4lws3S4VZMd1rxOgzwSOactsX3KTGoDSMklyPK5LxjSvJj2OeTHNCdaz5hsZ
N6MRgXo1fLPvDQXrNoCy3UB72ZZRT6lMV0XvPIZ7Or3nmsEUsNdrEm4L2FsC
97xG843aBscs3/avM3WhNLrPZdKrx4cf/GzS7lKYzUzvNnCdxBFKwTHFVC+P
6x7FVrzBXZ6nuTK+khFGil4uzutYXqrbfTuP3x2PUpK49uQ+N8ntvp0rn5sq
kmmDrxUIvTPlAamhOe5o04jObQP1eekJHBnAq/Mhj2POf9N1/1v6+J+ExetY
VKrQDSmGs+N7zt3kzR7HMj2O5QW8zuuYFynXB7zOC18CG7ycjuN3jlqMyMad
f/7zn71PnDiBbw2i67lz52769ttvbWDRf/zjHx0//vhjzWJ97CcXLlzI/tvf
/sauk8fy/vrXvxqwI/AZsgyAhu0VWjj+59ASX7roNJ8ysYrPnb+DP7+xnoV5
9Z5vWQZfs+59XrF2Hz90+lva3jj5JS99dhd/7e0PBQ/PXPpGfL6wp5Y/v2Ur
/+0nF8R9F658waL8/KXLfNfeV/nz6yr5C1uf54fr9vNPf/dBM/71l5fELZ83
nOebN8WKtmzZwpwhr7/+Ogv3O3LkCHiErXN9fX3o37766ivmGJZha6c0IpWp
M4mN40psbvqexM6uI/6tX/0Nbcue/C2fOWsz+MYW3CdRtp1wlrhZMreE9WEP
sTLJS7Z0kPIPnZeyvZe+CSl21p35hK9cE+N1vzkhGCnZ+d6HH/FXX6/lsY2b
+cb1q/kbB/fwjz86Q+x0eP1/nBKMf//MCWIztjdr94X4S9s3i+a2VW3kscpS
bCxEnw7fsn4Ff2XnBmziGD4dfvDVFzX7pbJGpQCu+ctf/mI4dk0KYxBV1sjk
RsG43jSb4+Y6tsry37OJfXsydm8VcXvBfd1Y4dpveeXqU/yJ0s38zXe/Jq4f
On2WPdCqL3s4thWslkoc5qcvfsVXbtzOt2x/ib92+EgGMT4TOo1dvqHqReLk
qXeO8kuf1YP5/Isrn7aw9FlIgSQRok+Hv3f6LS0PsSc+oySRMBRfSwSSiCoB
HK19mZ88uheCkEIJY1ew6+Xpt7HB5Xv5udNvsi9eGMbuLK3l9WcPh+h0hH/6
4XFIiqR1unQ8Kz39FVOD5/o///nPhu/XJZfFjUZ08XEV8ThmhQ2a7wIqPpux
2f06ss6j9xDvqxcVaq3nFSuP8/I1e8B/4v3kDmPZk8c+50srdvA9R09L/kf4
O5/+CUaFx7a9Qtp/6tyHgv0QQoSfPPsB31GzhzQfhmbN6hUspJh54NfV/NiR
g8R9IZC2HgIJK4Ecf6uWBCIEI4UUItlkUhv4tXwAYwOW7ef7Xt3FNs/MZ7cW
lPC9r7wkL4vw3buqqNOXVo5kbdk9bJ74rUeZOEfG3ofRbZIyMMJmdGeswwPV
fMGias1AcQ7szCQmrt7yJjFw2k8LyYRAoZevquZvnPooQkzM4yfOX4ESsxm9
pMw6zNlPLLxwZQcbycayLeL3ljHK6rCubNHJL0QX4ooQeCxw1R47zve8dhDq
Lk6Az1FwgFgH1YdOK053Ik5HhMp1YeN3XaK9r3eNYt1Kj4mGsBdmX59awrpR
X6PY7i8vZeNws6Zxp7SgG/v5hN/z4ulrWdWcUcQdh7iTBafFtu39teGMdlRl
qzfxZ56v4sfrLwslAIsy2JmqQsaGrue7a0+wyfe0ZaMqdxHVcF4OMcsR7Hqb
LRrzFDss9qQhyCOHduTkO7z61wdIF7ftriajIHjEn125nAa1UAVe8/I2UjLB
MWMJ/vTFRVBOTPmxYhtYxcZV0d7ucV3YslOCYVJ52e7SJey0up5MfLYPzyga
cBSn1k8VFHav5o+XHGKDOtzKhpfWK06FedW2S2xWydNsbDtyQw5ZRIfvqfuM
Py3sYdyr57G9S7qxgqpvaA9Ma/foAb6p+iCvXLuO3BAY8eGFz1y61VwN2PfP
/44G7bF3T5PbEtcKZkCpInxVZTkxTG+CcWoURTDwjAvD9vaJQ+KoZKJQOcPE
6zWjxklNhs5FGukcMTWPDmfYl0pV/bLKhAyhxIjKSxEda5ji7+bua3jJXOEV
dnyuhmmYVe85y0a1wdleYG+Y2JtNuvhU5Xpec+hd8u5g6Wohfpu9HZeclQFA
Bj/8wUVSzwXDWsuuhq4iHwST2JI4HDYcxiYCBQdsFhARckErwWqHPsNGQ7EJ
5msvhGENwwelpXBBGjk9wvUGY+koH3bug7eNUc1VYoGh1WKRwz4KB8nq1w1l
bOxWW78jSmpCQkaTM5IzPKrYXl76ETF6w+bzSo8dXrJoDX986Qa+aedJJrmc
xXcfPM8rNx7kS8pf5KurqtnzMzomcphJQ5nFal6cxYbNeYVCV3j95SueJc8P
Zf3Ne2fIGrSR1oD/7vJ/alaLvuQnLAGsBo7vf/NQiNgfMUZBb2KfadGgeS2a
XCUgRMdKNGIPn1GML1Y6ug3rPpnGCXv2kW6s1ZA5IdqJsGdXzmFDWmkTLqfg
UmhthmJi0aTtvGjaGktbIxTbb9/5B75s+ZvEOHjoCDEzynceqGcVxfczdlcx
377/KKsYfgcrOfaNNA7XsjPHziJkZWcuVbOCLmX4jTMURcGLi1sgAzIW4C0I
f2HnLuIvjIJQX9YL/M3xzU/CtE/nGmI+YzRTUStiQcpkBHUqk3EoDkTmAsqi
RGUOKx0suXhLwTJyFBig8KGkMsfKWEfFZahOBh1tRiQKl8v3n/gtkYmABbaz
9JkKClxAKhwESNUqIuzkj0BtqxTZRNgOnyWlqUjNskbH/AW7lH2Xn5u3fooo
gq/bdhS2J0PJtKb2U5IzTBGUXtgYfuzc769RZgeEgzARlBFhZOw37wRRQmUE
eaJlTSA2odBatzFkMEwuaIfZKUUArwlVFTI/QrMVocKdURgkdVfKdHn5YYoj
BWWCIaAyj6gUoRJftHwrwYf2Lhlk5ChlC7VlhWy1MsSOShiVuZBGQiUGmi3Y
hGqHqEFKkAbU1dVRdnS3R6issyGltI2MHbmbkKJt5fKLJEjb7K177is+bfJO
yiSjimrQC70GbcL08deO/0HRnQnzx9bNGSh6XwIJs8LuP2IjnttPOi2kLJ1L
mNw61BksKFlylqgc7BeSZTTKtubNquXDfvEMX/z4CWVjwryi7BM25Kcm59Wg
RcxBJgb2GonAtr3vC7gAnctenN2NDVgl0+H95WNYmwl7SUVB4BPLK0mAG3bt
ZzULSyEsQjvED21mI7SPTnuFzxpXy0f2X8UfeXhrVLnytZNFUNB+IYhho7u2
Q7oobpao164/xxf/ah+hBiKomDSOEVYmXJtGfWhVIWs/G7Eo9sLkhWIvHGYv
7CllBaOqgyG+sRFi2Ov5E0/wRVPe4yP6VYLPdPy5ist8wdyjpDEgAmFxj6ly
pCweMZjd3KuML112kGo4kpQ8svGwftCcuUvWUj1HCIHCEoC2haDJCStykGSI
MJqtGEH2n4zgUD9yWjQiZ8K49Xzx1Pf5U9PP8+kj9/Fxo1aTUKDgRSNqqPS0
esUVCq40OYhjWw8+zp984l0+Y2o1nzFzA8UAWURWNt/58pfkwmDpoFcaPhta
Q7/LhnZj0/aoGDciqFyOmIxt2FEhorP2oIYFIyfiIgfjcmhv1FIEMcKTQ0Jz
H36Lzx5/iH6DROwL0lzSATm3FpxV+QyopagG28rKk+SqMlXRbWvVZxTFqKIb
6Rv+4oKJiEywhg1gcfcl3JIwE4KcB9MjB65SKJjoG+REIQ224KGBlEEA6Yzu
3diIxd+EFWzoHcY+hAHGC6jKOjmILajSQr5VZRawxPAzMskPAI/sogy2qZg2
fvBmIXFgC/NRD6xhE2VsD1Zqb4/x8ORTB1yeAcoBXbexQJfhqU06WJAeqzAG
Jz+0U8FxaHxCkZcuOm3cMeqoGkvUClZ19UljIV8sjBvE5jQBy5yZB/mjow+I
YSDF9uS0c3zCgy+agQUcQsUiKWDBHAAGWWI13BExwPcrJzgsPVDKaInWpLyW
FtfTsHh4yFaM8FRg4CDg0aQPlzyCZ9fpUgoksniVuigszkkfH3EVhTk1EPfD
48esJU4Cfp6SMsb0xPGblI9LToFVKTcU7D/2OeJKlPRTUZCqFBpWQbDnQpSw
YT/MifDHzdMEDd8MXwu4zRRo4cHMfEMKrUxVNde1w0YLQWRLUT5u0AYylNig
tmKUQ1uyFfwnHjkFP50UfoZWYTHCtRcjnj+UmMmnmhuJGFzxZReJfFVjXhr7
DAp5BnRcwqf9ci9pNr5h7IVvE1RJ8Mr4+4KH+RTJSBz88KYxO153j08phxLI
eGz6qwiAJBlZvFe7GXzM3Rt53/Zz+KCflfKHulYSWSBP+Da4aHFzcnJKRRyN
4MgmB7Hphh3H4+ZkRNMUPj7j0ngFgjyXZciCimufi+/72s/jxX1e49N67xdY
xS/RfWH+Nj5mwDpFTXKa7ERK04QgUIcWfjR51dD14E1YDGCX0RHQDb9vhQon
pFPp33ERgY8oEsb+fDPZUD8S4JwRT9gkIPhDDGuczy/9bLrEtXDeWxiZBhe0
Hapi44IKYfT64QKNmBSTtWyJCwGESF9UhSw4rtkz9vOZY143uIQT5A92eSYt
XNoRTZn6HE1R2PyCWiM4ljUl8TkyUMAS4QsmvW1MGkLa4d1WCZMgAY26ez2f
VLDdFxAqNLtrvnYBsoLBYIAUo5DroCfNKPQPHDajBEbC6ocL4wzRnS1AO3yg
CsOoYLiQh9m4YPrHdd/aJFxIG8AfG5c9ZtPBpWRncMFmwHY0BRf2RaqipidU
FCgGJursFL7jc3TTcAljwSf3qsGWNi64AcQpNi6bX03HFea9b58Ju0t+RPgT
bX7hWuAl/aBhXK+KveeChqGAhAJlDsp7xvhBy7ah0YZwrs9PZpFb6PfTJ3in
rOEQq6PgDe3yNMyJLzzkGOUVR1XqKeFBwqgoyrApADxV85ERO2Kc+zs8TsDg
h+/IGtMUYLDTcL2AlKPqf5YrxjY2fa6hJwgS4DpmDuPdsh9uCjg77NHgIFT4
WWU7mgAOPQPBlF57eOeskcS5Sfe8nC44ZJcLl8gJ61wrHhbGlqZym4AMig6F
n9hzF++aNY53yRqNcZouMjsUyYunF2YlRhOGgYhh+ci71pJFgzCbiMz25IRs
fPpQtMGHl/559lT+s6wRvOjefRrKwE5L+ZzCI0mh6PooSkoIboz4fKFkNYIy
6oE1fEKPl/iIO9fwHjkzEBebuBHqj379cCDbhg01Ol4Y3ApEKOKGHkNr7smZ
1SQEtm3KMZxoPJ/ZmH7kARjiEH+v3NkwlGn3vnzph5TKGMv4cHpyQFkQ9g84
0Gfv3HmI49PGsbbyT1gcEAhHps4x6kQyHX/ujPKNFh4YEdvBeWgn0jd3QVoY
M5LFUROSY8ywUr78oiLX81hZdC4jZclDL062HzxzPGjDWMOY037oF3mL4JcM
bUhGkJT40WbHFn60af7bq9p1/qfp9soNIwFpspICcl+gScjI0IQ8UeWNKWlC
9o/KlInHJ/rJy3Gl6NmWDBPTdiMfs0pdPw0XseRp16hk3DBl+Mtkr7T3U7RJ
0q63SaMbxraXTbe88yUqSa9fXc16sEI2Q02v6eUMrHUZK1WFJFh44aZ9SfZf
eOqavIXIKPXVVSDktMhthfMmJ943dyFUUZKS6ZLSU4NGMNaeikbsods6sPxf
7lTZpaDoLBvRmigyhTyUqFFVNyXhiYkmMVvjsx51FECjKSSWMENLGhj2cHLa
q2hfC4smLCwr7tQvTN1kMNZiNntMkPJYj86s6yApqQX3D2Et7ipnqeiyM3yi
a5K/AbEVTD98qAdggPlZOh/2GGTadUGCd2dPMWR6iQ9aqOlc1L+A3dhtmReZ
jodPpSUfjyQnM6IEqWxhMZ48EWTkGmHFTaQ1J5vUfKBmjVQGpgMBU37OdH5v
7hyYE0/KbAkuHTic3dBlcSrKbAH6URa2BNjQwLEo+uLtt99ecODAAfbv8kID
284mRDYY4j1zZqrEEIeAO6TQo8AHKhOH1dj2ndkdAyq90IdVOcdK0rBN9lO+
8Oiampr6zp07A/fE7du3t0zgtu18EIRAhwRyKp5Ibmfxwff+yg5ajEX7YY83
KBkWMakaH2EFGmcJuMaNOTtwHeF9atzSs4axeP9E7969r7Ru3Rq4E4MCzGEO
u2Ml4UZVDAGBG7dj4zbFVEzlYsbNXthQUfYJon3KOXw5Grn94sWLJWvEX0lJ
CbYHDh06JJ9pkIWoDLvQQ4EJHATibBFvp8SGgodehJATd4C0khhd+2sqsADT
puLiYmBsfeXKFaWpcdZZdRUaSP3zSgPBQ9qAlM3Am5ocj1zQBxjMgQpm/v3v
f6cztySA0TYMYFAZGNisPBAYVBeR3AYGw5ztEydONKdaWTjsABgFFOAY1KxC
59xMJ0Y4h7ErEweJA8EAKgBGn4qajgP5n6rwUoEJKaIXDpzDuLNxoPiENORq
4ID71HYLbrRrdmFgHKABRmq9XiE1rek4IHdEJsAxPr+K35U9kXCockNKHHYw
GQxH2MJBM3xec2g3mXEeUnVJnUQDmMrpUwJDOQyznOv1arni9IAVweHiz2H2
s7U3WXzTdSPlisgu+sGLetjHjEDwchL5pn6LmKconlxoJtp2HEUajRO2HAkw
cKpCZkqc9vinBHS6H86s5Ditl2pI/ygXMGlstm8EPpG0h1NAg2tC+BscWrYF
zWKbCJJiOnCXeefNSdBpLxMAHTJJLBMIji7HNUB5PJ6znoeOZ70tkkBE1n5/
3q/4gGZPo8qRCiJiIyTqWI9Eda8Z6dkQHWWmGrhh4/qwid9egDI8jGu4CYD0
w9r2e05kXK+fhmzML2TNEGcAePBf4JcIsmSY+2iaIrXHRF1MzWHHH4H3EmnR
vfuobgiIEKsQrxfETAUR1U+1gk6Gir4QU3EQaZIatiKJ8OKg7T5d+bkXvDAZ
ZSx3QO4twM1sis9yA9Cppw+ALA935d/7woqKCnNKPhEY/OnzeDbpRqyzSCB2
1QHciLPjgc8tf/zjH6mhFMIM/JCh9VIeDAvHAyFi6u4506SPkLmuSqnYwJaS
thZt1tBk/lPTN7CubAQbK9MVvbxY5YlEApVzHvNH3vRnkUVgartfBZkQF3fq
x1hLSrtY/5a3sU75K1RoG6aEVqRWREP/Hm84Bme6jxzHVyxx85Ys64FxA8TU
RHIGsTHi2Ji27Vj7TjJnLep4P7u2bYkOXwS4BWBqvHA367tx0FX9YfYLX5q5
ZI8cFVoJRqo8j/BB8BoraLm2zaMaKumASq1J2LObpqa6HGOzUx5r7oKoPVwi
RJudgNjs5km0XCmi5I20v/9Yo5gpUHqtcIla6PQxxwMdEpwH8soaobM1cWDL
duy2NlRa0dVOLXA1ogzSkuQo5RxD2NW78GYhdC0MnsruTFVED92b227SZXw9
pa06lX9iSITS7Fl5AdmzY/dsckt7sovijzk+zYdU6VTPMIKf2FTjekGAPZ8X
NbAbTwnFwSqPocGqZMsFFhV1VNZNPjE3OC9UnpKqeXvVTrrNqwm8VM0jlUN6
YdL4ecGbB+X35s7xal5z/ME+ZWbpqJNm80M6l/E+ufNTNW8rCunh/ODNq/Bc
N498Gnm13TzmY1FgCdy81kMdxmo9VElehsdEy3xvFTTOAKNU7EmQqh1qJuoB
8nE/8mWzagh6Nqsxitzvx5cvX6a7fLkqm1WDxbPZTNmseRocm68uyGbVIEmO
9olg7cAVyPqvbEcvzUm3HUwP981dYNrR08VGKAsDaUnEWH69YZY7M0gDCggK
8BJCYyCkwouCtaP6/17bIXuz2M+L5voEzNaUjTzmXKXu033thg47gvZPVZMl
/v2njMrMguzEpb9Xr3+vyNXMfCnZ4Hx8wlL3hklXVTOW2fySRMMWmEbzdIId
eXrTaNsC6vXJ7yhjaw5M88IO3Kzhyu6MSkXMiRbAc7DiPktZe9bPvJNQKTK1
n2JEJ18h7T1JaSdhGsqg7LuE26FCLGsXbsG6dtlK3HC06KwKlq+VozqgEOxg
1kc01yezFWuVLbvpmdmBXX+LXIXtng+VkgrWtIuBuun7s+9g17QsksqqmjaV
GSGQYDY1g9qyIYMzedFR5MoMZF3DSx+yzeg7o61Y+7xyeozFvPmvoUEV4OLv
/fXtIiOpal2bOT++Wt5KyoSOBPQRusUwPkubYMeXff/3UAhWFkTATpArVYxn
8XP51b/DTcHT39fltHeVLydOlgdq05zyej3c1T6Wovv/fynh/z16bXWwX+zp
fu/nM/SVnfi2ctmKeUmwXLIjrKZULqX9WOwE/5pvFdetu1F8z6dQpa3dV8S8
fp6uUsGEXrdmXkkv9lRnclRab0mXFjy+xI+WMtapTlaqqwlOLB6JUIfyB3zt
j+XVkxUkr0BBVsDDia+t/4m8c4oRUNx/yyfy1Tvs3VFDyONYy+RN9KKvDDfN
CWG8rHA6hLdOgZdL/XLMtXZQZNfK7d+RRP4mnFcTtLLpLJbkHbOuW0JebFXX
9ZQU3kNfP5S3JU67mf2E3y4OuGHop1iVoia7XhJ7fcLpxN+J/0JC73s3H1/B
F9d+EzlayuOYz/gERmfJjZ6uy+2YuoUr3Io/jZmMG/YglNfEKNeKeV4v2ZHl
ww576W+m65lhj/a9uNHTTSUZACVXaaZusLKaZAlrolDMizkTRoYl5+9GWELz
Oqlw53hyZlG+cMjBYjos8MLGMunTwdIlY5Rv9WNEi/jS1pQi9lKDFNe7rFAy
7beYra1zfJY+aV9hL/NsC0u2EfZXfpsbrjXZqk3zXz2sf+VirFLCP0exr9EG
TT+rn7AOms5JeGHL4AmYdUWy+UzXjJNH86lUI/7acdd/Q2nnN/AdSxM0q9yj
6jrbfyiJtbOta0Yj6xqfauasC5Nhggu0ElhRrEEvZfb8PybhxAy9re23oq6b
5Mv1ya3/zPaC6gqtGLZU5KrE3BSmjXuNE1d0kuMZZzRyMaqAom7V4VDSWMPw
k1iu7lrBGsccWtxFManA8eDpGa0Q7riiPbPjMvaD/wJSEP2Q\
\>"]]},
    {
     GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJxlV3c8lu/31yKKUhRShMpKQglxDo9NVmSE7JC2SkgkSSHZI3vL3hlZj0KU
0EBEtoaiNDR+fh/X1x91//O8znOddZ3zfp9z31utTurZLqWhobm6hIbm/39V
z8Bnj+ZxEP/v6QSa/56P5HcArKe19U0vfIG21v9/3kGPlnZB/xwTjtet7lMT
riN6LNj9vqZxW3wrHDzcI22kSY9npRO0XokGQcbniJgLQ8xEToDA1L0dOeOs
eNfw4zl1tQyiz07O86GWgYvmgSonrlFTtVovW0zibSH65dCbl01XVMmNqnaR
fl4GVcT/VmJfCx5UXmGF7zxYJ+/88uveepIfH/FH/UcufketHP3Oh+Y6nO9E
KA9IfttIvCZ4t66wsrBtO/4wp/6x1W6BnfUhT9dm7SDxW/+RXR1WRRV48GP4
caf1sYcfk/sJkPza/5F17KIeZa4XRHa5G+snxZ/Czw/WDuLPBEn+Hf/I72z8
np+4LYT2SuaxK6Q7wXL2R3/+eyGUUem87F/ZSeolQvpTQOqzGwcN7Z6WjZSS
+0uQflX9Iy/cf89ifxfuJ4nD/lIvaOipJH8p4u8BiS+DHJUSdN/GHpF8pbGP
J+TRifpm4HObWz62XxK9j5t82LQqG+bIec7MaNy6wkISXw4j8xOUI8zL/pGb
9+1PV5xWxB8umQW0zQ9A6GeG2ZUTSPxVgewMw61RLkXk7WiY1l/ZSPqvQPzX
Q9JTkVj/GnmUZGXQaD9cS+ojt4i/hfw1SP0aSL3kF/G4cB/1v/CkuIjPhXqo
LeLv7/OF+qks4nWhvkqLeFa9/VTkmBkFUyl/5ibKU6G88NuKsNADiHx/UisN
70HHp0tXDEyVsX/5H+2A2WzYMR2kdiJem8hVYHaufys26mDVmT/ueeq18Kvb
9Gagsy7O2tVwyqXVwbQWVbnbSoP4LyH5qSGD9R9dNo7Cf+SFfqlgR51YkG1X
MumXOlINPzj6nsoi+lrYM9uVpH8tn/RDh+gXkXrrYot/0KXzPGWkH3rEvoL0
Ux/dZAV8gjlrSf/0sYpH0yjyfjX8sdnWa8WpgR4dmt5dh5Ng2zs1HWYtbcxg
Y8475ZqxEN9TFzvMn/WsjsqFvvapjZFCB4l+IYypWZY9LtbHkC8iUTzHSmB8
zWXxNp5DxL4cwiI2Nfw4aYSMz00NpJ5VA+dpyZ/+roZYLTNDve9XSfChRfCf
SPCgS/CeRu6vT/iS/Y+80F+DRf4t9N+Q8Od/eDFe5OMC/g4T/lQSvJkQ/tyD
w3eqKDnHdfEMmZ//q9eHA57r3cJTST0OoYOlxUv2n1mArpf8G1KNiH4+nJF+
8FYv3gRFFdcW3B0qhOq0PQpD50yJfQn0OgU9795lvojHBXwBurPkqgy6Oi/i
b0G+uoin8i0+b3XLA6Hcbn2tW44uRkf99xA8HyTncdDRG9EcP6mP88L8P4nE
3yHiLwViS4TLgssMcdWL5FOyDOnE/2Fin0vqa0z8Z8LAjlJHi30mKGh6q/4L
f/Y/+gv8MSPxCiA9Is6Ry8sUU+a9v0jOJ/c7QuIXw0uK1h+zOHOU+G//FRE+
WZB8ymD6NXCpa1pgwxf++YglsPfaKLvAAQPc9TutykA9Fuw+fjxHjTTCR7/Z
O4euJZN+HMZLHgMP79hnQArvqiVTXOZEPwcuh7EGvVW0wE/3S43oNhRA85bz
Ge42lsS+CA4UOxuFnLHCFLlLB2q/lhA+GpJ5d4fw0YTMtyTCN0sy3/JJvczJ
/Ewn/LRYnL8LfLRanL8LeLIh87MEmE+t/ZgibIxPXXasuPApGoLePzdNYjZD
yTmqkfZs4oJ/tMDl0rMiQ2fT4KpdqzRjmyXRz4KdYomNUm22GBvdR2HfUwxU
RtWsndLWGF9m1MtwMo/w+zD6RLMpBM1GEX4fwTzmyucM2sS/pyVyPHfwb0tK
Jfw8isNng3e/cykifLcm9pmE7zb4yfzhVz31XHhnLP2Ae7UZnjzoXi3KGrXY
z1n/X/yPyhMW/NdaofjH/TO/RlNgdX6b2MAOBwyV2xw4/KQQ9sqs/8Jzw4bY
ZwLDNVfqyV12mF1a6WtNySHz4X98iSTzwXLx/Wah/jZk/qeQeWC7uG8W+O1I
9kkhmQ9HyX7IhuGtYlqPz1mgvLDOxYxbETB9Vpc1b4k1Ggaxft3jGE/qb4t7
XY9XWCYlw9gak7x9KkeJfjqZF5Y48N98CV/sr1dLX128bxyprx0GxQl2N7Ak
k3lhT/TT4OkGFSl/WyucCRC9Y6EWDr5nqCu3yNni1NG3rkJlsaR+R/ELd6ew
W3ASRA0nOGgtdyT6aYT/1mTfhBG+25F9dYfUx4HsmyTC32OL+69mlSmfuoEN
PvrCc3FELGyx/7bT3omvKMQeHfHyhelhh6xE0Lg3xmtT50T0Uwk/bVG6VTqG
qzSU8NMev1UkX7wcG0P4eIKcp5B6HMNefdrskwqJkENzes1KJTvsRcr+UPlQ
KDiZNTVX6oCuh5bPcSyNgV8BIv0XPU6S8xTCz6Nk/4UQfjqSfRcNGgWy7V5i
a9EVj0VXxlWAfd2qoukpBtRRNGE+ZtkBEfzXs5q5aef5aixz/MgwKDEcrO91
2IAKT8bwO2MSrOao8Dv0jAclJqQ7lA5lwJdcdbGac4K4bVmgdXBcLjyJMIos
a2LDohpxH/l94XBPJS3Cr3Eb8t/29xK8EQ83KNzWZdt3oVbB9H36EymQy3Ug
YpoigfQcXLK/N2SCVbVb9QR1KzLSZFavu5APFrTbWXXXCiKHzfMjT8fzYbJU
VHnnOibUzIvxBLdq0NzoOP7aYwNymmhKSGVHw53gGblHvTyoNMfOKHYqFYLZ
C/22uwiiezOjp8qNHFCU+Xzpics6dFR6eT4zuwQ2HOZz4zJhRepmES5ZwXQY
FtF8lnCGB911oev+6myoOEcp+q0jiDUMQZLSNPng6MS9c80vbkybkek7VV4E
y0K01483CqAIr1g4O1ch/BpLl8lNYken22/jIoIfwNfUhPUMJlxocvHwwF3x
cqiydwhoURXAXM4lAbItRRC9fNVOKX4GzKj4xrGzfwTc8w7+/pjCiXwbPZ7L
eT2BQN4g0SJbfoyJ1ln3Rr8UeGJ/ZIR50+OaqRCp/qZRcKCcsHbJ3oRvDBwK
7NSeQdN5ERwM24FONEkrPjXcA3UutaQebi70zvhWHuFTDtS2UItv/itx+1J9
poiMMdgemqKsuo8DtVuFl3y51QN7I2u9+L23YWab/LXZnbXQJPiZzd56JdL/
Vv+Wu2Uc0rSr1wV+Z8eeoc+tvUZ98FnRc3XxAC+qRqTrFY1T4Y5M09uBMjqU
ml/r8jnj0HrrGzVvlg01tqy63GgyAMOetDfKVvJiFVPGnuC17fAmgd8pfoQX
NWSYm9bMv89Hv2uk0S+mw6j7aUzWX8fhxy8uBv1PbNgrx97mIz0IXVc+0MNy
XtzvsXGj7lwHmF9MHbwRQIcb557NxChMQJQPI+ejUjbUrylyCt78BhR2pFjb
d/IgHx3vI+ZPz+CNfM4tUTc6dDUoq9HznAD+WupZthg2/GAmv7v7xRvIO9mt
rVnFg9TWcKUa85fQNZa7rtCVDnv9lnVcK5qAIKWiQONoNjyiEaFvd2YIom/S
MeRU8mAT+6Hcm1Y9kP5iljp6gw41fq7eBf0TcErZruJxIRsGSlGPG80MgU8Q
Pz1rOw8mvZ81Glr7Cjp/bS6pVxbAHfa2z1ll2uG+lNd9XSMBlDdd4dW2sR00
n+/YX5NFh2J3gl1Yl05CYEuTUf8bNrSgOzHhPc/PH133/US+8SDnSHDx8MU+
yFNkH3vvIYAulWrhdRIdUD57pkzsiyAe5/yssb2xDTaO9A4NKQngNmPL4Qr+
dsiixG/07qHDgAAfxbXckzA9auf1WZAdm0I+mC6pGAbaDZcrD0rwIp1E3uRw
ej+Elqvv3dkpgJfQa9PD3k4wLvBTDp0VQo3z7b7TL1vBVCT7z1mOlchU+whW
SU2CcoqIhvNNdny/NOLl0RUjkBtJ0XhxlRejb1LfXE9+DdKvp059pgiiEfNh
FoX9z0A57onCQJYwUtz00gVetILVDr8zjPIrcfkqgapWyiRw/yxSLmlkxw1z
zhP920ZApZB58nQJL/K/rd3wiW4APOyaRemvC+K5UvbrtF3PIOFtAWdapDgm
FLm8cc98CKbvJ3K2+YhhH2dtSftgHvzu5JkpdgBsUdF+M3kzCM4lUAMKX8vh
QxsRD6GZNHjnZMefbyCHXcHRjaLthRBuevtbyIww6qoFNltytwHLa2G7xBpR
nKWm+2cKF0On73bF69HiyMUquVtZqBWa+ltCHnySRJZBJbn+yXKIS/XhO/BT
HO2EutzaMx8D5URqv1WiBDYGG9Ju8r4Pdgm2yjUGe3C/gyhLZG47PE6MdKd+
Y0K+vNcKYvcmoVfKquvG563IDLL9ktdHQUEjzm9YUBh/P46+KGv4BgxEjnPF
i4rj8+qPAtc0XwG95KofjzT2YV7fXYvbk50Q5BDlrKvAgrlF3YepOZMQrbHc
OptfAE908ViV247C3k99K9jYJFDkyzH77Hn+JFRJ9XTHyGCPkGMf3u2FFVT1
F2235NH4+M8J/k2d0CfWWyuVKoGvZ33r7gm3g/A9zyFGv70YKtRJ+7WhHJQl
jOmOLpXDaEf5H4E9AeBvcf67dZ8UquwyHldekwId7WFebkclccPZJ27JIuXA
1/S5S55bCjW3WU/NXcyHMe2Oqs9TcigmqMFyZmcguC3lCtm1UxYHrJTHpY1T
gKnkmIOjowxG/6pK9Q/JB/Wgeo/CRBV85/5IKuxnJUg2uQiG23Hg7PJwhVOX
J6GEeZtYw97dSKEbYX/TPQKmn+52D3TKYBC9xKeDEoNwxT4KL++jYMVG2ts3
N3fDoZemLEy+qpi6T/Vyf8oTMHcumv3FpoBblkQvO6ZFha6k0l0BzQrYJq5n
wTBQC6FOQ6wukxT0rS41eRFDhfXm9MuEl8vj8qlGkYSIerjkqGelcQ9xjxet
dDRLNQzKPp498kAemdhMY1JCqsHxhPuLsGuAVj+Gvk6f8oWMHTk19cqAd9U3
3JbMuQMjA33pU7SA6zQ3d/5oT1v8/kkWqhNYX5MOTgeraWLXIbbsr/NF8INc
/Y1T5+8jdp7mXys4Gg9TBqf7dBzlMYFn3wfj8EwAxsmVXFRAc6VXeq/cb8Ng
d/uLXcyI/BzxhZsTM4A3R1hIBxHbV47HjsoXg1P9Cgl/bWXMd2H7ztQdAmvN
mL9u3ayM1dEB1t592VD0lbOibFIJb7mrpMJYGWi/exuhv5SCoOb+xcOjDtrH
JAZPeKqg3jtxdl+zaojb5b1ib4UK5n791dPRXQmFNuVC5g0qWMaxmUU0tAo6
+82P6yYq4ajBsIfC2ftguk9OkPmqEqaaK81Nny2DWt6WevrvStiwbreq/Ggp
mJ7TbMgfUUKrkquqH2sD4cmAbccwsyI23x64VdmeCG4Ble1TCbrIlh1kOOA3
//2Wn/+esl4Z+2XiXSVbguHAV3sBwRlFpG88xbgNsxa/N7Pm7nyUoAQtykY6
DmnsS1JASfJJyDJ6LryZka5f6z0JcflGvStLJVDvBU3M6OgIlDT32493IXLQ
mgyuVh8EThlmm1YtFWxwsNO2M+mGK9mUI/lNB1DvIdurQu52YGL2PHhpdCt+
rC/Vvjnvr/yKtmSs1j6UsCkNVp735+xx8s2vLgq6rCh9tkRtEAJkJAVyrmig
y4Fju10Nu+Gg+x9JkUhdXBLkWPaRsx3oxjjyIrI00J8h2SMZSuHBB/3ktxkq
mNEVHEXPVwWN8kUZuR7K+OJqjGSdawCYtqhMc9KqYKOzt0KmbAI4vTcTmWLT
QKFTkcmsLolgZdE/JnBIHZ1K7sTNSKUAf+Xk9D5jPlR0FHzY7DkJjw/s5bxI
sx/j4o4s+dI3Asvj3V4LTirjt45QGW6ZQeDZ+EqUvUsbk5hC34aLdkOCypa6
ZUf0Me3Dz5qeZ0+gcpD3VY+zJmreGDitk5ENWurRHtwPVZElYkPR1eQ4SPoz
fc21QBcfH1/hEyeeAjGdO4oZZLWw5UZ5s59DHLzyr4gqr9LE6+drbJY9SgHP
M95aZ+f7baS2/ZjZaCIwMpmmOzToovSatS4vRxMg77Sys03SdvSpS9x+m/4G
CO8ZFLvwThKlr/oKt0t7wq0YFrWD2ojUe8/Ofv91FW53qQnwRsgjw0T/PSet
SAhhvEw/06+A0a4Tph+YksEo/P5WMTEN/JwYK2ayKQ7onZ8ccWJSwDjrmxto
Pd2gP/lpZNp5HRwr3htldi4OdiVJ6VlGq6JLDWt18Go/KGflea13Uhcfspv6
OnMkwMUlwXTJf/QQ14VeqoqJhWWbWZh7d+nj8yn1kqYdd8C9eZn2eUU7pIy1
rBykhAG1Z+5tqOxRlD3u5mWcEAZOM8wyTsp26MMVLJv5IBR4Zt1uiqnYIcbw
2c9MhIImv8waOaWjGPdD+5jft1DwFHl+zFjBDi2idp/kZAmDJdfroy472mJ+
lqKWfkYoGHrJmjGIHMULSbHyiUphsP5m7ezEyaM4s9OK8+68/d/fD3+/L//9
/v/3Pv77vn/n9/f8/Xte/B+Q/xJp
       "], {{
         {RGBColor[0.293416, 0.0574044, 0.529412], EdgeForm[None], 
          GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJw1kLEKwkAQBe9yoL1NKgsbv8ZGayurVPHzNIKdoKVgIQgWQkAQ0qSyEXyP
mxTDDuRtdvdmm+2qLkIIU5FEQY3igd/FD/+CvRcv/EnOfhPrmH2pelYdi4sY
MSPyzZlFzD32KznnD+JIT6VMQ2bvf9DrveZ4qdqS8V4f/A32lnmJvhKfxHxD
4u4e79jJ3pBLzD+x27Dj8H4d7vk7bvEb/AFfPCUq
             "]], 
            PolygonBox[{{184, 3, 6, 195}, {195, 6, 7, 183}, {186, 7, 6, 
             196}}]}]}, 
         {RGBColor[
          0.4939067336822225, 0.40600364034297015`, 0.8112259801578273], 
          EdgeForm[None], 
          GraphicsGroupBox[{
            PolygonBox[{{214, 11, 206}, {8, 9, 5}, {10, 11, 5}, {10, 5, 9}, {
             183, 4, 195}, {195, 4, 184}}], PolygonBox[CompressedData["
1:eJwt0DtPwmAUxvFXtAmXDQe7MLDAl8GBzrg44aIfTy6hCQlECYFoNJZgJIHY
1EDooEsZJPxP8gy/tD3nPZe+1duH4D7nnKvgAh09PXTRRw8jjDFTroQPPOnb
ah7hnzl3hTIuMSRWQB4TrPCFJT4xV68iplJUjdU+q9bTrHe84QWvuGFGC00E
mmmzczjHjjNbJPjRTJsdYYEY31hjozOJYrFia+1su6fYq+dOPSLtZLvVmVnT
HfjawXb5J3fUHdpdDhAqZrkMB1xztqEe1uuP2K9mpjqTKWa5QP9uNVYbqneb
9zucAHQ8Rto=
             "]], 
            PolygonBox[{{201, 8, 200, 186, 187}, {209, 208, 185, 5, 205}}]}]}, 
         {RGBColor[
          0.6106891868092117, 0.6028697844616105, 0.9105671946464308], 
          EdgeForm[None], 
          GraphicsGroupBox[{
            PolygonBox[{{309, 98, 362}, {305, 98, 312}, {362, 98, 366}, {224, 
             14, 217}, {214, 12, 205}, {205, 12, 209}, {312, 98, 309}, {290, 
             98, 264}, {264, 98, 305}, {286, 98, 290}}], 
            PolygonBox[CompressedData["
1:eJwt0L0KgWEYxvHHx+i1vAZsJk6GgZnBAXCARBTlIyKKiCIiYmBhwP/ONfyW
+7k/n1S5mq8EnXNJhDGDhygWOOKAHfYYYoAW2qijhg66GGOkHMvdYoMV1jjj
pJ7Wu4+eetQ1Y6caq/3igxfemmGzGmgiF3AuizQyeBJ74Ia7al6K2dtc90Uw
VY7lXnDVTS3tZLst9Reeaieq9fRXBWbmtYPtEkYo8N/5q54X3Wy3Z7RrHAmU
UFSPgmL25iMmvnpa7x8L6kMT
             "]], 
            PolygonBox[{{191, 190, 361, 98, 286}, {210, 12, 214, 206, 207}, {
             220, 219, 216, 14, 224}}]}]}, 
         {RGBColor[0.70896057426655, 0.7607645598011492, 0.912807479600448], 
          EdgeForm[None], 
          GraphicsGroupBox[{
            PolygonBox[{{252, 30, 257}, {330, 99, 344}, {325, 99, 328}, {344, 
             99, 368}, {210, 30, 213}, {241, 30, 246}, {328, 99, 315}, {30, 
             22, 20}, {315, 99, 330}, {30, 18, 17}, {30, 20, 19}, {30, 19, 
             18}, {257, 30, 267}, {30, 17, 15}, {246, 30, 252}, {213, 30, 
             217}, {268, 30, 263}, {194, 30, 204}, {204, 30, 207}, {207, 30, 
             210}, {224, 15, 220}, {202, 30, 194}, {188, 30, 202}, {198, 30, 
             188}, {267, 30, 268}}], PolygonBox[CompressedData["
1:eJwt0EELAWEQxvGXVnHSsoQDWZd1XEV8CQpnypHiI/I1lKKUUgpFigP/yXP4
1dbOPO/M1Ger4TLpnCvBQy/hXBdtdDDGCH0McKQmhzxO2GCNKv9qmGKiHuvN
II0YLWVYVoSmeqw3RAMVlBGgIPbtIaWaUJmWvePtLHzs8cEbDzw1o80a4Iyt
zaqeg2qs9oqbMnztaLs63vgq86MMyyri4v4zeapx2jHWDXu6od1yjoV2jrSj
7fpSls10xw/qeCXu
             "]], 
            PolygonBox[{{263, 30, 198, 191, 192}, {363, 362, 366, 99, 325}, {
             240, 239, 236, 22, 247}}]}]}, 
         {RGBColor[0.8026856907429308, 0.860355172067737, 0.8960865344414822],
           EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJw1ULsSAUEQ3KGK6CiRxNVRAj/gH+QCAZFziFDn/foqVfL7JCKpbtOCru7d
7Z6ZnU66Ga5LIYQuUAYuFsIDvAffgCf0AZwCGfQEvATm0FvwVX7meuA2kAAz
eej9gJvAC5iqzhwc/zPmoK6Z92Pfs3k/+sfggWqydp156Mj8jZ4VuAhep2qe
Z507eKNsDk7Uq9C8sWZeyPPro5qZ+Uz0d8z3wv8ezUF9Mu9Nfx/c0myc8a2/
cwcN3fM9kq6YZ5gdme+UM+zMz5l2luueM34B4j4nZg==
             "]], PolygonBox[CompressedData["
1:eJwt0EFLAmEQxvH3FVPUDl5K3BSVhMhjgmF1NVIPiijUKZE6JXr00LcK+l51
yEse/D/sc/ixw+zszM60VtvZJhNCqCOLUkzjGiLxEE+4x0NUMn2nmhPif56J
64NrVDvCGHvSVVTwiw65ayS4QB5X5Bs4Jf5zvXqq95rcBwZ4xC16zuldGc2Q
9qgT/3iWeqjXktwr5ljEdEbD/69do/fRvIMl/l7/nvM9NEOzdvgi/sYn8ZsQ
v2NL3MYlCihiiol37vgmus0zXnwD3eIM595x4Jvr9l3coI879yw41/VOc8+Y
uqbvG+lWR/SEIRc=
             "]], 
            PolygonBox[{{289, 39, 287, 291, 292}, {278, 277, 261, 29, 273}, {
             345, 344, 368, 100, 354}}]}]}, 
         {RGBColor[
          0.8909400664635823, 0.8897856547494563, 0.8565486532062561], 
          EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJxNldlTj1EYx8/LjGtu3LlgYpgw1gspGams9SsmRdYxJTVttP7akxZSyRKR
ULYIY6a/wZ/l+53zaXLxmXPeZzvPOc85z7v1VkNp/boQwl+xXnwTH8U4PEXW
IgZEregRT8Qz8UY8xPaRmBbzolm8FhNiVDRh309M2w+KBmJZ/o61HhFzmhgP
iGGbF9jNiQ7i94nHYli8F1/ElJgVk+IDPvb9JH6JH2KF/MfZs1lGZr9OfMdY
y2sOiW5k4+TZz7pT5N7H2s7pOTE6kU+i8/oz4qsoEBdEoSgRp0Qx4zFxWuSL
KyJHnOU7G30OupNJCEc1bte4RWzTfGMS9dn43BQ3RL04LA6KTLHTfmKHyBNn
0JXiexL7POT55FGKbS7yVlEh7oq0qGFPTazdJj6HeEemiZ1F/ALlekRjncZD
GveE+F3A2XivuUnM90QS19zPusew8Vm9pC7L1N019716Sq08951qDPFe9Yp7
yMaobwe5OucezmyQc2tGfg8b65/x3U6cOlEe4ptpQ98Eo6zdyjmNiOv4dIV4
50fxGSbnPtadILcB/LqI4zfktzSJbSf7GGLeSM5N5FuPj2NcJs5zbIewrcd2
kP03kOMA9k+wsd73x3cnQ1SLKnEfnwpynGBvfkez1MVvxG9mXrzFboTYlr8K
8W25ptPU1fIldI7zgVjDjC/Yyxw6v+dlfJfw91oL4ifx5/AZY/9jfHdzJh3Q
SR3aqXcj9W5n3oveujRn1UJN+vF/wDn0kvNj8m5G9po99KO/S41GiFVDbL9r
3/9s8DwLfUpcCrFfe36NGt6kHo5XTj2vEq8EnxRzv6VKURRiL6qmpsX4lFDn
i9imsLP8PDrLy8Qd/MrCWm+rZiwinxQ5ncKviNiVfBcSd3V+ge9X1NJ1/CMW
Q+zF7ud+6669+6177W/GFeb+V/zEb4FYS8yX0KWTeD/bkhj7e4i9+wt+U8Ra
+W+dGb4XsbHPPvkf0Lhb4y1xwrVIYo92r96QxNqkOI+MJL6rrUn0/0PMTUns
1ZuTmMN78vyOfoazqeJ8aql/C/UrC2v/Fv83znEPrrNuKfJ8fJxPDfoubNz7
s7FdZE2fg3u2+7Pz2+U9e7+wKvO4k7nv9up99L/F/5jjIfb/TOLlkOtqr9+P
znfQd8l3K5Mz2ZvEvab+228aG79J33+/04Yk5n47iXe+hD06F/esGyHeu4th
rZfd4ezKOdMBZGlyKcKnmvVrsa0khuX/ADVVCRE=
             "]], PolygonBox[CompressedData["
1:eJwtkksvQ1EURs8RMZComJiURNHG+9WKqESrlXoOmgqCCfWaoEG9/QsDI4mZ
gYS/aH32Hqx09d57ztn72ydVb9SuWkIIWWiFdAxhgd8S7OLdkMZHIYnfwQf+
CS/4GuTweajgbdCPD0AHPgcz+Bjk8U4YxDPQgx9BHp+GnWhrtFbf6NscFPB1
uMQno+2lPafwcRG8RvwMNvEDuMb7fD/V1Isvwaz3U8BPYTlYDaplMVov2lN7
38MX/gZN/BG+g2WgLFa0JtiZOjsFQ15/Ar+Fpt7BDT7heaqH/148H52ps0vR
alOm5Wg9q/cy7ON70WajGW1Ee6Z3RfWMV72eVdjGR6Jlq2d6t+P/lamy1Zqi
z7uOn0AtWCbK5iHarJWBslAGyuIdnqLdkZKfX8TbYTh4Bvg5bOluwHG0mWg2
OqOBZ2Eq2Bqtzft89UzvdEcyPt+uaGfq7B94xl/hN9hMNJuE3y/NXLNPep7q
WVkUvV/dAd0FzUSzUY2qVTVWPC/NVhkqyyoc4hd+PzQz3e0/yEY7fQ==
             "]], 
            PolygonBox[{{323, 52, 329, 316, 317}, {317, 316, 331, 59, 
             324}}]}]}, 
         {RGBColor[0.941176, 0.906538, 0.834043], EdgeForm[None], 
          GraphicsGroupBox[{
            PolygonBox[{{318, 46, 300}, {321, 55, 320}, {320, 55, 343}, {303, 
             47, 302}, {317, 56, 323}, {319, 55, 321}, {301, 46, 318}, {299, 
             46, 301}, {304, 47, 303}, {343, 55, 293}, {323, 56, 322}, {324, 
             56, 317}}], 
            PolygonBox[{{293, 55, 56, 324}, {300, 46, 47, 304}, {302, 47, 46, 
             299}, {322, 56, 55, 319}}]}]}}, {{}, 
         TagBox[
          TooltipBox[
           {GrayLevel[0], Opacity[0.4], 
            LineBox[{301, 299, 302, 303, 304, 300, 318, 301}], 
            LineBox[{323, 322, 319, 321, 320, 343, 293, 324, 317, 323}]},
           "0.12`"],
          Annotation[#, 0.12, "Tooltip"]& ], 
         TagBox[
          TooltipBox[
           {GrayLevel[0], Opacity[0.4], 
            LineBox[{352, 341, 336, 298, 283, 278, 273, 284, 271, 269, 262, 
             272, 285, 288, 270, 289, 292, 266, 307, 314, 311, 364, 326, 329, 
             316, 331, 345, 354, 347, 346, 365, 308, 342, 353, 357, 356, 367, 
             369, 358, 327, 355, 359, 370, 371}], 
            LineBox[{378, 377, 372, 374, 375, 379, 373, 376, 380}]},
           "0.1`"],
          Annotation[#, 0.1, "Tooltip"]& ], 
         TagBox[
          TooltipBox[
           {GrayLevel[0], Opacity[0.4], 
            LineBox[{368, 344, 330, 315, 328, 325, 363, 310, 313, 306, 265, 
             291, 287, 192, 263, 268, 267, 257, 252, 246, 241, 247, 240, 245, 
             251, 256, 261, 277, 282, 297, 335, 340, 351}]},
           "0.08`"],
          Annotation[#, 0.08, "Tooltip"]& ], 
         TagBox[
          TooltipBox[
           {GrayLevel[0], Opacity[0.4], 
            LineBox[{366, 362, 309, 312, 305, 264, 290, 286, 191, 198, 188, 
             202, 194, 204, 207, 210, 213, 217, 224, 220, 223, 227, 230, 233, 
             236, 239, 244, 250, 255, 260, 276, 281, 296, 334, 339, 350}]},
           "0.06`"],
          Annotation[#, 0.06, "Tooltip"]& ], 
         TagBox[
          TooltipBox[
           {GrayLevel[0], Opacity[0.4], 
            LineBox[{349, 338, 333, 295, 280, 275, 259, 254, 249, 243, 238, 
             235, 232, 229, 226, 222, 219, 216, 212, 209, 205, 214, 206, 203, 
             193, 201, 187, 197, 190, 361}]},
           "0.04`"],
          Annotation[#, 0.04, "Tooltip"]& ], 
         TagBox[
          TooltipBox[
           {GrayLevel[0], Opacity[0.4], 
            LineBox[{360, 189, 196, 186, 200, 199, 183, 195, 184, 185, 208, 
             211, 215, 218, 221, 225, 228, 231, 234, 237, 242, 248, 253, 258, 
             274, 279, 294, 332, 337, 348}]},
           "0.02`"],
          Annotation[#, 0.02, "Tooltip"]& ], {}, {}}, {InsetBox["0.02`", 381],
          InsetBox["0.04`", 382], InsetBox["0.06`", 383], 
         InsetBox["0.08`", 384], InsetBox["0.1`", 385], InsetBox["0.1`", 386],
          InsetBox["0.12`", 387], InsetBox["0.12`", 388]}}],
      AspectRatio->1,
      Frame->True,
      FrameLabel->{
        FormBox["\"Dean\"", TraditionalForm], 
        FormBox[
        "\"\[Kappa]/\\!\\(\\*SqrtBox[\\(Re\\)]\\)\"", TraditionalForm]},
      Method->{},
      PlotLabel->FormBox[
       "\"max \\!\\(\\*SubscriptBox[\\(v\\), \\(x\\)]\\) \:043f\:0440\:0438 \
F=\[Epsilon]r\"", TraditionalForm],
      PlotRange->{{0, 250}, All},
      PlotRangeClipping->True,
      PlotRangePadding->{Automatic, Automatic},
      ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztXHtwldW1X55zcpKTB8gzVEgJFtpMBS4IeiEaywXlKdTyCJGXocAxgOEt
jyIQBBoUMCcpjyQNQkkFQQSJcogRCkW0WKFUbYs0tniV2xln/MsZx3HGmX33
Wnvv79vfyT7f9yVCe+fem5mcc779WL+11l57rbUf54yfvaJkXunsFfPnzM4d
tWz2kpL5c5bnjly8jBcFbwOA1/j/67mAnxn/KF9eA8YYVhreZtBbkL/GIQri
L0CvHfh/PsSaGbXQ6yEah+ZYPn3Mz8f3KESpEtvLdvkxaOb9hguYmfQWEWRk
FZGNRy2Y5liU3gOyLVZF44yg8mPNwJpjkM+hsRbLsG6ETj7oIB+QZUgGu+O7
kCzd4i4uRUpC3pN6e6EH0odgngmuLQYF83EQ6lKC+mS+vWCQmFLql0OCzFqj
oWBjEiYKcZZAPtVV9Y94GUPQYQyPuBhUW9/u1IZLDUkXKgtZxialDRia3k5l
aVYZaJJq7Uxd21FZSouuiCqkDwsdtySXpZmq/qea6zDJocPG/hzeA11QhF6S
f2V6opUYrWw5+PGosAlTm/b0hKw0c/uR7ZK0NZRlWUZjdw/5gM2SsNb05kYX
w3d/sO0029C6B30g3+bUm5qOSmakpvSmprWpTTK9mdoaytz05gYrBM/idbHW
QkqWg46+QR+YCRpTnllv0lVOQOGZhDiGdsmUZiJpKDMpLegPWemNnJtlEb5Q
Lb3pfQP+YH0YW2d6Stecuqsx3RS7M0z31qBnWpPJJ+rtCd18oiVozzSbuygf
HNNi2z/P1QVaAZ8JIqrb0w/jbFI4F7eZZqaB7QQfAReNSaWaIq5zFmv5BnNE
nvbS+QpFWKNoCnGmsiy37p7gdm87S0kS2pPH3CTdPcFlzHXLZIRBZjiTS2uk
nC5P1ZPj34rpepog0tll/IKedUGR+EuggKHsX9XufwvG/yReTGVhpxmZvHTQ
q44odjMQTzOUZflsZyozCdDJZzvK1AKGmWOK40HPOifxiCjL+uKLL/q9//77
+qh8/9q1a8POnj2L7zCWyjJ9T3m5xOhxiwbOqLZs5HRMPB4PfvPNN1jC1j9+
hT352Dk28+EaFp1bzbaWX2J1tZ+x6t032KaNF6hs47MHWe0Lb7MTZ26wk+c/
o/e6Q++wyl82sfXl9TPq6+sHXbp0idaXbdDAv0lRTK4sZKnbjrY53hprm8fs
rkiyce3K2fDM1WxgpIjNGv9L0hBqaumMJjZt7E42v2QvK9/yDmlq986P2do1
jaSpZ3eeYBU1jexo49/Ykfhf6fPPNu1lS9dUsj0HDrOntuxnJ37zNnvrg48g
zC5/9F+ScQNPJsmFpsIjTp8+DTVz82BUWcP4hoYGaCgbBXlza4L0ECJr1Lq5
6KuLBNFHLMVQJpjpyuS4QYe0FezuyKOwfFY53A2T4JHpp1jhqOdg/F2ivvfU
i2xn1d/YqidPwJg82WlcPVnPrv3n2Iuvfch1VcsOvtrEfnPpT0FSRYi9+d41
1vj2H9ir5y5iSQALAlSXxQ6fPAM75vwQhq8/hd2gccck6LvqTPjrr7/O+eST
T9AAC86fPw8NDTWwvP9E0helKLnsxqfNXNt/+fNlqJoIMLHyLXb50ltwuXIC
9F9+OEgPIXb973+BG5+ehrJBRVD/abOL0nrTW3+r6p5wT+iRVsRW//QCGcrj
0VqomDsFoOAQi1V8CBP7/QBGPFEN1SsmANy1EerOfwZ1pYNh9LbP2NrNz7AV
T+1CJbCLVz9mv37lFEqKMpM29uyuZPuer2EvvLCPHXj5JNv3UgOfikepHt9P
vHIENo4BGLPxOHvt1Zdh39IC6DnpaVb2TAWrP1DH4vHj7OzZRrh86TD8bOBk
lGwA6SMFLpQNhOkHmunpxoEiGFR2mqsBn4K6IqADlmV6qeMOq2pc+r2QER7N
1s77PZs+bjd6FNgydTAMnnEB5wLUrfoJ5JVehF3z74ahpY04N6B00hDoPrKM
rdywmW2p2MXevfYJq9pbjyKxnTsr2Lk/XKX589aFMwFiMZO93thA2sFi1Mrp
N16jmkSxej+6CeuCBsmUJrAZTK+jp/rpA6HszWajJrKxLOxfE/eEhOH3yG9g
E0eUw86qvdCXP+eMqmbHmj6GjUNEfXZeDvSZtx8uXv0tTOqs5tj3YQUf8LpD
x3AAEZlERFF37NnL/njlohApA+2XVdTuJ8V9ePWPluS6SNO21rDzv20CkxoG
yrL66QLYNoSQbIel1LYjFmd4aIACMXQECPWBTn2WwbQf9od+Qzejo4RFo+6C
oU+chJPbZgIMzIdeRduhcmwOdFdSw3Aov/QnWDEuhxvJyzjCYsBpgrK6ut1s
Xfl2FFNKgoogV7Jt28+ldCm6JFT/nx9/CAGzRA9jsSlvcYxpZyY6ZEO7YA70
H1oO03IsTwelDw8HGLmLJnXv3M7Q7aFdcHnvDPjBQ335uC6DMRMqofHtKriX
h66fbN6PVi3Ni8YOhxafArIMxxD9Qm3NTijCsvZe7LW3HHM4PB8KBw3lNjcE
soc+DYsLBkN+YTWsHSPqswaNgf5F9YK9+S/C5sJe1u7uvbM3ES76w0gCLy8d
+TUUYlkHL14iVIVpSff0NTAuLxf69R8L3e7fDnWLZkK34XMh2lfsJQNPGPoX
TYA+c/ZCPL4OpnMFb4wfh0UF90FJ5XZu2YIHxFezewK+mtJRBw+dRBVGsNBE
GNEToGc37oPnnoCq6FToPmYz2d+A4QUAowpJH1VFg2Dqc0fh/MH5MEjOmxru
wsc/2+TgA60Jn+7D17t88sE/9ZWuIL3XdrZh3RnYWjwRch6pxIAIk+8ugDmj
RX3/p2guk78WVopmvBYufGq5JBoT9Os3tDI+Pmjl9NQPX4f6sxlMdu7LWADR
+x/kSlpIznrW4L4wvuwE8baufC5MJNuvZ8feeJN00PzX96WtZjlmGvmdT+vU
OLJfPPc0bH3YKQO2D0p7k16a+vXE1wd9OZZM9u/pc1npo6/CA3IO9nhwL/vF
3jOUXXAG4fKZMhxUtmlHFQ5YwMXNyzrS56kTB6C2pgzWijhpeQyMKOgTUbay
stPfxeKRiSsOodQsS6mD02dRtjjloe2YBLClSw6z549cotwZgzMGcEx1eHC3
3JYKXajg688XEqjO4LmmI/DOm7Uws8+PiEHlzC+UrcVneuqBr2O8Bt/mEzNc
TFx4fKKMDTNbzM4wg8WAgnzKGORwr8gnTzDgmdmDod/SQw4+6/Zsg92Vy6C0
71gHn2QccgC64uuPW8/nj4dtpLXJ4lUVPE38B2XZW6uqiU8Mgui8EvX54qFf
wZmnH4Q7C8ssPnESYUC8/vdGKxCqmC+Ng54o4k1sPZ+zZmwnfa5cX012WX/s
PcEf51MGasln2DJMdLKVE/KguKKa/f6d86I6osdqmeHQcMu5Juy4UxvYfLL4
HJtdXMkqdvyZFibI5v6jVyjx0tkMJUTVu+ZXsSsXG0mtAQePVlTVfIGdUxCP
k7x47ObgcdnMJmtZumnHYeIRl6IyB4Y5Q8z+B3ngGSKUy7gHueOV/zG5n65+
WBPuJ4v4WjwtTlMFl8i46NP4otgK985y+Bkxluk0tev2rIItgybD6gO7VPxP
9DHZFj8tfUx7h4IWTj3BShfWs3Vrm2g9jozgO19IwOFVd8N9JdsNGX4IXm+s
geI+BbByXxXO2YDBlRATk/3HEWSnZMpRcnUmdrZNBrhvQYWRHbSfxX3HUdzg
Ogkk8xhT/LMzIFLIHp9ymD25/LiDHRyuo6+fg/rlA6CgdKfn+sfkFbq0kpeH
H3iKLSg8huthBy9bK49jWKXFLPyo1LAC8Tf9vXQj1vlprjszvE5MjY6Os2ZG
BIC2RFCMhUWvkEpxy0MFXdwgir/5Lq7bYeVwa0aGWuEcSILC5BK47eyI3Ykk
x8ChRO4DyD6Eaboi8+vL6ykSY3rDPXAfn4yYNt7U1kmLo1VBKcKWTD/FFi86
SApU+Lg/hMt/iQ+9LQb87mimWED2yaQQPtMhPOYj6Ct0dIxPuNEg0Ql8atuk
lytj++SKqW1HbzZwD+StDz5SbHwP2ShqmzXYO6MtD8dMWlk5+zxu2TjYoWUQ
D4G4V8fDnBc7pm00ZZQJR0whAweYL2CQUxxgroCrXC1HvBM5eNTL4ZjJoq6R
JDo+tbdEGyq7K9tCFvdBMbtRZDF1eOOd94gsbmE999wzvZDsNC+yEVeyuGXK
yYHY/ws6djcyZRL3wfvvWrtjmHjyVSKPsZgCptCmCZbJf9wnBC9JRYQPt+Dn
Vzwr4gMSlKzs2n+Q/e535+T2i9hdRFYwv1Pbl7iRt++lhnRazYUohcYi/o+H
CJ66SXPVDTdPxQsO6IlXjsj0QiwGFS+ovg7YbvpNg0NHVVsjgmbEANexDXDr
opfZY7MqdLiQhOO2RPs+CJQq4XhmTDtgFtyM1sElTgsNTi4g5JDacDjg7177
hGew/uHGtNtMixUXODQItZBPSQY30x/cqKwyWsO5wKFZ4ky5YS3JQrRnwJdB
CrKzH0Q1S1zhIsoXUI7N016akAi/bdvPKX1HCW28lnluxFUu9I9IQaCl0BoQ
t4OrKrfTZMNUJBvrZvlzQ8lwZHwEpUSc3zgJ8Kkbvj52c+j3vIm0vou0ir1o
hRy0eFAOICHeA0nJpMgnqUgiKWJJbSVsqTiKgdQfLWFcqQ5CKCPuR+DJEfep
kIOEZicnlKYygDjPA+0Ly5QNZLswrHDk6ZQnTqqWDOVHo47LuGKPMt0VB/cv
cC+I23F3hPqpt0j6DSPn/U53KExqZKD2gkqVyYye4t3hE2LHnpMYke5AiDle
+VKq63JEXdvRr2QHfbKBh9N7Dhz2YiNdzAPHRWoucljq2pRcpvjkSq2SdK7k
llq69FjoH9HtqtQAp0gqTboQRXWZLnT6/PPPXWRQNmhfowLr8rI1DwzJuqVe
rZ84CMjQhsNe/iURjKdnuE0cJDtGiVC2VHGyTc8YUnHfs7r+Aq16uTNIRe/C
hURjwSL+j5crXIRMkQMl7aUE763x0chQkyLpTY4QPVOdGDBKvwVGKFEWJQru
M8kTaHlIH7RE4a4BsrDd3MSgFdIGormZDbhy5crVvLy8R44fPw4ZLgOhzvnp
srK0KnkFmBQ/ImsNKxodS6p4XIPjybAwqpbctsN287wMKFR06NChKwMGDECe
i/ft2xdxmQT21QS5tGkly9peqBVXW7AcTc6y4C2EN2/ODhs27Hpubi6ynGZp
0vYqak3acr76Y1XbroeggdX2HqzK6Zl39erVJRX8b8mSJfg/+tSpUzJEuPMR
JD5SrU0CXGShbaLTwJQHebjdgwdpmYiJ2HtKSkqQl9zr169DdxceZPyWPIRp
swpPWlEfOEdwSh9r+pjgH08OT54mgKgQRCtL++qrr6gmxwVbpjQSO0i+E706
Hw+eFvsAhOC+4uJiq6qnnVukGIG6IdGSNhD1EOBW0c1GuvP/VXRDGl3aazPt
fHV1gZPHYdAV4Ra0Di6KAQH/gqDfHDfBRSe/SBuVcmfFJ1xGonTyM4+UUTv9
UqJmG3DnTTxI+7wKtwviLvTCjSTH1b7S9Z1EU1Zga1afxBRZgC1IjE8CIl2D
0MTh3jGmgqRIYE3OSQFt2fQ2OgOfUmU4bJDZ3lm7Km+nfW7alOdpfNXIcZ9o
ne2rQNDSQMX6+T8yV9AdSIWFN/twC4o7nE5tgFNX7/VvrTmXBgJ2WOZyumDo
gBVzoyPClrZSu7rtxGNyG9a+QJjtAb1h3Rm8s5gqvS5uRmKGhlaVIv0xJnNY
hrPXkzs3pWAuIS2bB2YvpWx/lhalYeIsRByogx1u9yly6SqPnii0tZI5LUKE
W6DXVv8DT5xTpF4QXVbxpSR/XeSJtbq8vDzBEaeYhOWZB1INWqtnRAwkw12c
HLe3J0ZYeQxanYhFLx1PZbSBNP5zvyBJp5CPwP0I/JcHpUB0l3wbukEaCaTN
fQFPxN3ptfZLGHYea+ahA+ItTY7n+/ax9uVSdAjBm4DZtjvi3w7T7Xa9fRbH
rG9fa0dhQQVGw9reAjQdebmJ5li6g/5dQLNotyPSsrYNoVr26KKJsjCR6i/v
eHXpu4WwFhdYdw0eWPQZ+REUNg1fl3tZrXkZY33j3lIBbTvgNTcUEUb0vBPG
LRVKxTu3eDuxrvYQFE29mO4Bq00++E46aQ1mDXkAeo49oiYfJ7kJFksxyP+s
aB29OfnDocfIAxY9ZO2BgkNtpjcvfwT0eGg/7yDo4W3Hos2Cv1R8fdKDnvD3
aURsdK8+MHJ+kxJSMAdEMM0PLXnzcYC0guwBlZh6SjLiD4eDaK305wRVAiSP
jSGzFX0fylqLV/LpGvbs4krhfFd59Q07NnvwIEheYJMqprtsGIKe3XqFDyOP
yrwML+eUbThHBDy5a4kg56YwihAhqKxv2tidAXzgBPEqOU/n6YsrniDpLUDU
7QuchQqBqyYFK1f7spJUixZe8scF+sIF+0k9nA4Xi9esSnRhvW3KihuuNd6S
l5VMOcKWzzpDT9R7jZdUQX1g+YD67yMNieuF9/nZre8TwT5rb0GfgIweOHw4
FJbynmodWNot7oNfHuLGy42G91nnr4+MVZ59RIDw+pqVth0syoIGKFLd+uRQ
rf0+lQqN3wbLNdxbN1wS73Q4sWhab/DGMmUw1u6m1C/W29vGKZYUrU5VHHet
9FTFyXsIEcq+5Zho251KRh1reOZKdKieWMkvtphPHPSt1ZFZG9jkB5+h4330
vktnNKV/+eWX4ALXW+uOx/V4fo4zfWjG43ihGr/n5d09xeqOGkVvyT/D0/7m
IHbD5gF89epDFhDElhsTDUI/YpU08X+TFxet7+Hke/Otak5PN7k5KWyLL5pW
lem7Hze7zAX+/79W/n9PXt0c9J9nEEcQZkc4WjR5VDWxfh9GnJihH023GLPj
gvjiBkzTqmL5IqRkJG9eQG+dHfsY+nes44o7ZM6ugPx87R2jhVpMCyGCBkR7
DRy17niKsjQzvP27ZeJ0OQJJflTD0SVgUq1sJxQRMdYlfLNcTmGpoE7QMkPK
17ZIRZi0UwK7zA6ndp8W9zudSovTnZC4pqBE+MTPib+zp55tizENhJ7BWAOm
bYqIHQg8LxH9xA5CwhULjW4fXWMdfWnM/hE5rQzbx2NkWvnqeEgqCxUlFKqG
mQigssQHLTWKeChNFyTNcQEc62L0HFPtTDrL0MpUIn2z9MLsZ2HXdmIopUzR
/YM6EZH79pGboICEEQ9p+tZHyYZLM55YaOSkHu63TNqWzwZW897Wi82YritF
VRxYKGWon1O09BeLS+6STSHNEah+9klWUqW18FvSLVrTUNAQ+znplmHqv/WV
OMRcRIehdLJG1uiDrTMw7Xc1EwSKxoQg9koi1bELaBmU485P0CGU8LwhzRlz
jHhUFKc5tmmVDptto3UzmnRlo84bVI4JqFT6PaGYNYZJOESvCjuRpMajseZ7
RKtV1uy0tRSSvk6/uTRINDf+PBPc9t+98rRi\
\>"]], 
     GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJyFeXc811/0v0opo1RUJDt7b5JzZO89ioTsZFS2EqEUMrIa9srem+wGyoqK
poyoFNLm5/v1+vg9fvrj9/6Dx/Nx7z3n3HPOfZ5zX5fF2lXfdiMJCcnsyp//
+f9CW6f01e/tONVC+VKNrwVI/vdHg88/3es4mNINfz6fdBR9So8vWWO7XFqf
g4HZCxlTzW14ViZVe1Qo6h+cu5Bwy2tsJ4FTITJLor9wihbzTb54qKvlEvPp
iPESaCZnIulUZcAdaqrWuw9XwKo9jMT8mn/wSHEBWXk9M6raJYYFGjUQ+lgI
ec3/4AvtbHxHfrJii/y5Z98lWon9sRP62qHiY3v9xE92tNBl+Cig0EnYe5DQ
9wA+7iqrL+vhwF8W7cu2Oo+AvzW2jzqPk9DfDb6OFEmlF7gw/rTz7jtmj4n9
8BHyB8Fq8derkk+8eEhlICC8foDYPzdhXy98tAkbconmRQclizubZQZA1y6p
6+5uHqSTu7p7WrSP8D8PYX8/sPv9Jp2U5cT+FpEo28FyYj8C+GJxMN0wtBkO
z5Nfn2ASwwZWTdPEpp41f781seurHg8l/ClAxLuUWC9GxLuBsPcQ0teLkf2Y
7CL0yxDxfwiq0X0Cp46LYg1jyIxeTRGxXhpvJv3PrxaOe7xiwQ5EiuEMt8Pk
99f8Xzg/kbyrLIiwXxIvnT72eT9FATyUks1RnFPEX953S7c87CTkyWFiSapy
gkX1P3h1f4rI1t82Z7i14x/M+yf3eJALEvIbCP1HCP2tkN4ncCf8njxK0pJr
9Jo1r4vHRcI/cmv5uuoPDSJ+bYQ/1NfyaXW92lq+rdqruJbPq/mispavq/ml
tJbPnHNRai4pgviKdFknYtGf8K8CZiks//5QkwV/n5tfizynh4t29xjkslsI
/+piw5ll/2L15n/wqjwdQl4D1JT92Bx3QwuRfTmr3qSWsE8NyU8u6+2jL4M5
7Xbl59YahL7Kf8ZX/SeC7SafnS67+RLxUyHyL4OInyH6HeYOiWH4L/8Mifxr
JPyth4/Co857slYT8vQJeXVEvHTX5bM2kc8lMLUjQLSHVQJz9+0sdvP1/gcv
2xwcsWbQwAv9mpcGzdIhLmF/2y9XU6QaMjeSftq4Ku+iHvZbPH1BmVQEL3tn
9ybyGhDzy4DBXfJPuK8JNh6ab28Kq4dJNavqxxWGGPtNIIn1VCWhz5jQV0PE
W5o4T57/4NX80SbOVxqxH0PifBX8g1fzy4w4b/VEfhitnc/VfDtGnL/af9av
5pcJvg+XHibZVkHYc5Swpwoas8WPjHnI4meti7v94j0Ifxijo5XlM7o/eWB2
u0Gh8LQeniH4ev04+p4Pb8syJcZLYMQ5aui5oMVa/p6R6ZzRTzmGQorUpflj
ZYQ+c0JfJZGPgP40RSpvfc/9g/u/ng8yMlcmcPBaPq7yS+RaPq+O3/gH19jt
bvYr1CP4J4k4PwbE+uR/8DMF7eXjyRYoJvo/v3LoH0l4mDJtiCuDKzPSCHuM
CfmZ/+A7lXzVMdUmBL/lEOfrOLH+Pz49Sthz9/+Ld7+mVR6XsUL9VQOJ82xJ
yK+GN5xVTpZSx5DH/HrrN64CyElIdmIKNMfMldHhjBLCX2ZrfLzqnxOEvRX/
jM+9BiZ1TUts+8a1IrHyn/H1+1nvr/XjDxk9c/1t5LFriW5gLPQsSIRO0HFr
GaHgUnaDkfodIp/M8PyFN/dvO+T+g7UqzpnGnrHGTLnzWs3fKwl5VoS8cgiI
o42aUbTEr01VpmR7SiGTjWLDLJMFIb9wHb+fIfjJhOD/2wQf2RD14T9+syDq
Sc7/F69fv8pXlmv1a1W/NaG/jOA7K6K+lICoU18xWaQiSv5uN9VZdIedbtRf
MvmOYp8352avrzdX9aElksosCoydzQZ+kbQO6R5bvHPzpQKdeAUE23XLUPVY
EfPzCHk2hLxSaKdSzeOXOYkp1aYj5K7FBF8pY/HO+iFyHfd/8CpfmmHIzX1H
ohaTiHhYIf2QY3hPehbBh/b4/myM8EfvcmK9HbG+lODPk8T6uwRf2uBXi/vf
9dWLIPl/z4cKLob/5eqqcYOPR2U6mSmPo6uBf6MQLaGv2RpFv8jO/53IBMqS
HpE3nI54Q+5A5PsnZSBxaPc31qs2xPy7QB7q2+4qaIcFVfWXTyoUrqu3bgTf
/sdHiUT8bIj6m0nwpxNRr8sIfrVdq++r/GlP1OeCf/DWDVeaDrxVR5Mo2u/i
Tq7wnkVE+7GHJcrz6frkXk8g4meLEr6n66zSM2CG/1dKaJAzCrP8OdaUXwqT
O44VS6nYE/NzQHep4FUpuyNqvBKRmvXPJ/hSEwMfvWxJuexC8LEVvvlf/o4n
+Nbl/+3XLtphVDLP8zaaDIKfHYj52QQfO6HQzvSH+VV5cEZzrCOXXBtn7Wd8
eatPQ98eFelwW2ucjxC6bakWD135HFT8L13R04ndY2t1CREfe/zGPMDnF5MO
Se9THbVJnYj52RDn+frHPJ0zfvkVQaFMkreu33D+B//Hn//1N//xzWq/EbLG
V6vj4QSfWxH9RwzB3yeJ+XEEX9sQ/UwSId+OWH+b4Gd7oh8i6hmJIyEvneBT
JzQ1WOYI/JBB8KEb8n5bYl/s+I8/XQl5Bf+Mr9p/aq0/W+VHF4yiWfZl58wn
+NkZ50WXe/Wv/FcfThP23v1n/WeNlAm6m7poO3cpbVTBGe5RmLOrG9lg1zdW
n3GRuH/war45YYDX3HvHvDQY+bxzt8QOV9x3zoDKqj4XNGon2WxanIn5WQSf
6uGPugyfgDunCH62RZlumVtMVTcIPnUhcCaRX6dwxHBLgeuRNIJ/3TBJwfXq
E+7cf3DGV02n1wL66GtM+pt+4ykoJHHfsVXJDkdQQfaG/A0in5yRsurdqO7b
1HX9nxPB1/ZE/xdLxMuF6P9S4ea3kF8dYg4YVsDB+/Q0MY6ua/fL9XiVXx3x
w3H+EDmqWLgyfXP8ErsTFvwvP8eszn/jhh4zF8sfcqUQfHiK6AdjwPN1ca88
jTNqJNw8t4ecmM98Bi/oFeztpU6GmvStGbeSdmG8a28VTW4NVLkrPpQy48F8
a3PmPZvSodnwIl3dEi/2tL8rr+srhy7JBsdD6fyobJpgMp3WBB+iOcoCZOjx
/NJOae6IVOjnC9wkJbYDtxvt/PUnuhlc5A9X/ji5Dzdsa50o2DEEEQu0vmJ9
jMjb8fpU5Zl6aCV7sPiGfB9aFKqfjqR9Cl2BYpvOjWxHFzshh+mnzcCynxRC
W+mQ71Q9y5PHg6BZpPO8I5IW94eGqcnfyIHI3pOGFWJ78Og7/w2fc7PX7ocN
H11f392YDn/29/31tqTHn6Wn4me1B4DOV9glJWA/ivb3kP1Q6AXGOUdlsiQ6
pDXLehPoVAWklE5PpqLp8fBgWrKC91OQeEgdwptNjwVzMhVqT1KA85W1xBdV
VjRk77sg4lC5dh/02TBtt/lFBUQ0DHrY0jChRjX5cxX3GmBUb3sn5MWGm0Ob
eBiSK+BwreJDqp9sqHhjb+vGhjYYd+DhfRfOhu226Ve2WHZC99vCHs1hNrzJ
c3QD0+0KMM24H6LUwI5uuinZf2vbIF5i+Yf5F1a0UM0ZiTj4GFISrgacv8qB
SqL0rq5u9UByU736WTsbzv9smjz9oA2WTkXSRyazYsjfcRhx6gPXMyGLtYsc
+MI26TvzSv/dZjym/9iDFUk5tokX/emHgb+cAwEnOVGsyFxosL4G2KVmnE46
rOxv2O7hX4ZB2EU/G9e6d+V+WZ4fTbK1FKY7HXL0O7lweYtV2gJrO3g9nW0J
dmPFBuMOHZ3FQVD32hXy1p8bX31oeB6uVgZjiw4elA+4sVj605aahg7w97xn
K7mbB6WWz/ca8vTBV0oyHxlKdhzfHSpNqTkMsXc/S/CK8aN/vinZxYEBGDbP
51UPFEXWnItcB0cegyP//jdi9ziwuep85Tz3MGjeeaHs2y6Mfy4PKMjeGoD3
GTkHjnFLoeRR7v5gyl5Qz1JX9KhmQ8fgPTy32YfhgaAgjUc4KwLDp/3mqU/B
g6q9lEyLD/22klFn5fet3ac3MeaWv44pXcPnWr7v+DTQDn9atd5fcGfD96fv
Gwv+GgKlVDN95kZWPLut9W049xAw8+g2Xd/Kg+1BY9NOh/rA73DbD9IGXvxj
73pgs28/CBjsvFiYz42ZLmay0RLlIHWItV4PeNByXry6dboTFNhEF7/182DN
XiYHxgP9cKThGL7YwoYvvYSe3Ls5BEYxt0uMqnmwRfXauTaVfnAyOviM6Rc3
/p1prqnZ1QdXU4ZmkwV5ccT62VWH8n7Yw/45mXKEG3d2Cx6fdKwA4dwU0u01
PPjg5MIzxzMPQE6Zo5iWlxOZjCw329DWQgmzjEOI+EE0in7zOm5TDkD5Zq90
DU6cY5yrZeipARW+N1zxDw6jqTWli1trHQxx1gzEPuLD/YKGcxvLe2E/xwEz
6n5+ZGXKKTw1NgCMzLSXBeklMbbbNU2Fsxcu9yY49cuyYM2kJpWcXxW0mpe9
ybIWQAarMxndg3VwTkK6me00F0pI2W0RY8yAKKvYo2ZxQrj1VfS9RPZ6mBP9
/E6kThQn1O8eYvjcBS2S96NKN4phN025vI7LI9A5IP2ZVU4cRz6w0Xve6IDW
gK009ea8uI/FqTXswxDEDEV4z8hKYtIwWWXYxgFIr7pW3mCLKM6gobNb8jHQ
qObOBF0SxMeNOUuLddHgrv54zF1YEGnKHSwYVXPBYTKB/NxnUbQ751HQKFQP
eyh5rpCTiGJO1+/ExVeXYU/crooD5qI4W+dh3bK9EvYw/n4tVCOK4kvjP/qi
2mBvzhiFIo0YLjBGo8LNbnhz53XK6C1p5H/sEezFlgNHe/0H6qhk8ETVhQfq
e+qgfyM9WVKADA4esZp01moH4xcJQRslZDHbsT/7Jk06lKTvse6uPIQ3fNrP
sa3c78lPxcnHix9Cntc7uv4stAFJRYKpXrQ4Snnxfl+YLAVmuwuLcWNi+OmS
gQVrfSvgPtsbL8TFUE5zp7x6UDeEF/lre3YJoUjbt3G3gCGw1NChupAsh3rU
sJmMrB/oF6gnWqWU8XUdtZrMgS7gcEq2MLykhNH1ga0SnzqAbf/OE+6OiL6+
PuWud+/D1Hx8oZaDIBa5hSZE9ieARZTdwpFOATxHPzS5hb0MBvgkDkmxC2Bj
4iNuJ4MmUK/mo3Vf4R/SBndU3XUJcg6wBbwrlMQ3WpNZn2dKgJM8hNp6WQT7
XM5atkIQbGO0VA3VF8Vt+QPONmlZMCN86GJeligKHe5gdj5aDt1Ke2oe/xDF
0UxmCo539XDdgmXZ+o8I+uzAdIqsiyDcwCnzgkMUC5puGZVFp8AAnYCHnp4o
PqmjOO3qkA9OGUaen2I1UXl389zCQjNUHnv/6v1eBeyZ2Tm/ON4JCzKSxVMn
ZFewkGuHcibsVqF16BKVRdPiv0M29+tB2GCeuYhMdiVfhP3KKzvh4vhTNdtq
Kfx2W5zMeC4WLuxX30X/ThIv+hzZQcGVCScSHm/ItlJBp3TXNJLxdrC/eOIs
Y7siti2+p0+06wS2spGukXuAW6I+52ymigK7T6/3RpMjhio4LA/bZkPdhn41
MXHE4BTnuHjrMtixp91v+ASi0oGDvPIxtfD5STYpXy6i1Ll+CsMrHSBPrZtd
xaeASjUMQbvaqoGEeQM9lbE89u/77s/EEQd31H8/q+eQx+Uz70K2JZeBtMe3
BKfviA+ZLvNdm7sHQymzxnQPEFUn4hxDMzphd/53e5kBEexweP7ZPzgIKC9q
vVx8LIRGDOb9/beyYVnlG4nLPsRIa9XYu8eq4M6lKz8P7pLD60VtBUHXq4DF
wvCF3HkJDKN5F1vJtnJ/sKQWwA8SOBnIdjciPRM49xW9+cqmgfmVNlnbM1vh
TtJ18rhQRSx5L32uk+U67N5MSSdqp4jBAgHpGqPFEOZ2hbNPSRE/f/0+sOtH
PSyPkEq4HlRETQ7TmWWSdjgZRcV+rEUbramOW7w5fQ+Yn3Rv/vFaAbvPJxyo
enwPjo4ZmN4UUUILtk/FZH87IELG9dnM2BGkbvKpKLx0FUS8lcJKI4+gpenJ
EoOOHBiu3C/jJX0Ek5kHf748VwHn579Oy76XR/I4z/27yBqh9VuUu3OGItJz
d/186xQME38i59xIlPCIWr0SfVgakJNGnPU4roSyDzZR+X8vBAGKaws+dUp4
k41j+rNIJXRU6L7/S7aCuw5KP3vWAecgeLDCSQ2PMEdaKi1FgOBOepeRN2r4
hftrvUJPAUy/KybbaKKOU7avd/hR1UJ2hVIaV486Ou0fY+Z50QLK7MMfaO1U
0GbBdNf+lyWwmdvXVzlOEf9eF6qzN4kG+Xd7v3dWKKLn/F6OQa0yOH+r8qzK
4Ap+2ycwydoMqvcy+0RCxbHbXnrhc2w6ZMR/FxPqEkPX71wHv0WUwdJp9UR+
ajH8ISPeO9dXD1Nn2PWPFMqi4Vjpx/SOaCgUE7tmy3AYd03mN7JoZ8GZRYX2
K9cOo6xLwMba0RKQqDH4m//rMM5OcXFY7aqGJ39ObactVMBj1gURfh+K4Bcm
Ls/oyGONhskT/oprcPacWOQlSnls/zAN4alZ8DGnl2H/Q0RNEpLQLTxlYDfi
nF8Wglh1jfxj56VaKHp+J7XZ1BCvzf6t6o2qg3n7iYbtrRo4YH8muv9rM9Dn
7P/054Yukkx5Hm/2r4XM7ApmpkY9TBJmtlK6XA3dYlujT23XxVeHC2TlxhrX
7vfeVKNRLxmvrmE56hSuaercNXw98pLn9p6KNbx0o/pZTnQjfLiXRFvZrIzU
jYEcp/WLIFhb3E/wpgbmZPcOTG8rAxm6DTt3rdznnQeOhNe+uwe52S/Ir8pK
41dbg0G2xiTY5Nr9efKgNLoP6YQxi+aDhWRTv9IOaVz4I3NjuK0Cyg6873lR
pYKLNpJRgz8ugdutwbu85SqYefbaOYq3GSBI1xHiX6yCmy8Hv/tiVQqf4iut
evJVUNKwjdx8oAY4abLoUwyVMaXetYt8WxTocFdInuRWxop9RXv6j+SCl1yb
IeeSEnZx95+8jhWQotrJP3MFkJKnIDpKNBRe0SgtVWsBvhqSkSQZvAmMb9se
B+8CNOt+sotBJQt+MV766OFpgofsBaQodepBsnzGZgO9AdI/6JgqEaiE/fcp
qZbe6OPUq/YjB5bqgClcPFZWyQDv21wzLFevh5+SYX1MrPrY3aYRaM53DXI3
W/4w26CPcySTH1inM8B0QIIp8Y0eel9pPJoQXAJkaVTKg/f00DPqstwBmuq1
77ehATp3KgbT1nBShg2VtHAZBFz/Y6Jpp4dfBQKc+X/FgAPdedULp/Qwl+pP
xlhzMehl/JUqcdPDj/KjqqYb69e+J2QEiEvolaSuYU2Nzn6n6XpQ2Sl3zzFS
B73pm/HJcB3QX+quzDysgXPxU08+iBRBj+sVgfxvonihppT194APSBXKRNwa
l0Vl3uRXx+vCwL/cmfFZx2F8V5t15uvzW9BSm1xMky2H1IJLv46eyoLM5cCg
XBtNDI41eVahlQBu72/RRMpoorO3VvvB+lKQfViZfZZaE39QhOi/Sm+EMxGj
4PJGHVncTAeVeK/AXvVJmY5RdVSWc2Dd2J8P9VvmxBmeq+MRoZf2Sd01YNn2
R+jsU3UsZlZ4ve9ZC3SQJJ+r8lDErUpHLQvsLkDN79nM3xSKeCGvnXYjUxzk
L8o/xXQFfBlYG8annwYJFPmse5S0MaoktHGgtACyTXSVrVbicbEjUEjvVxW8
YzD2HFYxwd6BZ0xRk/Xwe97IneaRIe4amFvw56oFDr/l1COJJphxtUtxtLce
FgpPbNeuNsLMDNsiHYl6OE+dy0VWZ4SJS89FazZXQGA6hn88JY/Z5g6cKSaR
oBjcvk8rWB5Hl+jmxs/kwhY71azC2/KoPM9HNZdTAQ9VuoW3V8oj46Qmi/ue
RogViugL3aCNWmSiJWRhoTC2WfGF6BstPEHO8IjSKQNER369e9OkhR53aQdn
EksgqKR0JuKOFtZqHVDo86+G3wK9YjN3dPFFQMbdtxcjIFuYIv9evi5+GT09
p12WD7piyiw3anVx0Vm6UWRjDezZ+pv1QZwmng7urL5gHAFGLg4uNWOaWK5y
4LNcYibcGHxamyushRxe7HtdP5VAv4zC5qQALXRTl6luiqyGxOlzWue9DZHs
ZrEfE2U5/N3YPPZXSR8tkj78vc4eCS9JtekdA/XRXPBhWUZUNjRtGdUdbNBH
oT8U5Tu7yyB5q9Nl+KGPJZbl4X06dbC9/NH2nE0W+Pz2d8/jPlVgGtbzamT3
MTSP8sqQoKiHmikVdbYGQ9TM7v1QWVMOWz68CNFSN0OLivyJkZw6IGmU3863
1xR5PUkKGl1r4fwhDZ2aflOkjKM8dre2Dm4d2GbxkNcYm8IFtmmfqgbqjS2b
mVJNUWDgqJl8Sik8a3qWEuCujKzjzVTeW64CiEYMs00pY86r/KADkbdhvsLx
xOEAE6Rze66arV0HM0aWptUCxri7/hpb3OVKcAyxdCN9oIM1wjFxQ8u3wISv
wFzwhC4GIIv3kkMZxPtzk0TF62KIgqtBv8UlOBVyXrIpTBeF7NUevPyRAhjZ
5/LRXxd140+LcrPkA23CwWx6N128JGvW8pW1HOrrLEOdfEyQu/t6Mhl3PWQf
DNfoLzbBopbFWQaHEvA0Tpb4zX0ccZ7BkPRTLZT6SVIL0BxFya1+asxfiiBg
qrl5Q7wpztQGhwa3FQMrv4PrdnpzFLI2sqJ5Xgvd8lu1Zg6ZY/Stt31pnyrB
UNHpyEvSFXnJE88kWstBkU2/+85DFewbsmDdUR0A072OkQc5VHGYJdsjm+MW
RF0I1C0MUsW/ysei2wVzQIIvaZf4a1UMbfoyT29XsvYecYE7WvSTTcQaLtt3
R334eP4aDprnyZQurV7DhoWX+tqeN4PnlVfUpiv3gzOfcux4eXzh+VRewtQR
DRyf0S8NI08CjZ4NC0dX6suz23whLYd8ISa9TEYoRAWLQhMaK5pj4IXXycAt
ZirINTFG5zOXDE+TBkc2javjxuu5+uNG3qAQrb736U91tI3YHNGfFA2lV5r1
s7dr4Lbvlh28jHcgnlmOh8NHB0+dfeZQWpsAygv5z7/U6+BEv8a+j4PB8Pap
stohSl3UfnNaa4tsKiSXVh+8IKOL77oe3Og7kg/mEVwbWxx0sW5kp8tj9nLQ
HWeaeLJNGy0v7xA8ahoInLu/X6vZoo1fTJfJs9puwhI+Fk7bpI37vA7dizyd
DUMuWcNhJNpYJf/9h7pPMRRt5FPlYtVGPv2gd3JdvjCYbKU64aWNHHz6qgrx
0fBLJkE1s0cbm9s2PavyuQ09M0p/HO310PlIyGK10CWQWVIUfeKqhy4pm0tp
JW9BDrWik5i3HvZr25RPOmWv1RPLSuAEfu//W1/+qi9/6bu29r2SJEZbyqs+
ag0HV9AfbWfMWcOk1GTXJmbL/u/3zY6LH5x062CS/+vnfQZ6SH8DKsa0o0Gj
Te6KFIseTrQe5vIJLYBi03AW01ldfPOS/1CzSA2EKZdUVEhaYN9cZ2rTx5V+
bTRR7cNKfTapHOR3yrgI2q99FY9/NkD1F7ET2cax8PitOfTFG+L00cNViWbJ
UNBd7SOhb4wP77Jf5RZOgKD2659cDxmjYjEjzYFrhWDSYG91l90YnwTHlfY3
VcOm2Q0ynbbG+G0p1vL7rVgQnPsYROpnjO/4sj5ercmB3XNKZ3JrTFGcjfO9
6GIRtJ06X6731gj1HwkLzFeUAE0Adfqvu2aYEcHiffNhJZCwSioySVjgwpMY
2ptjRdCYdE/0Y44p3jWnKGQkL4GA2cH5dhsr3Ol59oc2fTmkDHterVY5iiGy
YpMNYRXwjP5teQ/7MfSY25u9Y08+zNlzVAQ+P4Z77UTsdiTWwEAZWaJFhDky
kP5tTxYuh6up10fIS48hG987l98spbDQ0THaYW6G7Yc1I1uECqHa4mrQdr8T
yPz1UsglzZX6dTO3cGKDAlbNqC1NbLsIt746HHRmV8BUV/eMfqs4qFTlvvNV
WQHLFl6NmZ5IA9fz4g03VYxRNPWGrKZ8DFwcOk76bZ8x7iId9+MKyYIYwVBN
nWkjJB295/x0oQTiLC6zsJIbIKnL+/zF0gAoML1SIylogJf+3pcj2R0Dbfph
OlqGBhj8Or4/SPo2iAok11ulm2GTF0oe8C+An91Tubu8zFAsRSrP1iQPFvNj
znCrHUNPq2PjU+T5YKfy90xX7Um0Medk888vg9HXPfmMShYoh0LBbDZ54DKx
MX2E2gJvt0dq9DGVQOfiF5UFtMQ8ZFLJ2pMLbm6bntutYN0q8pRRhxwY9bpz
/EuwIj5IfqlK0REEcptrzRyPK6Jl5KFa6bxkSI0ZPPpOXBGLOEgnF3/chY3M
X0zMtisirUKlt4N22dr7zp7dchnaV8PXcHjAZcuoPcng/jF2SojaBFPpRgbo
9K/A0tAJs5lMU9zpHcJIcygBHhsfe9QUYI29+1/xOHyphMrlgQ3Smy3wR+mL
BX/jXNjx9+CtmZdm2PXjs81h+zSY3LxdbcnbHCt+qpy/LVcCh8Ia9ulfM0d6
LjJjwdZi4CG/rc4ua4Vk/if46F5WQ2DbxN5xcUus+higoMyYC58e0jSxulth
vtfeJ/0UxWBPZeLwzcQGs+ZO4iHvcui4SyqVn3ASv+W4L1bPlwNXU9dj/ytW
yKAjzVt8IAf8BMq1KVosUcMDBR+yVME1IcPw9P3KSH4/jIbn2nVY+hb4cweV
MjLeFrK/EpIB7vXFdudX+nnfTjk1Za5ieH/x5cD0rBI6eWfTBtlWgvnbHaUD
g0fRco/A7Wie+LX3scKrOYEtcqlrWOuQVhj368K197La33dyec4nr+GtrYnK
gOXwUUes0UvBEs9sqHJLepUN3EMW3TxhJ/Bng9Wj7uAyMBKLzzHzsMctw5n2
MorlcDhEnrXW2xZt2dkfFlhUgH2O51SwtzVKdAaFONNWwk/Yk8b42BoLPqbt
mvqeC50BwpaDbSeRfsc5x57MHKjjbxn6fk4FveYXyv5YeECYrLjDFWEz5MxV
5dd0iYN5/zfeP3ss8WusqGA6exXITLPIxBRaYUOf5I/fhjEQJHUlY77BCp32
mIgE6RbCo2t30wpcLVEuamqD0Zm7wDJSf/hRpS3a2ArYl/uVwb3iwrTAM9bo
fr96l8fbFftmrCp9Qm3QOtx2oUq5BMbHskM+KKsh/44m97n+QJhjH8nrEFbD
qNK6nfrDt2DJdkdvGoMadvJreMRZ5wBFjsK382RqaBU4+qXZuQSEt0tXzrma
4auUoZzW6VsQ+SOV8p6+BSoVPvhWPRgLbr5+M9VvrTDzo8t9rZ5coLxAEXt1
zBppD6f4L8Rkw+WZ/ZOSK/ujZ36wLxNiQGKAQ2vLHXt0Jc+KOXqqHHgOXdAS
wJP4ecqn8/enfHi1EDMvvmCDXhM2JbWud4HtRhXL51l1rIppu/fz0znQOSM1
sAU0cLoj8vqi/RXQEufRGNY4gXTXSrsoL8TCFgptn+wmG+QJr1C13pkP+Urh
QkpGdujwaM5I1W/lvNdEdKpz2GGn39lMmx0lkEs3c3yPlh3uOzs8fDE6HzR2
M/ec4XDE4MGtRbVhJWAh/tWNNs4ef5zqaO9sLYMHc99fuktr4ouEYwUxjj4w
Oj0135ilgfGP93kM0IeBwMO8a5bPTyBf2lTzd8N4yOOKP/MzxwqFmKyYukVi
QErd6m7iA1tUJpMkIc0rhyF5My2XGzaoeGKTqGhrDmz8uXVIRMoOA2ojno9b
5sGj9wHpTkX2aOfu+aXHNg/estqxbPOzx+pvn6TfWpXDdtNvcFHTAY+l0XNr
D+SC5CynG1+qE0Y3NN8Zf5kHcjI9g3URK/1pqCeb+gM/8Ocfo1Uz1EGL4U/b
bzdEQx3zT+Nheh3cTrV04+Dl23CSd/L+Lil71A2XHz0rlQNDpK+fHX1ri63D
cTsxLQc6tpofG8i3x8tclirDbXkgPGv+JsNWDwW8VTk5Df3hqdn15DkHPbwm
vd8+8UI0eD9oMZd31kNKIxtSzqlbUFa/r19E+CQ+PORzvlQhF+Ty9m3IWsmP
E15JoyOqMXCnkP/e64dW6K2WIG/Hfheetw/PF1ZZ4XuO770D/DEwlCEp8aDE
HuODyvvKXfJhVEmIsYLJEZGl9DGdRB7061B9K0l2wsM07z1/5OdBO5OCGP1e
YwQD7LjYGAYMPj1DOn5GqPv6vFFuWBK0k19v6L1hjCLZNPvo565AkZER6fRu
E6Q/RgH0kAgTYZuevnfRw1Sfy7Msbr5wR3tEuClcD3XHw/woja6Dwe7yyIQ8
PZzakru8qTYRdK87H3nz6Ciqzx1npjt9CQqCBhTYV+oza1pkBe3QDeAJ7sph
5bDEC1eolkvFYiGYqrqLtdQK7x8WOH1MMAZuCO36rVFgheX+tzs+CsVAobHZ
67chNnjVKDOkajoHGkhNa9qF7dCXMe20i0g+/B2W4GFQsUeag6oHvjrmwBW5
6SeWvvY41TtcFOJSDtGZo5t/szuif0GUW+ZwHnD8CetZXPHPC3Pn058K84A2
tSjcPNUZ+ekS53jSCsDfJ5ouhV4fH7dy7h538oO0isPtMRN6KCFSm5Mefx06
Zz+4hJbpYZD8rPWH+kQoUHi6lbLFGY8K8o5Ys2RCSlMd7RvZ0zjFdW2WNyUH
FtsNHk4ur9wPnSqU8ljCQK+tR+nSdgO0pXcIO+2RCgUtKq2MBwxQhP5koFt6
HmxmerVl5qMtjs56UX9Mz4Gn4x8jRVOckCF10ku2LA/yzS6+7jUzQBajRlFh
xwvwrC/soIOYIXJZu7MIUEYDqWrsqWVKI9ziOv9tx4WbcOr88cs5AYZ49o7V
prfa52C7w62f7ivy4uSfC+mtyFv/3rz+/XX9/XZ9v7n+vW/9e916e9bz4/rz
tv777vrvtevv4+u/N62/H67vJ9fzw/8BBCV9Pw==
       "], {{
         {RGBColor[0.293416, 0.0574044, 0.529412], EdgeForm[None], 
          GraphicsGroupBox[{
            PolygonBox[{{244, 6, 255}, {249, 6, 244}, {262, 31, 350}, {256, 
             31, 257}, {257, 31, 260}, {4, 31, 6}, {260, 31, 248}, {248, 31, 
             262}}], PolygonBox[{{255, 6, 31, 256}, {253, 4, 6, 249}}]}]}, 
         {RGBColor[
          0.45867273343771603`, 0.34474122938812385`, 0.7617003304511214], 
          EdgeForm[None], 
          GraphicsGroupBox[{
            PolygonBox[{{300, 49, 307}, {378, 67, 329}, {347, 57, 326}, {318, 
             49, 279}, {266, 39, 269}, {263, 39, 264}, {269, 39, 310}, {249, 
             1, 253}, {251, 10, 265}, {316, 39, 263}, {256, 7, 255}, {352, 67,
              463}, {264, 39, 266}, {294, 49, 282}, {307, 49, 245}, {282, 49, 
             300}, {356, 67, 352}, {279, 49, 294}, {329, 67, 356}}], 
            PolygonBox[{{350, 39, 10, 262}, {326, 57, 67, 378}, {262, 10, 9, 
             248}, {257, 8, 7, 256}, {255, 7, 2, 244}, {310, 39, 49, 318}, {
             259, 9, 10, 251}, {245, 49, 57, 347}, {250, 1, 2, 252}, {265, 10,
              39, 316}, {252, 2, 7, 254}, {254, 7, 8, 258}, {244, 2, 1, 
             249}}], PolygonBox[{{258, 8, 257, 260, 261}, {261, 260, 248, 9, 
             259}}]}]}, 
         {RGBColor[
          0.5675139484065745, 0.5334991899864394, 0.9095829321924025], 
          EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJw1kj8ox1EUxX/v/aLUT+Rf0U+IQookDGRRFikhq1ikhIVRGZQBZSGSkjJI
6heLDEopIymFYqEMymJC8jndazidc+/3vvvuO/dbNTY9MBUTiUQPSIKsYBzh
BbCBXoerPV8Hd7uuDBZLNwU7I/0LBtG98HywOuXL4ROwjy6IFiuv3k2u6+Fv
nyWpeuqe0Y3wDXhFX5DPB2l0IVzjZ0vhW3CK/oBXqT9EHwTr9f++Vj/bDmdT
c49+DxYrXwwXeH1esPfLh2V4EgyhM6r32a7Qu2ARPRfs/Tr7A/qJR+AJuMv7
t8Gb7o98+vH6L5CO5o98yvhdffBotBm0k1yvT4ESn7MoGKQ1e57rlLTX5/oc
mmc7mF9J7yGP5NUaPOx57bnQZ5ZnZ2AcPQM/uCeaa9t7XgfbjXb0Ce9F24V2
sgRWdFc0j+TVi9jfq3cfgUt0M3zHt2N0RbRY+Wp4Fuygy+DOYB7kBOur/v3w
G/E5uhb9qBj9BA+77oj2n+mN+ncafY8X0XYprf9Od2uGrWhndFb9WlzfRbtD
dzVEi5XXPX/ST1XC
             "]], PolygonBox[CompressedData["
1:eJwtkT8oxGEYx5/3JQ6H3EJMlzqDM52y3HxC6pLtlD+RRVgslO3KgDIpg5Iy
yWKSQSk7i2KxUDcoCxaLz9P3HT79Pu/7Pu/7/PnllzZm1qOZ5aEZVoLZMizA
IkzDLPvzUMVPCL7Gb+Acz7LXhHdDD37P3hv+AU/4PnvH+Clssf4KunsHDbw/
6uwC6nguyi/hEP8OeqsBJdYDfgeKMAKf8GLKOcb5JOuJ1IP3sgtTph7W8DbI
mmr+g3fWdb4HsIf3QS8UYAjmoAYVGIdRKMEP8b+wg2+nnJ77MWhWq3CLD1LT
g6nGFrwalctn8sr5cNQsPOYqKkclvelvbwa95TWeBeX03LVU21HQrPyfPOMd
0A6d0JV6KKSZ+exa/cw0g3KaYTH15L1lgv6lx3jsP8mEOrI=
             "]], 
            PolygonBox[{{353, 352, 463, 75, 409}, {270, 269, 310, 28, 272}, {
             273, 15, 264, 266, 267}, {277, 28, 318, 279, 280}}]}]}, 
         {RGBColor[
          0.6485152405028578, 0.6636457275359097, 0.9114295121648083], 
          EdgeForm[None], 
          GraphicsGroupBox[{
            PolygonBox[{{574, 199, 613}, {613, 199, 577}, {267, 16, 273}, {
             615, 199, 709}, {272, 17, 270}, {577, 199, 704}, {280, 21, 
             277}, {379, 32, 327}, {645, 105, 538}, {440, 105, 512}, {702, 
             199, 595}, {595, 199, 574}, {273, 16, 268}, {314, 22, 286}, {704,
              199, 615}}], PolygonBox[CompressedData["
1:eJwtlE1IlFEUhud+RC2KMh0dJU3FkSzLfkwmqWhRq8JwKsZNLRowMPpdZDvD
VgX9UIukqRZWq4SkyJWtxk3u0kJBXRYUFLboZ9vzet/FwxzOvffcc9/3fNNc
vHziUpJKpfKwCtaFVKqC342wgXgPi7uhBbLwkNwDmIN5+AyfYBl+wQH27IdF
WIKX8CKJe7Q3Q1wDvZCHr+S+wC24rZrk5qAAfTBG7pXv1N0T5N5BB+yEEXKP
4A7chTXkVsMP4p/wHb7BFnJtSexx2TmtnYKTMAQ3YArK8Bv+QD1sgh3QoTpQ
izbVUEs8DR9C7GnCPResgbS4yNoFeANvXVO1O1nbC/sgl8Qa0+5Zvee81gD1
erPeDouwAGfJFZOY01olcZXfqLe2w/Ykaiptpbm0v048aM2l/Qx8hEl4H6Km
0rYMU+6x057Im2fseeozOjtO7rVnRLMy79loJG5Koify5hrxIMzCTBI1ltYl
eGwP5EXWsyYP5aVmULNYKYivwhUYhechvllvvwf3k/iGSe/R3psw7BkZ8ZlR
ayAtqkP0Mg25EGuolmZuzJ7Jux44DnnohQE4D2n14PM1IXoib4Z99zE4Cv1w
LkRNy9Zg1h61W8NxfxP6Nhbs9T/q/oXTxGfgCWslf1P6toqaBWtYco897lG9
VoWonTSs8IwPeSY1m7vkOWyFbbDeeus/YG2Imuv8yhv9hn7fqbulWdrrXSF6
3uge1WuX9VmpQdwHBTgMR+Cgzkg76Causx/6xrLErZAhroN24s0h7tWZQ/Zg
wDOp2WwLca/OtIRIxvUbQvQo7e9Xd3W7nva0uif11gTN8B9CKIlZ
             "]], 
            PolygonBox[{{319, 32, 379, 330, 331}, {306, 25, 296, 303, 304}, {
             302, 301, 308, 25, 306}, {299, 25, 308, 246, 247}, {305, 24, 295,
              283, 284}, {298, 297, 292, 24, 305}, {289, 288, 285, 22, 314}, {
             512, 105, 645, 540, 541}, {732, 731, 734, 199, 702}, {630, 629, 
             538, 105, 440}, {349, 348, 327, 32, 317}}]}]}, 
         {RGBColor[
          0.7295165325991413, 0.7937922650853798, 0.9132760921372141], 
          EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJwtkLsOgUEQRnd/nsKlICRCIugUCiq1TiESpT+oiUQnahINJVqteADXB9I6
X3aKyflmdq6bG81608g5l8cSWMY7l4J1GPPwQj/gCRujD3CDfdA3+PAhfoVH
/Dd6Cc+mn1HwpRV7We0d/mAWq1Db8kEPYNpmqffb8vewaTnKvVhc73XbuQx3
Nku7TPBL6JUPM1RbhGu7awG3pvuwodnoKszjx+ivD2/K0X/ULEe5N9tBN80t
R70HNkv3tdEF2PWhl3omo3CPavWXHdtz6MN+qtWtC+upHf96gjJj
             "]], PolygonBox[CompressedData["
1:eJwt1E1IVFEYxvF7L0HuE4zS0ZECCzMXBvk5FrYqihmLca1oYVDkQl3rSsEP
dFEktjBoU1AUIwWphZE6u7RQyJYGCUkuat3/4TyLHx7Ovd77nud976S77+fu
JVEUdeAINuMo+oL3WEI9F89jFZ9wyN4f/MI+buA6ssihHRlcxTV0IY8OXME4
xlDGs44nYU/X0qjGD/Z2sYwVXEADtrGDJ9wz7xpV646v5dGFc6jFS7xyzap9
E1u4jEv4gI/4jHXOvYFZ1kWeuYEC60W0osU1qbZSHMMUpvGGe187A2Uxh8e4
iVv6yz2daEMGL9h7jhnM4ixO8O6TqGf9DV+dsbIexhD28BN1cbhX/1MehzPo
LLdxJwkZKssmNMchY2WdRQ6xmo0KpJLQQ/WyhvUZDGEQb9l7p3yxjSr20sqB
9Xd0s+5RvqxX8Rf/4vCMGvdAvThg7zcusm50j/LOtNU9XnZGykrv1Lsj19qH
XvdMvavkWsoz1u536t0NnpXTOIWjKElCxjM+g86ScS96/exmZ6VnVnrmNfsP
MBCHmlW7ZqLoPV1bwFMsalbiMBOlzlhZKyNldRf9nlnN7ihG8BCPTOsJTKJH
2XqGNEslPosyPPA9unfQvUq5lwXXMu3Z1Ixp1taSMNtFPEtCzQueqWHP1J6/
SX2bW/5W1FP1Vj1Wr0dcu77xrM+ks+kbKfg3Qr8V/wE0UYh1
             "]], 
            PolygonBox[{{688, 687, 562, 107, 546}, {351, 40, 365, 434, 435}, {
             545, 544, 667, 106, 539}, {616, 615, 709, 200, 633}, {516, 107, 
             562, 548, 549}, {341, 340, 383, 40, 322}, {328, 36, 358, 354, 
             355}, {431, 106, 676, 468, 469}, {332, 331, 358, 36, 321}}]}]}, 
         {RGBColor[
          0.8056366187063977, 0.8613392279132932, 0.8947645213582719], 
          EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJwtlUlI1lEUxb/3WhZU68DQaNGiTW3KWlSkNGiGUGJFWi0aQG2wRVDRQArN
UIIS1VcLByq1GRq1pKByyDIplBwgycLSNkUD/S73LA7n/v/fe/fd/z3nvi91
Y0lucUwkEqfBOJDNQxJeDs+DN4Ac8IbnIrgFrgWviM/DmfBKUAyagu+phTeB
VOIlcJ5+3wG6wFfQa7nAABgD38BTMAJ2sycdLrN8II04Df4FVhD/hT/DX0Cb
8lneYTAbzE94HY+pr8zOgnvZs5q4Ff4HCokfwaVgFvFe+CPIsJrgs+xpIj4O
bweXiHfBzXAnGFRfinTWYesLXAH3w/dVT416uxu0g4f6Rvv2O6BBGAVvE97P
DOVs0zc+Ae/AkPaMKI/9tlZ6mW5DWmf97Nb5Vkc9eAk+gMi6Ung8nAIWE4fo
/e+QBtMS3vMUq4Xf8uHfwZ+n6/cW1Wv69Uiv3Oj1devcr+qVab1GOs4J/mzv
rZdXon/nTTgtukaN8D7pYvo0K59pXB1c4wPwD/g1+A4mqM6JcLppZvpE19L6
OQhf4PkBcTK6H/PU74s8f7IewUeUfzNcp15bT/7Ie/3Bc9h682ANe/rgG5oJ
63Gf6u1XzS3S2PpVzv4Z5gm4mj23iJ/D71WD1VIU3TdZcCGoIi6AF0qDrOC9
/S4f3k742X3qR7PeH1X+UssXfC7qgs+V6ZWE10f35zZ4gfJPhe1SuEe8BL4a
3W+Xo9dh9eyP7rUW+W1MXhhVfZbH8iXV8wPwtYSfVaP+2ftWsIffKuEt0fUz
HSdF32Nrrtv58kNn8LXm4ZNgbvTvGuF9l7RrCO79MXlwcvT5+8n7EvV/S/Da
7RvMs+b/Hs3AOtafgneaptF1boXP6U6zu+1m8FkogE9E1/1FdK90SO9y9bBY
szms2ShRD03bgzprBzwFZBOnwnejz2xl9J4OyD/1wWe2IvgZdfJnY/C9bfAh
3UV2J5n37d61e7Bd603Lqui+OaZzbH2TPDss3y6SjqvUzyH1tFg9zA/eI6t/
a3TvDcqX+VpjfrdcvfKlra3XnGRqTm1el8oDy6L/9ySJV0TP1ykdG3U/zIRz
g99DOfAZzcsz+D+EVAJw
             "]], PolygonBox[CompressedData["
1:eJwtlGtoz1EYx3/nmGKiFMUb2mTFKyVKI9e5JSRic78kucw2w7xBbmNzn8uW
S4bZsJHrmGE0YRvzgoxcU8SKRrnfPt+e8+LT/3ue8/+d5znP5cTNWjwu1UdR
tBBiYBSLYn6XQlv0EhdFGXAEjsJZbK/YewtP0LlwITJbMXoM/+mC7grn0NOd
6U4wCD3BmY6Dfej9fFMWmc889HCoQBdCGvopfEI3wUtvMSiWLFgBhdiOs1cP
legF2OIji2Ec+hG2x+iL8AC9A7ZDKXtlsBp6stcNUp2dobM+wn10e2gXvtG3
nUP88pGIrsf2LLIYFetwZ3fTfwai12E7hd4GU9BzYDas1Z4zH/KlO+gu77C9
hRzIhXRv3z6FLeh5zmKV/xR0PrbayHzI1wm4iW6EK+jnsAGdDv3QWbAcLvNt
BZRAInuL4AX6NYxGJynf6Iv8d2Zk/6lh3QgfFAP27rAbSiKLodxbjVSr01Dm
LQbFchVK0SmQjU6WD/QuzsqDBngCPdRDkfmU7xvYhgb/Veg3zmLTnYbo7t56
8Z5yiD4AdZH1ZIG3mqv27+Ah+pcz37rjD3QrbJlh/Zt1ue7srOaq/SRIZW8s
NKCHQT56GQxGf3c2K9thGuszUIl+D3XoCTAe+sMAuO7sLN1Jd6uDWohhrznc
Df1/Ho7p/rAVPUPzg77tba8AitCtvcWimEZ4y4FyoRgOeuvx0pBj5XobbHXW
A+qFmlD/vtCHdbK3/KhGO731jHpHOVAuVnrzrRhy5M/Zt5qh9c5qrto/UM3V
ryFfuoPushmqIuuZNeifzs5XTV85y4Fy0RUSvM14VpgJzUYzbBkhH39Z/wn9
qhwoF//CWjVtw/oW62r4Ct+cxaTYNLOa3Rpvs6WeKUF/4T8Tw7wotjHY0iJ7
o1Z5O0Nn9UL31mzBoZD/FeikMJ/KxyT0Hm9vmWqq2l5zFrvyEct6anj/5GOo
tx5Vr+rN0ttV7W02NROajcxQf52X7a0ndJ5yMhf9mfObwoxqVmND/ygf3tub
orelA7qjtxxlhvjV2/e89e59OIme7623FaNiLQrzqBwpV5uwbYRLelPgnLdv
9QbpLTrsbfb1vu31VuOk0P86qyK8X+qJO95malmYR9UyPrznyqlymxB6owW0
hJGhv1SDyej/2X7vNA==
             "]], PolygonBox[CompressedData["
1:eJwt0c0rplEcxvH7HimzmyWRYkfZEEnKLGxpEorlEAsvT5GNl2ZBXjZGmhGl
wWLmWQ1WeJRYeCszFqQo/AmKv8DndN+Lb9d1rt8553fu3132NdM2/CGKohLk
I2dxgEucWP+gU5jEb6zJMrQ/jqIa/o6+4g3PGJLdqp/yZ1hChWyVLuI7BtUH
cI6s2hD9hr/8etor9Nyw9xduUK02RT/KC/DCN8qydDKtH9ERjKLZnlnZMW1H
Bw7lOcR8s9o2/4B7lMlaZLt8HV+Le3wJd8iK+EK0oUE2Jpvgx7GMOVk3/Ywm
9GFElkc34+TMI+2x7sV1nPQrDnPgLzCD6TiZVZhZhn5S7+K70pmF2bWGO2Wz
af/wjp9x8k2l/B6/j0q+AlXoVHuS1aOcH0hnu5H2Dm/YSf/pnzBDZ7b4FTqP
BfyPk3vK+Sv+H94BUgpHaA==
             "]]}]}, 
         {RGBColor[
          0.8783812766530155, 0.8855976329884374, 0.8621749797870486], 
          EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJw1lElsj1EUxf/fFQuEsLCwtLFoBAtDV1SKDhGiYtOqBTVEaEkR1TFSkQ6C
pDVUa6hWq0WURWkpFiKhLQsWJFpiYWHHwjz8Tu61ODnnfe999953hzd7c0le
saVSqQNgAhhnMQS/gYeTVGopegT+DJaht8NjIAvdDXeAeehS+AvIQ3fCBfAm
UA4esc6GH8A/4ozOrsRHJTofHme9Dv0efg0WopvgfrAE3RyxKIZc8If1esXM
v0/Qy9Gj8GRzO0Pom/Bl0AIOgRrZBG8Tt5HG2XvgDvoSXAva0GfgJnAOfRde
AM8Hc0CXub0GeKr5HX9j7xRcBurBKr43woXm/82Nf0+zbofbzfd0Ziecn/j+
jsRjVKxFkRflp1zMXhr6gu4V+VGeukAOehJnbqDT0QPww8i5cj+NvS3ov4nX
Rvl/B3+POv2Uf3M7E833dEa1GgibB/m+P/H7zDK3JZuZ6F/oQvQU9GJzv1/5
9il6Rr1zJOp3NfFY5Us+LeqlupXFvf/XSroK1EVuleOsuIvuNANsQ6+Gz4Ne
2YevgT70INwPOtQ/8ArlGv0h7q3e3Bo+GsLn9eh/zcEe83pmw4fN42iEX4Ax
9CvzOdH55xZ1Qq+BN4Qv+RyMeHrMZ0D5UZ5KzH1XmtuSzZdwN+hBP4WLlFP0
Rf67H74UY0/YvA2fBZ3oNvP+UJ+kJ25X9qvhjdHb6vGSxHuyFq4zz2spvAtU
oKebz7PmuiLxu8mv/F+JWdPMHY/eOAEfY68VvRduSHxmPmqWzefwlmbFvKbf
+D6s2qD74NGYQc1idcS81rznZF9+MqPuqn+9+RxXRU0Uv2a1N+ZrBF6U8ncj
I3pCvfHMfM7lSz6Pmvfavsi3ctgaNVAtVOcC8z7JNX9r9OZkwCfNbc+Em1Pe
Y21hoyXsPI53Uu9le3zXe5QT74bej+KY5Rp4d+RfdfgHsya5fA==
             "]], PolygonBox[CompressedData["
1:eJwtlLtPlUEQR3cnWmmiFhaWNhaGqIWvWCgUKuAraiwERGPwmQgIWIBArqAS
XgkmF+MDlPgCRYxoYWyMjY2CvYUxSmHhH6DERzy/zBQn9+z37c7Ozs53Vx5v
OFBvKaVyWACnc0qr+C2BBrwd1iR/1oJPwM6Y/xY/DBvw9VCPX82+di1cwDfD
6lhfhY/BxoivubvYvBo/AXvwHp5tSh5TsfVM7y5CNb4cSpPPeZU9J8XWHh34
KdiGb4Ur+Ecoi/ye40tYfxKvg8X47+z7d8B2xq0RT2d+gM9mj1UJn/FC9liK
+Qgf0hkjH+VejPfKfwqfgyr8IHxTLcxjKccfjDsZF/ECHMVboC35sz78LtxX
7vAJn4V7OjvM4Lq81uRrevCzMBDnq8WPQT/eqfvEX8Nt/Dr04uXQlzyGYt2A
UZ1de+DnYQS/BZe0d+w/DU/x3VHPdjiHLzV3PVOtR+Eh/gQm8GHz2MPQjb8w
P5vij+NbzHPXGXbgTeZzlVMNfgZ6Y73eFSIf1WhMtTXvlVqo0NnNYyuHm4oV
/aU7e4YPRDzVpIi/4dn+uK9/+NcYH4E/+Arz3l4H/Yy/Z3f1jHrnZ/ZvQ9/I
u+x3rliK8QX/mz039dw8vpB4FdGvM4xLzeerZw7he817U/P1rfzKXh/Vdxnj
x9GfijGOLzLPVfuZeY1VK52xC282v3vdeSP+3vxudMeD5jVULSfhDj5t3muq
sWr9wfyd5qg395n3lnLS3U3F/4G+0WuMX5r3itZP4pfj/0H/AXXmPa/eV4+q
V/8DoBKJFw==
             "]]}]}}, {{}, 
         TagBox[
          TooltipBox[
           {GrayLevel[0], Opacity[0.4], 
            LineBox[{524, 527, 528, 620, 621, 588, 529, 504, 606, 618, 605, 
             582, 570, 591, 639, 637, 623, 608, 607, 638, 650, 628, 647, 622, 
             584, 624, 627, 649, 697, 660, 652, 642, 643, 661, 695, 664, 644, 
             604, 626, 617}], 
            LineBox[{641, 625, 653, 714, 680, 669, 665, 651, 679, 690, 729, 
             671, 715, 681, 670, 672, 640, 689, 716, 717, 683, 691, 682, 699, 
             684, 674, 663}], 
            LineBox[{346, 360, 367, 388, 612, 416, 390, 373, 537, 395, 487, 
             377, 420, 371, 380, 372, 381, 415, 312, 346}], 
            LineBox[{366, 345, 391, 400, 399, 632, 442, 430, 405, 439, 533, 
             657, 429, 404, 473, 432, 462, 455, 422, 384, 366}], 
            LineBox[{389, 425, 423, 521, 550, 517, 460, 461, 477, 554, 491, 
             498, 359, 389}], 
            LineBox[{448, 424, 478, 453, 503, 566, 447, 449, 448}], 
            LineBox[{480, 421, 499, 506, 480}], 
            LineBox[{576, 597, 580, 483, 482, 479, 481, 508, 523, 514, 522, 
             446, 510, 515, 576}], 
            LineBox[{507, 505, 509, 525, 585, 586, 603, 589, 587, 590, 635, 
             602, 581, 507}], LineBox[{579, 511, 526, 583, 579}], 
            LineBox[{700, 673, 718, 700}], 
            LineBox[{701, 685, 735, 730, 719, 701}], 
            LineBox[{725, 724, 720, 725}]},
           "0.12`"],
          Annotation[#, 0.12, "Tooltip"]& ], 
         TagBox[
          TooltipBox[
           {GrayLevel[0], Opacity[0.4], LineBox[CompressedData["
1:eJwVzs9Hg3EcwPFn6dAf0CGi2dihQ+zSYZLVGDtETLGdYpExii790C2SDklj
RumSOsXGmIokUmvdmtihrh06RJfOvZ7Dy/vz+Xg8vrHSWn41EgRBiYIhS5wp
oswwxyw5ljlhkQxLtJgnT4Uz3rhjnXM2+eKAkQHf8hH+T3e1ziEb9huN6Bht
87AecWWu0idmH+XJ3OCdX74Zd5+gSZxXt0FNMMSPPaVdbWuSR3ph3f6YNPcp
MM0n9yyQZoUMD5TZYo9tjilSCd9HlVN2uOCZS16osc81HW75B04kM4w=
             "]]},
           "0.1`"],
          Annotation[#, 0.1, "Tooltip"]& ], 
         TagBox[
          TooltipBox[
           {GrayLevel[0], Opacity[0.4], LineBox[CompressedData["
1:eJwVzD1LglEYBuBTiz+goalIaHAQhHAICSNoKwQteHchg0DFRUehrSGClqBw
ETeHIAgaQoIXh0YjaLC1oUFoce86w8X93OfjydbbtdZKCOGY6WoI57xxwBll
TpjwzR4JXxRZ+pzyYU4p8My7s125kBm5zQ6P5Mnx6+6PT0b6A1txt37LmBt9
Le40b8jAi7krr+Udl9T1uazKda7MP/QY0uGVGQMu4lsqPNGkzyn3cR8Njthn
kxJZDkn4B2Z4J3M=
             "]], LineBox[{349, 247, 299, 293, 313, 317, 349}], 
            LineBox[{305, 298, 304, 306, 302, 284, 305}]},
           "0.08`"],
          Annotation[#, 0.08, "Tooltip"]& ], 
         TagBox[
          TooltipBox[
           {GrayLevel[0], Opacity[0.4], LineBox[CompressedData["
1:eJwV0D8oBFAcB/DnBgsdjrv8u45OnUtOQgajQakrUTcpUQYlLCzqyqAMUrco
sshmUMpmu8lIykCZDIarW3Szzxs+fX+/33v96r3Rrf3VvbYQwgbfiRC+WKDC
BzP8uVDnTV2nxBMvZvOyIdtlnmkemKDAr7Mm79zpr8nF3foa91zoU3Gnelie
Msgh52aXnLCp/5QrMsOZ+ocjbjngmVdu2Il3KfPILlXWuIr72GaZY5ZYp+Uv
ZuUkQxToJx3fyxy9dJOkgx466SJFHxkGGKPIFOPkyTLCIhX+AV8sKJE=
             "]]},
           "0.06`"],
          Annotation[#, 0.06, "Tooltip"]& ], 
         TagBox[
          TooltipBox[
           {GrayLevel[0], Opacity[0.4], 
            LineBox[{250, 252, 254, 258, 261, 259, 251, 265, 316, 263, 264, 
             266, 269, 310, 318, 279, 294, 282, 300, 307, 245, 347, 326, 378, 
             329, 356, 352, 463}]},
           "0.04`"],
          Annotation[#, 0.04, "Tooltip"]& ], 
         TagBox[
          TooltipBox[
           {GrayLevel[0], Opacity[0.4], 
            LineBox[{253, 249, 244, 255, 256, 257, 260, 248, 262, 350}]},
           "0.02`"],
          Annotation[#, 0.02, "Tooltip"]& ], {}, {}}, {InsetBox["0.02`", 736],
          InsetBox["0.04`", 737], InsetBox["0.06`", 738], 
         InsetBox["0.08`", 739], InsetBox["0.08`", 740], 
         InsetBox["0.08`", 741], InsetBox["0.1`", 742], 
         InsetBox["0.12`", 743], InsetBox["0.12`", 744], 
         InsetBox["0.12`", 745], InsetBox["0.12`", 746], 
         InsetBox["0.12`", 747], InsetBox["0.12`", 748], 
         InsetBox["0.12`", 749], InsetBox["0.12`", 750], 
         InsetBox["0.12`", 751]}}],
      AspectRatio->1,
      Frame->True,
      FrameLabel->{
        FormBox["\"Dean\"", TraditionalForm], 
        FormBox[
        "\"\[Kappa]/\\!\\(\\*SqrtBox[\\(Re\\)]\\)\"", TraditionalForm]},
      Method->{},
      PlotLabel->FormBox[
       "\"max \\!\\(\\*SubscriptBox[\\(v\\), \\(x\\)]\\) \:043f\:0440\:0438 \
F=const\"", TraditionalForm],
      PlotRange->{{0, 250}, All},
      PlotRangeClipping->True,
      PlotRangePadding->{Automatic, Automatic},
      ImageCache->GraphicsData["CompressedBitmap", "\<\
eJzlfXlwVMe57xeNBGIRBoMNDnARXBaF7bFfEAaMMAJtWEiAWCSQkDRoQyAh
tAskgdgFYicYgcxiDMZgwJYNMQbHDoZrHr44tgmBlF1+z6nnqlSlKlWp/JOq
fv37TveZM6Mzi7Bzc+teVY1mpvuc7q9/397dpychoyQne3VGSW5mRvic4oy1
ObmZ68Kj1xTLIsfPiOgd+fpVOOGzkB/Vv3dICIFKm7dUfnPI/63kJOMviP/3
kK9Ianos+AprPTlb6XFTJH+MjMS7k5xcievVdZFN9FjeF2V0k8ZvnYxmVBU3
2+o0u3nc5OT3IHUtqpytgruKbHpM4nETRcquUYsy1M2yNu9waz5IlaEZ3I53
Y2SdTepa1ZC8NO+39WcMHBgPg3hhUG0SaBDfSgZceqABEv+MQSATpeFXLAGx
Jjd0t02qGye1Co/mO/qEPtGfMDjchCHRh0A97dsgC7s0S57jsmBT2NRog2wu
7c5loWYZWUZquc7u1m5cFtLmVvRqjL6DgXHb5sIsomr905dbu/HedQfb+2X3
fno3WqSBin4tesZVBrd6K+a3Og2ZsLvmGf4GUh5L+VHXebnWpizMFBrX7cEB
dBumujXVWwpdE94D67abRTYstzsC6Pln7rhpddRjRmsaN63Wdtd4w83uWpsy
X7j56tYYeJisa2pvl4pkh9u9jgD69EBMW2brJc8rBTQskzEcm+u8gWbXpE2Z
HWiOwHrWuLFxMyUioF5N3Kz3BgXWbQDC1ou/dbYYdZ/C9JPInY26t6f3rqYy
Bdhrd4/bAuzNAz07bX5O2+Ami2/7zzN1Qe3ovisZXt2lfvCzXrvzYTZD7dvA
dQYdQT4QU6DaeVx3LbbEG8LN8zyjjK8BhMlFOxdnVxbm63a/nbvudkUpXly7
d5/r5Xa/nSufaxvCGJLYxT2qNFnkbut0/QHj1l4+2OXwV7cNYX6oe0N2aunw
W+cwEgZFZ5BN2T/ruv8uffxXosWurIO7GNk5Q4e/Om6xj03jP6aMI7Kgf5Ck
G006ev7pT38yyzobZT///vvvX7p586aoq7hPQWLvtv9HHUXZ2ptitfOi2LLh
IUpEfeV/iJr1d8Tuhv+jrgkVm6u/5HLU4yXrRFXJb6KvXbuGNpf4B/+pjIEt
jzu6jUy+xPrFvxbpc1tEftabklZQ3JcpXpK8m1/bNj4Sy5ccFtUbL4mlC/eK
7BUnebR4L686R3OHGjasz7RaUVB4hIrz62kiLaLlsg3nqj0UN8Ko7zutRbdD
OVOVuX35rKTy9XM/GOGuI+wvf/kLIGEi53nH5Tkl3Vb7GWJTZjTbwa0JiOXf
//53MXdSmQODlz2sXXhdxE2uBuMomCH4hSgt/ECsTD0mdtQ9YaZJhjEEJaWn
mOGpKQfEkVe/Ett33uLy4vz3RFrKASpKmkE0tEQUrrpMqRMiKKn2HiWPMUjq
F3WBShZEEY1fQmPl+CZHDKPE6ttUOtaoD19xh/asmEAzSz+hlMEKIoqmZNmn
hFZkZe8SFZuPiPrdp0TT8XelgF3/7Id47zANbjt8Eddtq5gdViUSX2zQw18c
tZeHi4E7+P9QltfCtUfF2uJmkZV2gjkH7m+ou8wQFJe0iKjpeaK04nXwj2GA
tOQVHKSU6f1o4OTNYlPD+3S6LJX6TZhGNO0g2qN5wyNo7LhwGpNyVuRmvkEr
o6bTwGlzJWRDaEbJt5Q5ZSRFzY2iPsPHEQ13iuLqPbQtYyQNdV4Vlz/6QzeM
+OWAR8yjxWtG1yKxZNaBIDXi/MTLPCqM1WB4iMngvQfu8Wggu0Hi9Nk/0r+I
uk3vioNHHojsVXtEWf1B/ixrxPGWP7AOxIyUA5jdACRoQ+oc6jWwH01aeUMc
O/57ZniXHkQj5h0RO3d/QqvnTaPeQ8Np1KTh1Gd6Pe0unEN9h8vBFu+hSVMr
qHZnMcXSBMq99EMYRitHIwcuzrY+4Bc+y1J8doiDJ69T8Ph79+5Nunv3bsKV
K1dGffHFF1P8wMOmMwiwyKandFklVsaeYiuAV1bcGYi3YbqeYTFIX3qUxUMD
BHafOPkti8fJM/8XAIit229wOURj55FLrORBDEdvlNGyqAE0bM4OhrN48RTq
PYhowor3+YpjRSnUc1AfAESlLxsyHywBi8xwUoRWAkqkBomFc5T6OnATtcjv
rAFyrBc//D2jc/jMDVnGsIhfnr3FSL1/94+iZntzkFhbuUuOeMueg6LpaAu/
SjbuFWfe+Vzsbz4VLM68/Z5s6ezV6+La7fvi4weP5Lf7T77vCcz64FOX9svd
+E7LRMH8dwy568RIS8NgegLY0MqaC7C9Gl4FWyhDCzmDwkut8oRXo1u07gRl
zxtPNKZEHD32O1oyaTBNmT6QxixixaTjxUuo9ygpn32HsrnNihxJY/t3puE1
P1BL8QQanjSfhuX/iq5+fIKipK2JikiiuJkxlLb7FBmQOcT2fUcYrpNvweYA
p2BRu30Py6KCLwQAyUt3HjiKm8Tdh9/SZJSFtg+02G4NIubfKkRJyi0DtJFi
4UuNYmPZZ26gNWy9zu8ALa/gAJsjAAaQABospFRgVlJYzt1HLzOIMFdQ2vSM
LSJ5WS7lTTPEqX/iLipcIM3wiBxGbc2MsTQ6IYfG9jTqB8S30IboF6SW1rLE
ZUV0Me57eZ5EcA+tGpVKMycRxTbe78hIBDNgp67cY35d+tXHGqCjZy4wnvg2
Ff9D/AEU4gbQ7LAa8crUTWSgM0oUL7oBvyP2bPmefRWCC2hsY9NtNnHQ3KXL
NjBTMHIrQhAtlK3KaRJ5RetF6vJ6aArfu3hptUhauoqvxfeC0m2iqKKGXhxk
IDJo0Tsi5pVlNCWcaFbFD+AIZcaNZM1mX5ayQ9z+7RMq2VhDS4dprU2hy3Lc
GqIjJ8+J7YcusEmVAqMheuvaLa7Ct+n47yM8tYPopa7r4NNIW3uL1smyktXX
aRj7MwwN77JELFpcyWQcOfqVCREgK990iMsyMreJvLXrReL8tWLr/nMMScqS
SjFv4Uq+Fh5jVVGdtC4HRHpuBQvfoSNfMESzR79AUWV/FFXVF1jIRlf/BqPC
kPldSgrV795FM/tNoYKT56TuGzhIRWOapHopyBzmPfg2Q5UFCMv0rmsssAxB
BIBQlnUKEBTlvcMuXsMCyJZlFrOk7D/0uQlLSmq6yFpdI3Jy94oVOWViTVmV
SMsuYUHXsMxf4mRHCj3FNVc+vM3tIILRsKTHyrBoZrMoLX+dksb2o5Ib3xsW
V0oGLE1xdRXN6DeZKt+9oRF559Yd5gpMUIy/0Y9wG/3kztkc6MDJQSCiJ5aY
QTlGj+BlYeI2UVP7NqOQ5Wzk0etRWUefnlPOjCko3SrWVW4U2RIN6XN4tBj9
wtQ8/rx6jTSG5TXwJaxrltGL1OwSaWVUXBi7Xo6ZR07v3LogR43SyVT/8Wd6
5HBJGLm0JNSFy8Jo32LjdiVPdP/JKUqmVNqn5EPX07haVjt8d3BBd0pu/t6U
o6dox2jG4dZMmCJVaj3zG99C/TCJYxEZbYNDEzovNzkE2fTkEOx39My1omD9
VpEUX8/OsGD9NpFZUM12HTKqObRk5Vq2ZOAeHP7+lvfbcAjc2AXuHm5mtUIw
AK427ft3MX/RElFad5DjHfRbu2235hBfC1bgJcfqySE5dOrMZSF0vzmVaPEp
heJ4FnGjGYdE+TdUMo5RliqJss50uXo8uMAcKNHcaNuG9yaCPZt4xqI523ds
ZfnxxxQZVVg1Z0ynRcyXNQveFylJO5kvteX32f8icAEfYBYx+FdiN0pz+SWb
wuzCDazzwBDmEXyRuEtKZSk9C7PGprSwfIeo39zKfElcnMV82XbwTfaUkC20
C+3ZLbUQfAFPG/a+LhYuKgPvtNeQmQIHJVax++j+Q75d8kaVhTKfZJDHQCnx
ZYyHZreIe4++cyhs7z36NcWFv0i1t+5o9oib976Ut9WyYqBplHo2E1FwQbPn
9m9vUHpEHLPHaLYb357ztPoWwj2df/eGuHjpTfHGuTPMzo7+2OluCME+sDP3
lYsmOwudlxh2JLxgZ3xCHqvC5i3XOEBYmV8lqjdvF0dev8nXFVU1MjtfWZRp
BhLwVsDaubpIrJapAdiZvCzHULNfvi2az15kdkId121oMtkJEUCYfuj0B2A5
aX7iOrRp5ScMKfoAIxyWgEozw2BUJy7bsHUXNS4kN+b0T6gSLW9eEe99/Jm6
tgddu32ZUga9SIWvHmbZQD08MnNF6h20RkLu1tbHB1NkSFjMZk5er9py0M17
rRTdfxLtffSdKuuAaIY+2ifjzMElgelwSBszYMTdre9dlcOVn02LG/LjOZ+z
8ixzCCEkOB8bn2sqLeIe55pa5vwBaTyBPALp5Vk57MI8OY9AYGX2Dub8AtPA
XtRc5Nxg/cZ9YtuOm8x53A/OwzDDo+vhIDyWgq3wMwYKzqONa7c/Z4Nvpmfy
v0pN3CQAbRw7fpQO5IxwkwBwDeORhsOUgPPvnqSVw2ZT5YWzbJQOHNrHbWpu
xa3fLDY37qOC+HBKPPTETQLQj5RU1VYXuvvwI4obMJG23H3AigrnsmXbZjq9
bgxNnW54gJbKOcxeLQIfP7hOhWNSLHaig2lmMGZIc8trzYiJ/ZpuF8eRSXnj
OKLT+DmVIk0G/OA4TCq4D/eZkVfJCO1+9Qpz9eTb/87JgeY46sAd1FXJz4uX
Von5ycVicXohc3zPsavi1EVDSMEVBFEyxPPJcaCtOR6i+C51lHUP4QSQTM1c
5bLP3fgW7SHwklV8ObTkZPVc02U2LhzHDATZ0iRonjefPUh5I2Kp7r2r4uir
h+l8USE5tdaTwfOr775NrfWyqdm1fNdOGbvrpiAPmudQ4YQBk6hYWo59+/fQ
a/k5lHngKNvxgWTwfEvGRBpZet3kOSxF/uiFbjzXFkflBCw7clh+eT7Z5Pmc
sFqT586E8xzG43te1nlOg2OjS1k7X5Hu2srz9NxygCN2Hr7Idh+JPewveF67
q4VHfFFmZeA5JL5882FR2fBLvo/LZBJXLANhUA5NLa07IDbsOO7Gc4Rg8Lt2
0eZUiqJaFTL6iDZnVl4RG7c1Kjzwf3QbOfhAKp5kqLh561fsTnRzEnyxq3G7
2NPUKA4fOcAuBIxL5nnWedT8zSPx+A8P6e5njeZ+KpAolVd8+90T8fDRbyl9
ilE+Yl0ryxpgkUaGRdmw46idRrnSiJy/cJbOXyij2aqtnouN4SpBsDP/OgVQ
HoKlXgabnQKKof+XG/MxjYf4jJ37KmPKVjM/4ZUCzJPx1C6YDwUFs7fsf4PN
OZi/vqZezJwzn41BUcUGUd2wgxkN83j8rdsyLT7MqS9iZggCUmPNfLRxWDpz
ML9q61FmvhQ2utQwzzOQ5XswS2CoUlcTjh3SoR89/SYHbhsXD6FBKXV05u16
Sknbr00zoAlS0YGnEOgQ6e5nt1GnL4N7B7/+IHmtoie+HCL9xZf3g8BoaX/U
XWZrsN9GXU9uFa2jKYgZROB/f36Xm4Xoad2V9gH2g8UNc2HWKD59ykAqvPpI
8buTVQZUSMm237RFsB9d/BmBMbZGwFMO4Na1HCDIAy9hGDhvkgYc/K3d9Zop
B/nrysS0WQksBwdbXhfllWWirLZB1O9sEs1vfsKB3JyEJXx9af0BlgPkR7DG
CMgv3fy9yM5fw/VaDg7ljnRzydAy07CHcjwGb7hWxovrqus4epBxPZ0uyKW8
lteDODjrwG5Bhfsm6FIEVBrE0eYHH14TX339AMLtKQHQ6Pevv8vBHkuA1GYp
Ff4lIEy3aDYFQZKGg8shSBg6ZBGScep0C7y2mZxpYzRgfi1UxeEmAKhwCYHB
fNMOUVd/AjA2IAHY1PC+KQCxcTliXU0TCwCS50XLCxi3mm3NbLWtArB8Vak4
1PKGqKquEEXlNSLLmckRQmHFDvFy7EJR0XCEyzc11OlonA0G2oAuwJdd+OB3
LAA1cdRGADDtDjOqGEVHz+yntGExVCIjiPLaLTouo6++PkgTp+QFIZiUUgAm
AGgvUoCI8/MH95jd8jKjuCPrPdiGYigviIM8SWWVCBsioPyHtjTwHarOwWwF
UDIoU2UdzOshrqAIvkaGMMGW/FuH7b2fjpVYpMXKo2Yl5jKWpm4UCxaViphY
J8+z5eYf4Nkq2HRQgkQNrAT0CM/BStQBp7379oitTYdkMJglE7RLYnXZdhEd
v5hte2X9VvZ8wNfKSgg+zFztzhbk4NRcOKoNK4GMS+i7MiuXDp1DNRJ19IdA
48zZk4zb4okDKLZiH7cLiEwm9XCz6dApAArDDabBqoJhqLMyE/VoXummLTMR
V7oY52D5AMNkG1JiUBbM5KF/Fek9jxs7+ZuEnmpyDeurmmvLo1/l2St8X5l6
nBVtBVYfFpSIFekNonB9hcjM2mlyDSllYWmV9Kz7eEVrXVWtiIpJFjnFmxgl
JAIgLX91ntiy76zIKapnTwxLDnLBNbQBWHJl2H7+2ld8H4YOzmBB9VpjMjsj
CSvtTRlPyXGGncGcvbY902RQNn3IbHZEudOVIRrupI++a6bBpCcSQ2nc8jba
Z7pgGWdpiwpfqf0jdP3ylbeURXVwOAZDDA7YcUx5c8Ud43rFcXV9MFtgDmLk
8GXWwe6ylz+O9TM5Niusog3H5kwqFdnORl5DcuY0iaUr14rlKzaJkupasTCl
nLJUmDi68tccaR49t4Nm0QJKkhzD/PaiiQq1YctpnUwR40cq0IbR1OL3xYYt
O1mmMTrkSenOPGa4ZhZkHkghetB+Y9DMSGYcXGDWi4M5MoDzSBmC2ihmVtPR
HRTdf5gZxPaLLaXShAHUP3EDnb3aQNGxpawDngzDO1DWHIMOqGlcpg+JleYY
0AedyJAMDnR0C6iUcRSf3vmYg2p9n562MnhmlMHXgmuYY2Hd7++PbcN8sm0+
pobLTvGEfX7hYWbbkmU1orSmnuZNGUkU2SjSMldxCJqy+wKHwlgqXqfYVr6p
lmL6j6dNMjyAQklFo8J5Q6jPjLW0KHU2xSfvlUnIbmR6bGKBG2ZEFO9U/vpz
9mbr4vvzjAGc1Rbni+bKj87u7it+YcagWdk2tAtPlxebQKWyfWDGCc29L934
hRWyjz7+ULNLB6aalVKBFOw9ONLBUKBU6ALKguAUEx16QQnmFOIGRwuxRB3a
lHExTKTRltqm0/mvf/0r9tDwt38JZLuBJMLKK72kW5hz2dxSULz+NTdeTR/e
m6Y4bzOv4FoGpe1XC9LPmrwqKF1P88Mn0zY5MAxwdWG+jF6O0ZIZMTRF5Z6b
du3jOA2gAL/UlU7RcumuGRUG8VzSc1puKX2STAcPPmJeevJM6SY1Ht5C2RHR
dEKCqXkGf1O9eSVNi6pioA3QMM8UzH0DYFxnCTOtESial6qgeNaR4xIMCeqB
67S4wRyoaROg2/3Pf/7zvz558oR+4U9rBrTRmpSZTbzUhaVj6+aOnbs/4WAA
nKio20Lj+hHvZlmZU6A5wQEBPK3mRJzamDGg4DWQTbV1S2i0tEGxRWnUu5vl
4aGIDNrYXEJYEQ7WZTLT3y21pTRau5VeFJ5ncKB6+SQaWXbDhEjP8G/ZU0vl
Yxe4cQCWBX0XRg2j/DOGqEs/YwQVsNCdTA3QL6lAeqmZmSuDeNMAIpgABxBs
gEtAfrw/lF/mKuzxHR1Wjp0MNO0FA5mB8XesKFNj9Rp6YWwWh20Y6bSI3rwl
ZtGyFXS2Npb6xVcyyrATEmWKmSyN/Kg5tGJoFGXED6fo4u3iyNFDIrOginLm
TyDq1o2iVtfQxLAwimm+yvchb5o/pQ8NzjhPDY1LaWa/BE4wMBzIOiaaoVdb
MoYSjWlgOhCSyezURFyF156I0+aUhZgxpQ1bsySfB1PRpdtmDAYoEXtLTx2s
0Hz46LfsuBEEqGxLh2DP//DDDzApDOAEfwj/wpTjl7quo8WjpZ/rb2y3y5k0
gWZnekd4YdQIovE1IjpuHnvPmXl1PDqYzbVl1TR9ZC+KSMjgueBdjfGY36W9
K9IoqXIjLZjai8KkXM7IKae43n1YzpHXYCjLs3OpdlkuJazPkZ54tprKh8D1
YuQ2p2VQuswgdy5QOhJfbOZIPH8s6zAHHBeOWhfCx44XSp/uCs2kKdCO9KYy
eDAyIaoMVh2gI4vh63xsBDM2UHYNeIO6ehLO2FfaSbc49NGjRxQ3ZCANGXsY
O2Fpb0Ya9YtqpOh+WpP703NTnTzK5KU55kZI5L9ry6t5CB/ceSDyi0tpghx9
bzxqStHUtDeRBiZX0RvnSqXKGX+hg+JpbWU5xT73HA2uvcH3Qutl3ERb91fQ
uIkL2I/W89oO0A9T/rWYJk5azlNTOoDWRhffwUFwA5bFFauEsM9AoodpD3fT
YMQs5y+cVamfUQZHiagWCEV6R97Xll7lXqntg2D/5gb59L7SnIzcitVxKkmI
pT6T91L10mjswzGFHjsy4HawRJdX0iDiEpN5iAXryvkdcMBYQuiHz1/Podzn
B5NoSOoONqS7jxynmAl9aODMNKqsX08JCnbcC2iqZIaIXCJ9Sj8aP3AOpUuI
AJWeNkGImj6pP5sSwAd4IJ2AGt/BOqRpEH6HxR8CVrBHQ851s/3jabfB2yue
RksTWHY1kPlzZtNz4+p4D17py2mUpYDMyK1wAzJ+/gKWvcy81UykBpLt8+iF
DOSJZeNow6+fMJBvvvchNRbIDGrYXNq4rYKmSvu8VNYhxtu9fBktlvcebCml
idSPpkcsppXGxDJVpyxV8byUXxpI665/p0ERn9y+Zcol3BOMqgQyWAmkjgUR
ViPOk6E7wrXZZjjmsXHebv++d1mcqdmAjae0fJwcWp90hnDu0CE0MV6agoo3
6PVzZ4mnyy0QYhkZywuJC5cwhDK0MyEErQgk4kcb6j5OyhrciR4LFHqW3kcm
jQKMJEKuo68W0GRV2oN366VSmYxjIVc7DxSac2gR+eetXp7bRliNIAaGXE3z
sWpDVjXM8FmYmUBqI+OvMZ9//jmHvtE/sUhSHyusyGYoso9Beu+JO3klZ/Gy
at5h37A+j7p1N+qGZDYDUqrfXULh0kNKaUI2Iv2bGveAWJo+bxl2KBsG+Vma
W/e2mbiAA3U7msw5USR90EwdsGpDiWQUSKidi6gz5mnCWKkh5wilkO8BRL3W
j4QCBkGtkrLMmnlezE9tJDt4IiiSprFuBwE+6i9SFldiVwrVSFtJA6ZjUpNq
4kZKp74L++nFiuw8pdqFnJbljEyG4xax89NEVv5aOl0wHHJJ337XTNnOw21Q
1NNQkFmghaHqJU49XXXfXKQ25rD1ZkeoMfIuaR95wS/Wn/O2e9KhzYN0HsDw
4yuYEnYD5gUTmMxZQ6jvhAWY7uflmhdml3Nemy+dhgZm2746Wjl8HgOzZIW0
iUWlnGx+VFvNSgmDo4GR13Ou7JpXcOjFN4aAsy6/DzAM8Ua++VQCpkFB/zyZ
hYB+MPad7fNN+pGlaPpz1mRSwsBpTD/mXDA20A+mLl3WbNIPucXSxaZde7lM
x7ZwgJg4exa0J/qjfbBX2rHjAmvyy9JqmfYlU8OZ9mWZxTxB50k75iGy8tN5
fwlolwKpaWdk4XMKz98ynfDmLfVin0zmsQpiWe7oAbKTAsrZQ6h2jiFhPQfx
VjyaE6Hjup/T8ImIvF9krDcljqa4qoM8CVm5aRvbANDrXJ1h0ptfXEYpL86g
JpnkMtY0jsrff2Dux8c9oBfjQfKLMolzN9C70B/M/2pUQSPm1GK7gzSeAygm
5z+wJYFiR4dTr3E5lF24lCZNLqEx/Y1hjSi6yt1byKbVhanK8E5iV1wsg//s
/ESaT+5+Cfqqgnexbd9h01dgMoEDzxR/NL/AVXASc2qvMM2JIyZS/+hW3kYh
RYNixs2muYUbeJ54VgyLhhnGYgsFTC/6B6shIghtYb2xRg57hPkEvT6BUFbP
D8PfYX5H+jWeKF3qj9QeXAV0X644JwqTWik+YhwNmHPNJDV5wQIaPirNF6nY
0yUBDjGnMzTnXWSGsKZpMjEM7K7i3ZSpgdEIODMu/IW3OIPG/rOvahpFUvI6
ShgzgCYv2qFoLGITjEwZ+5r2Hn3NpBGazt5M0oh6KZEmjSjXNJ6+1MrWgG32
8sBoVF6NaZzUux/F5jygRVPm0XSJY1JyEo2kARRVuI9phAXVmTh2bEgNkZbU
CJqRuUAUjcwEGW5HM7TRLySFauuLQWN6QKr/jOlceoQXiE2VDygrO4vU1n7q
M6uUt3fYEfjLU+dMAsFkdwIdVgJNl4A4DLJ8X2/4yggQSOF6hDF+ygaxsfye
yeyFaXk8iYWdop50YrsKpj/aS6dltshYvM/0R+fztnRiGsiTTggg6MTaD+iE
GccOZrgi6CuEDTgpOn2RiRQKYYW5TSYrMFPkj8w1FTt5Y0fCgnRzlQJeXu8B
1OsvOpjUK+U6s9YrbnrJ1QyFnP7o6xMQfVjLxqaExJQsW/rUXrw29MkyTRrU
RVtxJm3V05GWn23siwZpKctXm/spsHddDZ1J4wfQVLAB0nQE2Ya0YLf1FfnK
8U5YqM4/WlupyXVUF0fKxnE2vWyJXpVxhvcHaDyrtr7KRGMWUqf1SAjUExis
CoroIOVltFnU5kct4zGUud4p7mjJmCKdTrcDrfq4rNKzbcjl/fw+yNV79aEO
elOGDEY1uVD82toaE3IYIb2tyAe5GmDrSR/u5yyFeQWYn5Cxodi1Yh6iH/Tg
ZTdQjCkFPS114OBesWlzLTsotenIUHK/8DrcEtKfPyWdyMM1nbBLKi/Wcw2K
zmDRLGnbsLFa5+9MYp4/ZWpLDp4FxO5FkINI3xc5UBiQA2aDHNcSmEOcfeO0
KCpeA7NqmG4ftBjP+we7Ha0mcXveC4lACfsy+Cm5wiM+SdQbXfHyJBFh0a5D
xzic8EeiVhhXukfmaWV9npJO1/abTrwKiMVfLBTrWREoCUIfRI7YPck05nun
MUTBqCIJGVNPhIb0delzF1vasC9x/pJssbnpdRvaQs1MWm/Ags2GcQTN+ilC
H2RZM+XHxrEua/fs2dMvANSwRGlHmX4yCHObyAuAkORwRz+UGG/BEQ8fPvxz
9+7dLyUmJk7+9NNPvWmmlRI8e+1JCTbX6u1GmK/BJAz2VjIZBX5lKfRvf/sb
gPgmPDz85kvyTyasAcmSHS14LqWbn36NDTXB4d98882nkydPRr85hw8fNoxr
qM+lCVmnn4ixnognuF1SR110bkNpw5ZrYqkM+j0o9Ueo8RYC3mwtLy/fs1b+
SaDANzUIXzNVXg6m840pHrrBstX2Q2+5YcqZ5WrvpBoj74BV4fQTJ06AVJCc
eOnSJfC3q8XPes5M6vMz2p4I559UPIqF4F+TimfgAiPVAdZjUpW/PaMdq82E
dIhJkevkNdchMzbcBmHJC0s5staESZsRZnLbOhWuqDmRnp5uEvqMD7Q6qP7N
A7qEPmHFHi08KLdn310mCg/LISe2EBUoWrb0+Todxu5wMF9cxV5RbAa20okD
FDSdvA21sH10djexcmm0ywq7nb0V3E7SsKcYpCEK0luk4Zt01z602qA02EIp
a6edGth5fpwZgyk8X1Qhi+isqMISTf3uU7x24JfP7lQ5Yefw5yDrIXl2VOEZ
TUyK+qNKP1Ogpj9w7g755WoXT6zUZxmCOF2BsAbOdUyT8vO+aMNEp6Yt1OLD
4NNlHa3xR1sn77RZDsJ9oZ2QgSxsY8fWD00WMiB1tIh/sjpbyLLAJAPLplZh
BpjSuBiOtqtPyo4e+51IeGU19w7KZDCpiUI8CQMMota2h49Cnf7rCh9dUmfN
GDt4oywIpMm4A4+RYR5VEaaPeFBizzZEEueXNnfLoa1sW2VsLz0d3AUettc4
PKadFOnTFK0HERvpgQ6820tZiI24M2VF7eSjVfZbm5RXcq2RBcjH+Hn5dtQh
eUbxdX3ojl/qfOEGP6Q0U/otS4Yf7I0sPGGI/rGdWfIv2IYsx1OQNSAQUELM
3mFCMSkHFxPkjYTifwAJoW4k4FgZzA/qWSRZHhJYzxyztqvnjmJeYiH3iJ41
AOo5MHmz726NtL6zWxeFSa18Qg1Op8EjxjBteBZJSpw+zgmPK2hMeWTr2tcF
nneF1cRIYM8tXXQOpDlDGEN/kraou9BBD77lzqumCJpJs4zmzBOIcMAZhnv9
szuUq0+5ojScesVSVRJYNyr+s1LNR0DRxHpQTWUxY3CyGF3fm0aUdJa75GOg
iu+0p5tI52IekWU0tG3pOOrbV40mZi6alKPZQ8N76tE8R3GX2jeamN4UXvXY
bTRFAKdvKh55obIJPanPyjvGaCJncSczk3g0LErrA+tG1EVQ2PwP3LpZP74L
dR+7RcyOTqeL6YOo88wLcjRl1J9mSZ6cpYnGaNrTDUYzsNpjNNju0n+liHp5
OW2c3MsYzaVNNFyNBoussXsD68aQ2u5gjFsfYEw/teQZkRDvYozmS88JVCwV
W/pEJOMlZluh1jE861u+IlZKqDJoY8I4Q74wBiVfDUlEMU18CBsSU79o9bAq
jKf+medJRqz+sK3CjNpEJfvP4eghKm2XycCpk25qjkfWF6aUA5RgZZXwpADO
NMQtPloP5PBf1zH/1qkC3xQhfcxetRsUORRFOHxNncBIZd4p8rWdxpVWu+JT
RwDUYKM4ZhElNYbVDjby2eJmfRBbAAT5moewwmXJ8zvYUiJzBysViDhVVZmn
NAey6c2M7iRYNikpNtzbkcDu0dK/cZZf+Y/EQScLJmPcsgRsCLWlxUKHI0Ay
fB4zKwO2x1qKI61y0iUgcjQkTEuFP+3xMllgmZA3Jws6++0ei0Tyc7Cfng2r
0NG2OSw9SLGWtYG00cG2jazsXXx7ZUBmPNj23gp72/zjOnQfM2+ew+3q/EQZ
gMk2qtrVBm92shrtf2YbOJlXt8EyUB0QA0LMBrDO3K4GbIj4kW384uuvvzZP
YjbVqKZdbeBlHqCJ0P6naMM4htSBU0zNJ8L88qizryZZZes2vYujbP0S1+Zo
Z26JD7BtbMKuIvnRrA6I7ypR5XbwlDXcK2aUcXhkjb32hdoSoU8Gl583+htG
sGcLwf+pt/Ghz7X/mNtcoD5lL3wUcd1/ldsM99TRZ3Cnf2vC+jtiyo3aSQrV
e+8uoMjtp+vGLg4xR2NZajae5guxjN7oBqX67Hl0qet8cN3/7wsE83enni91
troe4ag3PwXwUwA6uOMfhFKYBdsQtvnp2OHal65WNLw0b3cgcliA19mV2R2O
+8+61+53B+zG5uNAX7v4T08Dt5X0pyPpv/PPdvxPG6/VnFt//sb9B3lW8Jv9
fhn1G4bz9SXmr3gZegwB7GyS6bLyxvWUZKlqijSsThfvl0/kt16uCQApztaH
LFs1dSDOVUGRkZZ3qIBOhawPZrr36EpmneYSdbBSZ9vuXb8uadj3TuTlp4/c
bgmyg1Zd11WxyHO6A6Xmrxr2aPMjidafFTWAaFIAcGWbp1Nxf18rvj3J/UHW
x8wa14qIcYvL5bjKXCbGdU+btWp3zFt502KrBV/P7j0/e/6Yqv7uEjg7Plo9
pMlvS0Zs7Ijp60Ko1WlZ1FObJvh6KxTWvm3gMheSXH7UWt/PivqzAaHu+rVR
S5kwugKTI/UavAIcIzCYoiWtVf8UqvHB8tN/nfwAb43PQt325aCuib836evs
cO9iU2Y019X8AVhtmTyb9wBFbdUxBd0liVz9NMgK13dXi8KKU4jVyGnZUDzu
9BNA2KrG7fb4mWdwZ+3ODspelmZdiu4DSk9raEHCiuUEUzldGLla1QbQ1aqL
CjtFMVZaNaDuzJfXN7WqEXozBhZrqe9zbQfwCnwbA+5hVVUbwXa2wPJTl+bP
HEe6diQYXXuS5f67hJop5m8+Pm61twU9zeZtPZrVLJmjcEfF2WSQ5EoEOrp+
a1rLhsXEhVrkSf8ZDibYMhTZR6vTKA61jMbG76g8w4v0dvbQXo9frzR66NY2
PWwDgHXA0hcbOOvTUqybG429K1Rkozau3290CUJf6+Ud3MegGO5sejyA2sYI
6s41pqNxkahPbLHq5lSyibfUG/3s/wNOwouw\
\>"]], 
     GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJxlWHk81d3z94infVVZkhSyJnuRmrFkzxauyJLsW7K0yB6Vkp0Qypa15HLt
IqFFyVKyt5AWUhQ9Uvn5fu/p/l6/5/f5x2vMnHNmzrzfM2fuVptjhnbMTExM
d/9iYvrP339/vZ/qmwWuDUBK8n++KlitqWHDtneEyA/hyZ5A+/Tro0C3bgcN
T/gW8PA9SP/36wL6+nFi30vsvpC/r8Az9B/vyXOTxH4YKFcH+rwmpsD+v98o
Oe8bWf8Bjk7pGR0+OQ1PHv/nGwe+CoX9UytniP0EHDTvUzDVWYpeCtd1BySi
Ie/blasnh9cS+TpE5sh13ny/AQspX3y0NPOIPSfR34aGZVuYWjS4kX5uGfTp
6pUMzfEQ+0roLy5aXFrDixr2SeHBxrVk/61kfQMENPGJKc9uw7tK3j3f5RpJ
nPxkvyYoG2+qGZ3lR0t97nFxlRbijwDZ/wGMr6PWUJ9sxx+WTfN2eo9gR2Nc
x5oCQXLeY/B1Wp5cEiCEiW6ubGnmbcR/YXJ+O+jbJ7fms4kg576LbB+lO+Dn
xFEn6ecixJ9OGLcN73aPEUXH/ZZprApdjPhfU+w7Kt6eY8RDlxMZ+9PlG+Q+
xPH93RWDmmIlxF6S6MtJvDJIz3stOV8BB7fFtbo3PiR6efyDpz/3dfPraPo6
agjMEX/pcizRSxE5E/jPzLG8U9yFZ93MJjYtLyL2CkRPJfvvw6Tb19WuWFbA
3q/Loka3qCJf570poyXNdH2QEnJ1O0U8yaT96/6CGPH8wQ9dL8/ADz3+fQz8
0O2VGPihn6/KwA89fq3/i4cgNYxOF+m9t76UgTf2XfOQLUoBwaloTfdrO3GI
ZV7v8owfdE76hxgfliNyBNEDkVNBI6ZD3MVCBXNU5uc+VOYQezWiLyL+aOKy
o/MGHFxUmNJtUuu10Sb2NLDwGdqKzfpY6znvV6zVQPzTxn6jv4uOKZcw7r+J
MuF83sOXcd90+SLRKxM5heRHHTvvSkXbPcsi9lpEX0D80cW+mWeZRuduk/wY
Ye02HdOkO3V0Pepj3+T1C3UNxfB+daD0k21ymMexttjD9xQIjGvqr9UFIl8g
ejUiJ8G8rUC/Dbc2BnTqnH1mnkns9Yg+j8RngJ2Wz/tWJN+CwfbP7EmiB4k9
FbiP7/oZ4UvBuj1fm+6E19DtGwxxZ+XoEs+omww80PF+gpH/P/yh6zUZ/KHj
RZfwJYPYGzD4RL8PI8KXIlIPjBn8ovOfgiMR8i+Ylv7BkxnhUxW5L2PkkByL
tW4qhLobssrDPoo4cSCI7UyiDwP/dDmM6HWInADmqbUqN90M0JPg+08+6Poc
cl8m6HTEuofzZwH0u0Z39+60ZNRD+v1QMNlxYFmfSgHBsxj+zJ/sPGCjz8Cr
3/pb6q99vRn4pMuhDDxW8oSNGVRGEns9oo+HSnu2hjM3DUi9SCZ4P0js06Gz
/8rDax+NcEFY+E8G2d+ErM+GNJpYRWwFBZe/yPLYuyyX3Pchsl8+vBIsd7be
bYYih6Map4WKiD/mZP9bkHsl3XlL8GHMXlj9Ius2VFL/YU2ItyDnlUCPiu68
Rbolyvy3f5US/63I+WUw9RK2aOlY471poYUT/vDNmvhTQfJnhleO1WfkzeXB
Q54TeX62Stj6m7Nr+JwXyJ0b5RQ+YIw7f9+oNdZKI/kwR/+AV/dTHfPgQJm3
aZynDWbv8z/Q8J1G8nEYaVWnfVRe5jL4Sa+PnoSfFFI/U0m+bUl9JOuZLEn9
zAVp547ixZGquGuuyVRv5jis9VjzJVvsEHacEmQ9OZlC/LdGFoUZ8WGvG7BD
KqNZ/okdpqUMqnDKljH4Wby2pnuZ3nHCT3MMS+FQjp5JJvEcIfU4h/DPAUe8
YiXHT5XCGg32oHg5Wdx2xmbV/rtakP7ffKrjTMQvodZKDxg/pNDCu8ICjx30
q5PYQPZrsEHpL4pff41mw4rbT6ReCTph/L7NkSNPqYSPf/CbROK1JfU6m/DL
mdRrKoxsldJt87FGJTH903lRV0i8dijn61Z9JDMLxnb8uHYuxBUlt/40u1NY
Qvh0BF8R/tPjsyf1Povwx53B746N6vIRdjb49bJEqrUmsW9wwGneLrEzsZnQ
Wrh95Y7BY3jCmd9nScWf94ki6RfqDL7Q670rA/9/+scfPNPrfRgDn3/6CZ1f
R0h/iCX8OkrsEwh/HEh/uE74ZovIP59TQyH3zeRE1meS8+0Z/YnOL2c0PTi/
PfhDFvHHhdGv6Pxyxa/S8+2GF3IJv9zI/vmEX+4YvX7el1+wkPh/jNHf6Pzy
QNHp3/wzzbcIvzyIv7fhV+/hS5Hex3HGvp57340SmNC+NsqZoo92U2czBlRc
oX75YX4tY1tsnd52+q1UAsmvMwaenBpxKsiA5/HCdR+uHkeqR5ms6eNiwk8D
/Kc663Rgmgvhpx0qPFa4uqU8nuTbhfTPDMJPT6RI9TjuXFsMWZM6zi/FDdHX
hGWOi9kFbjIdX71kvz32o4pivFI84acD6Z9xkDId9qNZxhHDi7aLPneLg6IL
wp3FocLIrN/BzfeuDMouV5ScYBLB/cIavuYSTxnvN+rnKNebZTVw/vXfJ89v
5sUVEpaJSy89BtNT3Gxey7ZhaobJ1BGRWrjzd5qXpjAPSsnK/lQPfc54j+1O
vZ++dqQa7p1qOZW3eiu6cV5Vyj1TB0MehRbyUdzouzHe8/pEH8QIf5VzSOXD
bPG/SmZZqiGvf/pArsYmbN9xPU+A9yX4jvzSQCd+vDica9b3oxJmh2wkmoEL
CwzlBt8rvAbuzNkgKkUIDVpXeX90oEGE2pWGWXtOrG6xEhJNeAPNPBceKy8T
RpflfI9U35TB23trdw3QOJCFs+YFO3UYOkQj3xYJcuCDULeQxPQRxnuOJ2ED
V1V+G3SsaH72vpodr8l6r5c4+hamNj/gq/MTwtvt/bm01g4QLK99qvBdGMXV
jiY56reByBcrXTtPdhz1jbQpZRmF7ea5FYrbhTDg23s7m7ZnYOV3Re5klQhG
9F4a+F5dCDUtIQmfhEVwqUpn09GKNuBfo2TyuVUIZ1dq8snxPAU23ieCL0zY
MWXnoH9Q6ChU6D/rtGAVQubHqjrSEi/AbNqCedWECJoaR/gouhaBVu5741vu
ohgi/tN19cOnEPDmUX2bP/vCez6GK2RoFFpeF5X1Sguh1NT2a0WDPcAbbJx/
UUwS70xKVVtvb4CB1DadF99247oRWnpVQit8PxC8ZU2WNH6U/sDT94QGn3mv
Lg+oXrjvIEnNn2w0xnu7KVfH4dJIIWNeiKYYnIv73gaXZRdzXV3Ljzn6TF98
HauAP39VzIo+QWyISd1ePUwDFVGxtLxeedx4y/IjV0curOsOn5/uFMNzP85z
Fp5qhclM9ri3sfLI3MktkfqwGDq62/mZqQr4bUY+J6z9PuzPNg9LMt2CF39s
cN5h+B4svme7KD+UwIzhT7ZbW19CHutXmmWtPNpkW409HX4CThFOzKF7pBbq
Q1a167MKeDT+UGSFoADaHJ7vtvN6DzKu05Rkw10od/FaRKfMK2CeVD7QvUQZ
RV79XvKr5ymosbV5UqclUXlJ7Iewu+8g/ut9oY2nVDFAI3TiLccgnBsU4jg4
rYffmB6yBVk0Q6ZYXm1vpzz6Pec4HLn2AQi/dl1vIiuPMxIrsobrCsAo5lmq
hJsC+g6yJv160wLCYSU//vpbDH/xjfUaidZCf6tdjULBQj7Vi3gvZbYz8Fma
r19z3DsbzueKrHhmvRMj1wQYPW9Mh/SEfWmiZhLo94951w/pNJBlL6vlyZHB
YwFhQY6PaPBD/4hn5hZpNBzYzvrYIhHWXBzukH4ijakG1mJGjhWgZJVkTP25
B1Ptug6a2+RAH/dLjjPH9+Aa/8jUvZ/qwKtPYEBlVAHzspLv34h/wHifVzuf
XW14uZIxrzUJbDbp6GyBRazB1u039uDWFKOVn3ha4LDKX4kB1D14QYXrwOzL
SliyO0bE4pMCDsmEZCzXfQBr4/2G8j5poZbvp/2sa2tAwKXDs+eNKKbInKlx
kngPPa6f6z+aASr6JsqxiryEVev2ZMnYaODFjW7jbqMLeLFTXG0UIo/atnXb
Hli+A66T62PCTh/AiMB95+8o9UOqxf7LXzgouKRvCX8pez30FJbO6yTvQ9yo
d//GUCNYnHH5dKISMHu91FPLjHQ49XjjIhUdZVRc3y9Y3lPDmGf8rfzUz52L
ho+Xd72b1ZTH66PPv3h6BsOLdPHqHi55NOwoUennLIEXBwTiX3XvwJGjtO4g
pmxw5+sYN5LdhWq6I6fjKIVwUyCPNhALaP/5crTeqXTGfGSYeE9bZSQPDhVd
s7lC24eXRM0mG/Py4O8b5tu/LlLBJR8W75lTqAMq1yaHiHol5F29/1KgRhbc
Giy/atyjgrqrir5sTbgDkszPVq7tUsHOef6KN44NIEHrczf9WxXvqAtWhcZX
QkTp8c5wITV0i+xIWnK0HESrCwpnrfYj8wBbsm52NfQHHnPJkVXHmu5jOWvG
abA04tOGAZok/jKd31HSEwm3y/xtNe/uxk0faZ1jVv4glBoieUdaHovf2XMm
CgSBmFjwEymtXSjG0j6W4li4wPdk1SZWKSw5NvB0CUskKCb8/dWqQBWlqDeY
Z6QaGPOGx8vdxgmm+QyZJePBGnmHu+C3WrbYfoMqlv32YLefvA6KWgmL9Bbm
JWoUd4jgBhqUcB/NTQ3VR2XdMMUs30oIErv2diOPEeo1t07tH6qFZFvjkbW7
5fDj3YFtklbv4IELb82jCE3ctMY+olSlHzLWLVdu+X0Qo49r6bDx18Oj170n
pPkP4Ph2l56SMRq8Gz3Ccs9TG7Ufyl9Q1iyFQ9Ps+W99tbHsMA9rgHYZ7N67
wvdcnA5GiSubsJmXQkZj1N5lU7K4o7f2zKqYKFgV1Kzb6CGDb8qX0b4sqYBD
I1k7PPzk0Xz5z0bjGF/gsRPeEsQJON6UuaGjNgMK1ILcK3fJoV6F2tBHgxB4
WDMWta1OBZ8tP1u12voqaKgKihU6qKHg14qqnr3XIOqc18uBE1q44bjC58Or
6mB9xT+ZP021keV0p0/w91LGvMS8Z99sbscVhnxRivPmfu8yeNpdsFLnvB4e
hSCjYe8K4NSP8h7oV8RIzlHFikPv4OXrFm/FWn08cC8bY4X7ofyz0+NgJTP8
58D05p6AO3BociqOxZKC9gbaLKpfquDGyaIqn2P6+EDQylLdrxo4pa21P7/R
x9aATtZg1VrYLlep2cVmgJyPlm1M16tizMfygfK2XZH+4P6I9fmxThlcE5or
l1mXCW8UY15n75TBby7q10xVKhnzc9UmGQP7L9fhFVNM6jbbvbhc65iRueFN
yF+R2stlo4qKh0pme71KYKWEwiaUUMW+7iM9ur/vMubJ76ebfTn/SgX2iOmK
xd3KuLT+AXNfeBJwszwJ5DDUwOT6g0bTfJkg3M/RPvnbAGdPNF76YlAFMvMn
00uZjdC46WOEgk0tcK03s1rtb4Br5k3sZXmrYXH+uhixTUbINvfZ00C2DlId
g7lcVhkgu0/Bpr3iNXDpgMQK1zd7cGxO533xlgSY3Rm1lVdwz8J8WVjCpXAT
NIROnUtUXMj3WMaQf206fB/vmqB5KuH6HLXMmohcaIjUB3UndUw/k3RJvCsF
KJuSonY9UEOdXvGrZ62SQLXqa9xTe228q1AW1p+bCL2/P9Y63dTHDxSDNxT+
hfk0NFHVolEf7QP5t0SeuAMPt77yEFQ2QhFccVfpSS10PLjJHMdkiLsthr0q
XdLA4Ny73x2yFLQ19g3/fK8Kan83iFbvMMKBerXBqrlaSPcR7lwnZInicf7d
3xTLgRaevTUmnII+dlnqNSILeIituv02l4IR65meundWMX4vwKFR4Yr1dfBt
vHfimeMetMo1WJ4UEgS5yuHToj6KGOzsFRSu5QP13VX1O8TV8Kn5heuZ+QmM
+bRPInGgvy8JrD9wLps20MbCFde8ehfmf9yWf0tOXA+D1VXNzw4ngaMpt8Re
LwOs6XPJGJHJgKyrmRnbPPTQp66pR3s2DRwXfe8wFzBC58V3m0x21oHYjoYx
zSgz/GkZ84lj4b1QfmLz7sNBFBSTMo01W1QN08qZ389O7MWYxfs8dVn84GK3
hwPVCPAG3+K3ypOe4Jn09oTLzH4MbLn/2nZhPtuZ2k75IKmFkWESIXN5cRAY
2lT6a5UOLuJbe49FOQ6GmQdbk5fpI/OF9gnjsxnAfFtcJbBaB3kC58Zy18SD
xsU+p4Mu+ng5fXaRh3EG5D+rjzmdb4QmqpI3lv+4AjIm1tolgYa4JcJdpVw2
A5JD+fcJuBgg7/NPMXVOSaAjcNB79gQFnTdxfH5rWg3rL63knnMzwYt5PKyB
h9OB5+H6DbaVZvg6a+yEYFoF8D3vGNg6Y4ZuYVpefpQKCAnuOi91xwytiivj
GsoroHViQr6AYo7845yBBT/KYXGX6YHvNyxQibKHd1c/DTICc9ZLjVsg9r4J
336WBrfKpdSEX1qjtRHrcV5TGjRGMS16d9ISOWNumR39pwxm/BK8n2lZ4yMa
91KNkDK4K6ri8N7FCpdsj94gI18GiS5Gv7P7zPBK+ZC3nGYlDBmoM89JKWNz
0LU9VGEP2Kr5OoY92Ri1Hh0Rbtx8BZ45cD4KFzJBnsWji32PZEASX2hLtr8N
rkpuq9c0LAO1Q12sK4rNMYj1lN+D4mTGvMsvdLTk2rpkOJXWVsibY4V+tsFs
D/eVQS/U96Q4quCV+KLS1+HujHnZ0c2+nicrBSraTnrvOGSKryMeYLlQAkg7
nPj4sMgGxYumCzRf0MBW1z/lhq417rN+MRrQ/7+/bxReCZb2wkRQ8m+S3LzT
DD3jONrWpsTBsm8RvEs6zXEV88o00auJjPl79+m48CzDWIa8S1bdZItpGbxO
EfjBp2eD92zHRh6ZlMGXEO2sS2lWaKOl23xYvww8Tk2JX96sibU5m1oe18SD
lGTY1nFFc8TMmrwjv2IhsTH1Q0+9NS71z5zNfkmDRf5XlArardH1/uoNnYM0
MJTZN3nqrM3C+0oyf/v9MnDjndtmF+qAXSrJk9tKqZAxeMHhmKg9hinsMG1b
vjBfRrQs3+ZqjjOUJqdNXxPhx2lOsSk+K2wZ0BmKPxkNFKUvLiftbTA0vOqN
09uF/uPCdi/nuA2qsX6vr3tcBmLJzHUvBZxwkvtSv6chFQatXlqGBllh4i+j
1beMo+F+JtMmtj5nZFm0853kTAn84KsfFqVaYbxL1rAiawywSCOXhLUDTu2O
fmHnRoVvreKSDuKuyOuTx/L3/RLYeNs6LCfYAds81Eb83KmgMfBX7OguJzTI
v9kZo0UFsxdh385tccKbqWlWssZU+FLIruwe4IDU/SLiUQ1UKOmabW+cQXwb
kWvma3wcHJbyjsVzGyDPUrlb161uQfv+/mVdT/XR5tCp9/y+dxi/tyg/di+1
KYwD+3Rp3fA5E2yLDPBm+pUAjRsPlkZnGGDpLdXPQ3MJMLDDgaameRjbLlLW
cMXEwmohsSiHIStc1W+fMS4dDeXF+3fedrXG7sgttFhKFAx4dVG1Tjpg1ofo
Sf8yKuxM0X3zqt0ZLxjFKlN/loDxZd7hpgW5WfXSs+ufF+JXT4rUbzRA6qdv
xzJZE6HuXXN/EsdB3NSX/GguMOn/zZ//5te/8fDvfPwPUrnNHA==
       "], {{
         {RGBColor[0.293416, 0.0574044, 0.529412], EdgeForm[None], 
          GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJxdkrtKA2EQhffX3N01MT6ACTaKjYjI2lgIaSyNpZWwKb28haTxAXwJe8EL
3i8IIojYKLFJEUglKhLwDP8XCBaHmZ1/5py5bHVja3VzKAiCdWFYGMI6ISNE
QlYoEMsTGxVC8h2xPH5OSOEbVyJMCbGQJm7vRTiMq4RfhMuRP8K3vT1iH4Rb
YVb4Ep7/vTvqcgN9jRC3Oa6pfWO2iNz+bAXmiug/Q22a74j+0/j2foP2lTDG
PNb/BfEzocJ8Nu+4UBaqwo7I92UPnI+FcMTUROSH1Nzj36EXonPMnk+FE+JH
zNi/Zw4/i0ZIryl00miODuwiYn+n8J+jHTL3Gf7JQN/W55yEVmQXZCtC3eZ1
vt54WmiV2MsrPHbPXuB30nD+xnavQ2GNXfXQiNlhDI/xPQnTwrvQFJYD/w9+
wGP3b6Nlmh38NnnT5FXpuSS7ja7dahd/T/ZbdlH4ESad1yryXkf/E96y82+W
8xv4/8907F9+oId7dtOfKYHL5m7gWy8t8i7trs7Xdogl8HbhzHCHJj0tkZ93
vm/rf0L+DPEub+ZbrMQeas7nJuy0Rnze+V3b3l4C/x9bn7anPyAbVD0=
             "]], 
            PolygonBox[{{274, 101, 57, 248}, {216, 41, 101, 245}, {251, 66, 
             138, 326}, {190, 12, 19, 194}, {310, 74, 83, 288}, {189, 33, 40, 
             191}, {326, 138, 74, 306}, {187, 48, 41, 211}, {308, 83, 155, 
             357}, {287, 57, 66, 291}, {194, 19, 33, 189}, {198, 40, 48, 
             227}}]}]}, 
         {RGBColor[
          0.6338385286314268, 0.6400643353970352, 0.9110949283390299], 
          EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJwtkjsvhEEYhb+h1rCR7dwj0RG30NFgUchGXGILCdYlJO4rG4VC4pZQWIVF
QiEqkcUqXBKFTuIH6IhGqRGV52Te4uQ5M987871zZkqGZ3qmc4IgaEG5kguC
IdgOV1AGPwkLUQRfB79gDfpEP+Y1V46qURWqpC4GK+A+OsanYRuK4rtgM4rj
B+ADDKFnNME4DadgJxrDN6oejqIEumechTF4ZX2q35DV5cEy5/spgtvWQ8r5
NVqbgCOoFV8Ld6zmVP1YzTI8Ryf4A+fXaF7fp6zPDFw0r97n7Fzj8A82oQL8
LjrCJ+FW4Ovjlq/6v4FPloPyWAt8hquoz9Z0w2Ln96x3PjvtMe98RsqqXzSv
/BrsLnQn64HfR9/e7c6+7QzqZ8H5e1IOyiNh/49aLppXlpt2Fp3pA4bRi87j
fH0v/IVlKN/5vvXfQ7hha7VHyva8hReWcxZ2OH/+WeffhDJ5REuML+EgPLN6
3c8rLEVvdk+a135Z83fw2v675/zdKDe9waTN63vY3mebvaOIvbl/GONgBQ==

             "]], PolygonBox[CompressedData["
1:eJwtk7mPzVEUx+8RISSCxHvDm0JmhgaNQRQSJIIgGrFGKBTPVIzdNAqFEIVI
qGyFPwARFCaW2MYeM3ZilxAjNLZY4vPN+Raf3O+7991zz/me82tatXbBmj6l
lOnQF0ZGKeNZR8EvmMjvGaytMBM9EAbAWBgHf9j/DbPQs+Ej+gM8hWewnr3t
rDtgH3oaTHUMxVoCHZwthOHoN6wNUIXL8AAaoRluwyT+M491CgxDz4+8uw3a
0J+c+xh4UTJH5foF/dU5KJfVAv3DsfXGDdes+y3wE64qL+ek3D5Dr2tUrZec
q86vwAWoeE9n55Sn93T2Gl7BY3jiOw1+45r3dPYNvsMcclxRsuYqeiO0oQ/C
ZvSgSC/kobxstz+6U4/0sOr3L/oNvTUCrhvpGtx0z9S7h/AI3tsLefLcMSqu
6bzv1OzfLTjuftZhHXornEEfgl3oU3Cy5F4nem/k2WHYH9mDRsd8CZsiaz0G
W9CjYWXJmZqLHhzZa81sS2SP1et+6P5Gute9W6R5gb/of/Cu5Gxrxivsd7Ke
hR647xrq9l/eNkMTDIGhkR7Jq3vQDcsiZ2s3LI2M0eOeq/eLI2dVNUyOrLHm
HnSV/Ib0LbXCBNjp/3fY2y7/Vz18Cwci39JMbEAvj/RKHp9An4709ggcRe/x
96iYit3t3O/AXfgP65l/yg==
             "]], 
            PolygonBox[{{208, 34, 247, 187, 188}, {277, 67, 357, 340, 341}, {
             307, 306, 310, 58, 250}, {246, 245, 274, 35, 229}, {254, 253, 
             358, 93, 259}, {222, 42, 271, 251, 252}, {273, 272, 325, 50, 
             243}, {275, 58, 288, 289, 290}, {207, 206, 204, 27, 213}}]}]}, 
         {RGBColor[
          0.8079170323808605, 0.8620996851099523, 0.8937428980756656], 
          EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJxFk0lrVEEUhV8p7lQQB1w4oCAunBCRgKgrNQQcQsDEFkUSAw6tHbWdUMRu
Ok7QamvaqBGhHWJiTJq0JCEJ/gXRhVkIkpWuXAouxIXfoQ64+Dj16lXdunXu
rRVtHU2ZGUmSnIGZ8CgkSQF9gPag72AQBjzuMY89N+DxWxhizxt0En2PjkEV
XkEX5OAG9EI3jEIf1Ly/33OKV/Zcr/eMKw5xi4qLPkQryhda4QCkva7b+yaU
C7yEJ17/wrH7fJZyG4YR5zji8556n/Zf5Lwj6Hl0Iaxl/B1+wHL4DfuYb0Qb
0Q3oOtgk+F6F1qNHoYNxBj0OOxjvQSshnlNFj8Fu5YjOdqy56C50v9ZDyfcY
tt71/YZcm0HPl+x5i+PMCdHTsr1uVl5JvNth/qU0Dv+9kDf3dW/IJzH3gnul
jnVbFQOdQpfAJ7gCh+AUdIa49yb6AV0Kn1UrvneiKfQE2gB7fV7O95p0fWrO
sdlrVGP53ORajbteVd9ffbcoRP8bQvw/4Z4o29tz7tPXjn8nxLwvh3hmvz06
Ke9UW/joO07Zh4PQLj/Yc1v9gna5L5+jbUn087Tqbd+077rHGcfIOE7KvimP
s3BVeULWes2epr1G30X/X53EHlujO7g+BY+lt+BSiD5fcA+2+2y9n0oS75D2
Ga32NOc+KLr+WfdD3nMl10rrsiH25zN0sfutxX1ds9f1fgt/YUGI72NziN+a
n5bHfNehy9D1IdZ+G7oyxPvNR2eF+A62qK9CrNMomgvRq7xy8TvVe512/J+w
0TEV+0sSe1K9qTest/wV/ni93u43z+ut/7LX85i/B53yyfmqn7fDP6gLpM8=

             "]], PolygonBox[CompressedData["
1:eJwtledvj1EUx+8xQmokQmwVYo8gCBJ771Kxd0nMqp0aVbtWgxqxZ+0VW40/
QYhIRPDCS4QgXnmBz9c5Lz55vr3P87v3jO89bZKTl72kXEppOVSAHEtpCs88
mINeDznoXNiHLoCl6HwoRD+DRehsWINuBL3Q3aAhuiV0RffUGroOdEEPhPro
yTAovu+OzjTXvaEVegGMQo+HFehy0B7dAaqa7zEw9q+H3gDLIp+N6MpQCb7y
9zf4Ad+Tr+ndLTjH30fhOrov9IEMqAL5sDZ5jsq1e8SnHEeiayhHdFtoiv7J
s3nytV9wVznwHA2LFTu0M49BsZxGn1WsUGKec+/Itwf6S+zXGN7DPdYKk/dE
vekFQ2L//ujs6MckaIN+xbMRZMKbWNO72TAXnWBw8hpXNP8mM857l7wGGRGz
Yn8Z+zWE5/AitNZ01gO+2cOzAA6b90S9kQcaoD/G/vr+NZSxVpa8B+pFHixJ
7kF5MRcWo6fBLPSE2E89n6/ewbrkPS9GL9Q36Jmw2rzmqo3W9G6l+bt+OsO8
xqq1aqBaKOaC8M8e/Tb6IY9OQveL+6AerEP/5fkHyqMrQHVzb8rj8vpluIQ+
CNfQJ6EEfQhOoU9AEXqL1sx7ot4oZ+V+FHagz0Ap+njEq5gUmzwr7z7WNzoL
9ibvwXnzmql2k2E6+mGcvxWuoMfBxOT3dyy6BTSH4TAC9pvHVhjem2m+l2qg
WpyFbeo1XEXvhuLknpa3L0Ip+iLcQD8yz0UxKJbiuK+qgWqhPbRXWXjjbXhR
npF3tquHyXM8Zt4j9UoekBfGiBQzCf0hfq87pLs5QDXhmSUPKXbzWiieA+Y1
UC20R5b5N/pWNVKt+oefhkFr854onyNwQb2DTclj3Go+czR7PsFnxRX7KYa1
5jPk/yyBefK++ezVjNWs3RX11gzaaT6Dc6OfeqcZnB/1K0J3DH9rJnQyXyuK
+6HZWNN8Vqkev2GU+V2SX4eib5p76X/P0E/gdnIPy8sdzO+OztBZ1cLvnaEW
uqu51oyujW5mnpty1P+GzbAieY1UK90heUt3Xnd/RvhxITxF3zfXWVG7x+Ze
UkyKTTVX7eU5eU93SndLd2YLepV5rzSDNYvXRH91hs5SzspdOdRV78JPilGx
ToOpqgHcgX9XC8PT
             "]], 
            PolygonBox[{{408, 407, 425, 132, 398}, {260, 259, 329, 45, 258}, {
             331, 330, 370, 76, 292}, {257, 44, 341, 254, 255}, {234, 233, 
             219, 31, 221}, {316, 315, 346, 65, 303}, {434, 433, 378, 96, 
             323}, {283, 53, 295, 293, 294}, {314, 77, 361, 315, 316}, {231, 
             230, 228, 44, 257}, {297, 73, 375, 347, 348}, {410, 143, 423, 
             407, 408}, {244, 39, 243, 230, 231}}]}]}, 
         {RGBColor[
          0.4284000960685562, 0.29210528858302975`, 0.7191484764567142], 
          EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJwtUjlLg1EQ/DZqJ7biCUIIxsKjERTFsxCCqLE0oia2JpVaaOKtiCCojQpe
YIJ4Qjr1t6QOWEp6nWGnGGa+/Xb3zdt9bclMPB0KgmASqAIyFgQz4A1wC9AJ
HQZ3AUPQA+BlYAK6A9ytOP83Kr8enFKfpHkNc/rBH8Ax9Kd5PfvEzWtYWwd+
As6gv8Ej6rMAflUte4SVHwM3STeA59VzEdwH9EK3m4O6FfwGnEIXwM2q5V1D
QAS6Glyj/IDnA8OQs+a+6eHZPI/5f/pm/MF8dvRM70lpzjWmsyLm/uhzBTym
/kXwuDRjv4H3LymP+Zz9I7AJfQWuKIe5d4qfgLeBOegc+F7eOL8txbPgS2AV
+tp8B+w/bT5H+uQ+S+r/A4zK2yC4Rzvl/ouKJ8Dr4BSwBiyZ611zT/SWN//H
OM8+V5ze/3SWQddqttzJkTzT+63OuDF/H3wnX+Z74r648xfF+Y6yqk2D9+WH
vhLyHDX3x/iO+Szo69DcBz2UtTPOhG8tp570VdBbegfvyRs9XuieB/yvnpx3
WXes6D3RA3celeaM85oJ9zylON/gP3FQXEg=
             "]], PolygonBox[CompressedData["
1:eJwtkK0KAkEQgHdEQVBsNhEsNg8sFwTx4jV/qojg9TOpxaD4A5YDMRkEX0Af
wEcyCL6B3zgbPvabnZ2d2W3M5qM055yrQh7q4lzIGkANv8EKX8IF30KCj2GD
f/xZrSkSB76+B218ADEeQR+/wtrZnTu8K5b798Q7YrUaF/CDWO8FZPgTMvwE
d3wKQ2c9JnhFbJ4mlPGv7635ltiMod/TXCr2Fr0jETsT+7iEv+DsrOdDbG/o
3x/hR7HZ9E/2+Nv31hn0b37l+yB6
             "]]}]}}, {{}, 
         TagBox[
          TooltipBox[
           {GrayLevel[0], Opacity[0.4], LineBox[CompressedData["
1:eJwVz71KwmEUwOG/UhAYrVFpEIRkUOqoJJi6OaSGW1Faa3kB0ZeWDUGDLSVk
S91A9+McNAhJuz0OD7/3cIbDu9Zs1c5DQRDUyXtE2OLXPKcj/WHImD++CdlN
dEbDzLPAIssssUKcMuvEiLLKBpnpYWbJskOSFGm2yVEgwQFfFCmxT5U9KtTY
5JQzjjnkiF0uaNHkhOnHL7nmgStuuKVNgzu69HnhiXueeWNAh1c++OSRd3r8
A35KIr4=
             "]], 
            LineBox[{417, 426, 441, 431, 428, 416, 430, 422, 429, 442, 443, 
             424, 427}]},
           "0.15`"],
          Annotation[#, 0.15, "Tooltip"]& ], 
         TagBox[
          TooltipBox[
           {GrayLevel[0], Opacity[0.4], LineBox[CompressedData["
1:eJwN0L0rxAEcBvCfDEoZdMhKyXLbJcpg9BKGq/N2ZVCXO0R5J/+Ai6Icw5nc
IKO8DudPEIkkUgolKXVlkC6f4dPzPMt3+NaNTEUnS4IgSHCunHHADvvkOGWb
NfZYZ5cMmxyzwgZpVlnkgiWGyXPCOMscEmeBOY6YYIx5ZhmilRQzZOllgEFa
6GaULabpooFGmukjSQ8d1NJPBVU0UUMnpRT9ISaredXfKVBp1xPi147Idv70
Zz554o0fHnjhljzXXHLHFTfc88gHX5S59y3Dspw2/gFcHTa2
             "]]},
           "0.1`"],
          Annotation[#, 0.1, "Tooltip"]& ], 
         TagBox[
          TooltipBox[
           {GrayLevel[0], Opacity[0.4], 
            LineBox[{399, 392, 432, 369, 368, 358, 253, 340, 357, 308, 325, 
             272, 289, 288, 310, 306, 326, 251, 271, 291, 287, 249, 248, 274, 
             245, 216, 224, 211, 187, 247, 202, 223, 200, 227, 198, 226, 196, 
             193, 191, 189, 194, 190, 192, 195, 197, 199, 201, 203, 204, 206, 
             209, 214, 218, 232, 236, 262, 239, 299, 265, 318}]},
           "0.05`"],
          Annotation[#, 0.05, "Tooltip"]& ], {}, {}}, {InsetBox["0.05`", 446],
          InsetBox["0.1`", 447], InsetBox["0.15`", 448], 
         InsetBox["0.15`", 449]}}],
      AspectRatio->1,
      Frame->True,
      FrameLabel->{
        FormBox["\"Dean\"", TraditionalForm], 
        FormBox[
        "\"\[Kappa]/\\!\\(\\*SqrtBox[\\(Re\\)]\\)\"", TraditionalForm]},
      Method->{},
      PlotLabel->FormBox[
       "\"max \\!\\(\\*SubscriptBox[\\(v\\), \\(x\\)]\\) \:043f\:0440\:0438 \
F=\\!\\(\\*FractionBox[\\(\[PartialD]p\\), \\(\[PartialD]x\\)]\\)\"", 
        TraditionalForm],
      PlotRange->{{0, 250}, All},
      PlotRangeClipping->True,
      PlotRangePadding->{Automatic, Automatic},
      ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztXH2QVNWVv/Z73dPT08OHgOi6htFIhU0pgiBq+wXjF0o0BBJAAQMi7WCU
zxGREMIKCghIixqBMMFAETTGQlgyxl2zmMR1w9YEVq2VJOMWmyrdKv/yL8uy
yqq793fuue/d13Nfv9czQzaV3anq1/Puu/d8/O6555z78fqO+e1tCx+a375o
wfyWW5fPX9q2aMGKlluWLFdF3llCiKPq8+sWgf+l+pcvR4WUEg8dX3Poy1PX
TlEW+i9D18HqUxKVbkk17Oei3Cm6KyX6t1TCd1mU6SHqc71SRXSrdq2azVz6
atRk+BGR7SwHbLorZfrOcF08KndKYlWqdAvZXRElxRpPUYZnN9rkvQj5DJeB
DJrjW2tWCKTrZJViyCdSH6hxIDy08FJLHQiohe8UGi6jaErhB2oBSSgDP3cJ
hA16w7CtMJuy6JRV5BtqQj81yRi8iDFMrWFQvf26yOou0yXDqMwPjI21zTiq
DqKyfFAmLE2teq6mA6gs26MpuGrtcxrjnuSaLVO1/0x1m00865yzvWKfwF1T
FBey/Mb0dC3dW8O58zvL2iZcdQbSHUTpVvbD9WLqOsqaA6MJm/sp2DYz22B4
K6Or4Dsd2wGWbVjNvRScz4riZoaj0RnUDG5mWLvqxOHmqusoq4VbLbZa8Wb1
rFIvSxbZi7T1UvCsQsx4ZrvKOTwAtWfS6jjqxYHmIukoc4HmpeNscCPnFlhE
Kq4BbnbbTDq2KYxtKN0VLKde05j6xe4cw70e7sVgMKXkOqiqWUpuVei5RvMw
44MrVmz787m6TB3si0JH9XD4Ic7GsqvhNvNuGqin5cjUQIxBdUXc6Ci28g0Z
iTwD2flqIIJedIU4V1lzreaJzMPWYZYSE9rjY25M80TmHHNrZTIX42sTUu+8
LtAW2hTNNoOui/pA81xHAk8n8Pw84yjz/pfq/bXw+EuSxVWW0yY0tMZw9hKf
RUme6yjLO8qaU9ZzlblUGZKynku+KhhcQcdLekYUtQv2cp9//vnffPTRR3/3
/vvvC29cV1eX8C599913A4aLcc1Yg9iwdqUHXuIz4i2nDNiIj2ika05e3XS/
vDT/jeCz6IGd8rtrDnvyscf+UTV5csvbct/+j/ERg+laFO2t2keMnPNbKtm3
/6CYpOZ47ep/afkQnsRMO0NYVimUo6svW4ur5GWN35Q3N39PLrhve4ZE9Kjo
8SfepLtGvu7p+C+5ddtxuWnzW/LpHe/Q8x88/3tSeOeuP8oXfvzfiiDqZsW+
9rlCtB6ku/bW8WL21o/5macA+K2YcdFM0bbjHVWmKIk80VQQ0of5yqe2d9H9
o6sPZeWy5fuFP+Oll14q79q1a8GePXsKn3766fVndPj1wGpCYZ58aHGHvLJw
H74NVkuWvmA6XuiyZlmpnCQ9frT3Q7n7h/8pF5aflo+s+hndg8TOfS/KjoOv
yM07npcvvHxYbnl2t2rb1vacMhvoDP0VnlRX2ZfYMme8KJVPEgzLprWK8yZt
xf9ooent+qPYtPlFceeF14ny7r1K2Iq65onHgVc76bPt+T1kr8+9cIDuD/3T
r7Py9bd/p1T41Yn35YkPPsRHXIzr+fHIDmMPace+rKPMdyCZ5SusDuLDpEY3
Tpdrv//zADqUA058w8xgWkb0lStfIlNZu3GL3H3gZVId0GVJ8iHy7fe6Sb3v
PLibTPPZ5/5Dzr93K4ExY6wQ1y4/QBq/vm2a+OqSV/E/tVFQwPrFMx1bxYqx
d4sdiloD0fTk8VOn5bGu9+juClyHxmNzsUNnn22otbiSLAimge5FNyv9bLUx
ujZs20Fq4f7IP/+L/M07vw9UP/rmv1I3QVyokSOhmmTXH/5EVmQsERDgyQ8W
XSKm/fBP9P+Jjtli9Jq3lHC480FbdP3hV6L98tlQ92YUD6hPM4/1u7V5HTnD
sY2zYOx6nDfJDRt+KddveEPueOY9dJJ84/i/0zgAoEYrvhcFkqpAz1C2bt0v
5MF/eD2QXMzaT//vmDVOtP/yQ1/3jTjxwVtGAXEbygoJGlB88KvkHtM4A3Lr
niiSwaFzlEEQ6pYsJB++gTgMS+lVZDtBx3GnKVvW8u2YpccDgNcy+ywzSknu
q6i42a6qtf5gv5iuq7DmHCYuXycOq/vDa8YFK33TOz4Mhi+x8atjYZrugz7K
52gYcqQ2itZs2ExdtW7zU1Cboade2vfKUbZAXYYhCdSUOxE3UVnW1XvC1X1+
AFmocyPTrcsePVshdUcBiTSAuMoTmI5jr+GRE4YnwN1l/dwdTdwp8DKW8WRo
/GbFj5aMFrdv+53tlAQ/o1Gu/LQ48GqHmPuV28RK9b9PJZ545dG7gGR/oAS/
Z/ocpg80ICWGKJBSocoABSUidqauGAkAFh/1/5epOE+DHZhicDtMwHgh5VjF
8VNvGitwGUGOlYQ8GIYIaehFxACMOXzDRtW30uNr49epnGvCMCFGjFxHd18b
OU4MvmAx/r/jyJEjE48dO0bZY1fXIbFi9DTxdFcXp5Pi5JGHxdViIU3vkjxJ
DKrIo4CasrcAVRXAKeDaqCpNGlgxIAiooBzyAvz/2m/+Td46ZpWcMm6t/OnP
3xAXUN2BQV08f+X1Y1QfyqOeUhCDVKycfpGYtPow6InK4htEy8zN8ontzypx
VE2F+e2XrxFrNz4i7v3qHTbmh9fMDkyKuofTJCTZE44fP47EGwm498UXXzAS
7nTTD+YYNZermnoDcJO8qrCQ4hwNaA6jABQGZwOsYiWH8CK0J3RmlJ6mzzMd
+wm96VdtlfffcojQgykhhiqEh3EwAkmEXICMDIStjEjdecV6aj77+t2+fOj2
X4gGMfl8JfklO8FB3Du6VQwf+RRRx1OzrAFMVo+daa2CepHlyLNrpKa+RSO6
luVF1rLqBDZD1yJZLhIPk3sh/YS2CIHGcxlwlYM34x9FGPuwSAVKhtT15YO3
dVLEwEidde1zujgvF916WN593U4qRrQwCZiycRBtZJ8Jokh+8MHIQYfBL9mm
PveGDnnfTS+q8aVI+323x6GxOWzMspdfvfKUKvnwOB2EHQNqAzfSVRWUPB5/
BmkFTuBqARZMGfZ4z8S9HmHqya9PeFxOumQxABHaFhsJHIB146XLyLK/dfV2
OXnsasrDYPkgm2EzByvEGvQHyMPvoO7UKzfJmdc8I+e37pflm39G7Ir9YJ+X
Jdlnk22f9EGswlQHNok5gZov0PRQJbrCRgwq4y7DkQN5O9SHa4VqsMgHJh81
yAElaKuMVcVbXWbMC2UZRnPhTT+lwQ5SyK0NStOufJJoqFGubFvVHdBnGxqd
BE6uBziTiu2YW3o8HcW0E44sxEHPYcykQJdlaQgqKyLM8EFY8BkEjF41tujO
AAMAYEZ6fOsyAMNAKACUsagnqAMA8VFt7qhfoYnFFZj0G4UQPmGzYTKQI3sF
+koMsn8ooBgXWS7Vx6SDvgs7W+lICVQjXX1yOxhV6jPok08+6bus7e0/IU+o
IT5B00j4N4w7+D7IC9Ag77cn/VgMYjghMPTBGFSd1Yymd/ZZGkyDeWofJLvg
ACgoKjE0sGtIgLsBXIbuB1wKaVWm2n69z+IgmiCBCdNHj2IshpzdU9xzdNfM
ZXBEiMFqlKs0KIU45Gwz7GxZELM2R+sOSukcC4GhoXqDWA1mhiYvgKEMQr2p
vdbfLBRhNQI62PrDQwFmm7WxVIWNKusd6+uLS+AlDWusLCBs2KxtrQcxawxe
tkHN+hv1s7626UFkZYY1lgHMRNGztEbIAtOBVq9jKCPdHZLAehiH9Fr7M+qZ
Rw+zkdMYkgiEcZilDUyDvY0BCV4SwdAeGsY0kGKSpCnWbOMDZsyBiERcbVdj
cEW4R9i2Rw7cDaTFVGtoSmldaZRZ4+txEsEL8TQyiozDA5lgBH94y2Ur4XEC
IWGHGBrIS0Ih067mZwNhws3+lCjaPinj8EkmoiBpxYBRdQXND6b3DsVckCGE
m5W8IR0nqu2xgsGLeQlGC6QrWCMIQURFf3EO6n2zd3YZ7iX03LD2UsiKBW9M
OI2sPDXgZErLiqTShJfhCbK6VpzDrCqyJ+zHiGeybYiHBLJCa+RRe6RZHMdj
xGrAi4mHsl+S8FtJrrA2W6ADtll2wtAeqCAHUz1nUio1WSKHA+dyXh/ZoiOQ
aSBNzjFbdAYiATRWxpKhOZRHLOGl4fiJ7Yz08TUbMAS0YKhCiMoHddqB3BPp
GoY3PlgcPD8NhxqK2Xy+Aloz+0YLc0v4x3S08jVpqT4mMrPqJ4ONJUTqushk
e5AZX7hH9Qw21nT8OmHv7Nz1Z6Zn2YkPSlq5ykkMrZEgcHf9OBkyZOMHXu4n
MqTO7L8UMrSQOqd+MuMaZ9NaQh/J8F6OIXMRyMytp6tdBOZUB/WU3C9E43v6
rEQSmbyJe50qDwuPzlMMHJ6ORQtYfDueRYOVGpTK5ciJ8EZ61lAzqQ3WEa2j
716MaNiJwYJJStGM9vZSjckIjNiubCFbh0hY0UIsZJFGQKR5SWh5kUSqYCFY
nVzZq6zmAHqG5wAhmtVzAD8QiydoSWIlHyzx6Z6eaVQoL9HEshEkcCAAi/Zf
Cnja46NgqFkvDyiyyavvnj5OzV3ixzh2bJCZRBjLa7y/I/4W1/nJVmzjbM7g
GzOqvULISVtK2ay9b5063BsvW5Yh41HUhlOTincxgCUcXCYX72m5UXGw+hju
53iRzenBnERikoP5gc7wcPXM7hROqogaaPoWmt3dcszJkydPjRo1auqhQ4fE
+SnEsef2g1gcLGxhMf+p7V0q89OhW00hAtaJnevPOnjw4MkxY8ZAlHl79+49
L4UkvIZNMgywNj6RRWPJVnmjPKouiOeunaCPXbpjEydOPN3S0gLuw1NwNxsW
tIHLOGADAcmdSjj0Oab7Eq161KlTp5ZuV39Lly7FZ/Jrr72mT7hlrImuYe5a
ajPb4dip5EM/ao5WmzkbAZiB6fNtbW0QouX06dM1jcBzDBGzIYzMG9Bv2vyW
kknVWxjPn1xnBmyFh67Pf/bZZ/TkghTMMbXhDU5O+/VyPJJFIF9Mw1x4e+fN
mxc8GpGCL28B8DpruLSEaYayRc233P98rW1yYdYQMcXBviRGWXM/8b2x+VF9
8M2xWGF20IEzOhnLm2oEEOv7+581tqjAxjrdQj4Qdo8uHpiKr2/xpbUu16LS
OdVjzciS5f10dDvGFXZzaFdH+WOlOonQVp8IZQQM4hRkeoEIMYg0MCLmaB/u
BqVi3VStPf+vgmg5zLkMFC6Xh3Nz7e0/UTN0xW9REr/GeH7WS4cux84L1yn5
FCw+li4qqlZMBqRT3HP7zKopYrgyjObWmxxhtuyC0PA7F/weqG+gmIShprX2
hYF5B8R+fVLnSeaQtVuZ4eD1nTrBs+2is8KrkeHWbS3w0vGrpRsSQrZDlXnV
0u0c8Hqw7x6tTnqrNm7cGDzS70Klfx8kLrE1y+PDIMND8TKkPr1svfgKG3Fl
r/Xy7P1JfUXXWgYWQwKG9Z7KDzdEZPAyeC3VhoLT4r6pFpliCfs9xSjPa5oe
wJaW1m5J77rQzINsPV3mwsuKibxcC+Q5i4cpc+ljeJwNHkvjebgWB/ujLb0m
sSyhre1fIw2XVptXLVYUpZf3TszetOUVPZ0brTiTbWmlRVyh24qRvjYD88bJ
ljnjzdHUSe0fBy+o5HBtTyLdYMQSUwoT1DzlRhLLvNPBGbG6pxda0tPVPZoV
k/IjxLCc1hUvjSiZA6Jb5swFEz7Ba4j27O1QxCtyoge1jHntZOt6MZLfuyER
H05SPTiHxFLS2f2ArqaHP4vmyiSahSo4p+C8joFTvy4zZ73Ysv/jhlTkIvub
YnTY8RnzIk4g5Xgxbe079IqJp09G06FXQzXRDqLmyYcFOSXXSyIw2cnNj+lh
+kh99G4f8DgdRDYzLCTXmNJe17RYH9dflcaezHGPyxvvojkaLB1rEpi8tBZX
ZtMQitkpAgkcDcDyulJer+I9mkTLddLSoyz+huIyFrZ+OgVcVyeFg2JCtmIt
3eky16tPSazqfc3KRLzYd+y+m8yrZhQPTgBUb1n3jpcrSwlWMRlfPA/Xd/MB
ZVfWkyh7cHjFzkCishOHNX3sE2vJ0+jo4tWA6/eSTM21Ne9eHe4ND9cQoGGz
9gy0oU6jmt+vj3q2F23Is607823II//9mW9DDu6xNAh7aWoqXatc8fr+bxHV
YMOZqk53/VydkHw8Fc3gketV7f4uq8H+/38g4P+evrY52D+yEf0NDm3yhepf
DtNUgjdk9L6hijJf1q2e4FY61pSsRSyrNRa5ShR3L7Z5ZYOfgqNaHC3NHnLw
83Dqjpltoi/rF8uEiP5qGW3qdzKTJ7k2iVMJQy0x1P8gxOvfdBELWSRX0PwS
PfOrf0JulG4507TsCZJ5iU3YqcUU3WyW9YjRMW8OuapfQ19DIytc9i8XdBqh
IXP4QJRK1jc0Nzpo3TwHR9/RA3419Db78Nf29DS3UcT8FEykScaFONcr2UoP
ET0T556WFmaKlvUFWVbYpsfBxSgQbEOW0tXsq/+v/sVHcx9agQtcO7GNvoim
/7zgGq5ujrZROTsVKuFPFlaNyc4KmUTJbAExIABDg2a6xzFkzCHUBGDsEzP5
yCFrPKvQfcXUc+FS6oW+MryPeLBQ+qw9Xo334PX3xn5QDM+0E7UUq57JaHY8
3rHhjM12fESerh5OIQQefIQGohTYY6hgyNkMxBCYUDIbLCOl3nkwaERcMXvM
xpr2b41a0y7caYpFrYcjYT8VjCFNw08y/yFB/zk9XxAVrN9grZK6XNHShlPA
hshibWA2kYM1XkRy7e98ywUqHp1lXZyPrKEboLpD06xlGuHvhUV+xnSkxuAR
x2g523bl3COR6rkoIwa7XOk2p5ycPxrqWwqTCByMHw7YhZCaXrPPeulTHcXa
I9Yc1goNhcOyzhSanJlC4HKDQazn89xUZwuF+GyhbO4JL27lyhpMH1gWE+ER
lxlwZiXO+h8zlMoy\
\>"]]},
    {
     GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJxlV3k8lesT117UT9JGSimRpK7KciwzHHv2iCwn+5atomwh0qqSFvt+LIlw
7FFZDmXrWsqScpGkUolQquvXvee55496/zmf8c7M88x8v9+Z1yYbD0P7uRwc
HJJzODj++bUd1zOyODEJLc3/PKPA8e8zRn77QeMofA5sGIHd/z4d5O8rsef9
gzrhpGZ4pqtX0PftfzhSvfSFpng1WE/N9OW/345y6h1B4RUdMGp3vtP96nZ0
UqUlLKB0wPcPts67n4phtZJX97RU+2+2vkNM0y1eMeRTvMD7dncb7Dd/RjHV
3obHKMm6z3e1/mb7OXPFFASK4k03V94E88ewo+Za2/JsEdRwiD5/yrj5N3t0
BaOC0bIVZ2jMWXu9RricLtWeOyKMt03GvLU0H0HRKLNi+OsWpOkLjEpQ60m9
W5BbU8OGV4H5mx3I3Cyu/FWI3L8Gsj5HxZ14uYncr4r0ZwPJXwa9eTmLCis2
kvtUQhWnIEe9hgDJV0Tq4yPx+eR+q0h8FsnPQ94nE/8lxI4g/ZdD/oo9i768
biL9peALoWtN7jUNxF8WB0wc2kpf1ZP+SONQuGwXxxImOW8vG09WvXsI3pW/
2az7/EHylZB6JUh8ATTIyGeqjKvgjM+tgoUN9aAwwXllWFAFN7fXjhstriP9
U8bcieHEFYwaSG2TSAh/oITSqzj3tZpXwfbvWZYh7oihbmYf1nH9d74iRucn
q0XRSn+zv5F6WfkYsMX/2/zX8tIkPof0Zx/hZy3pjxYbP1Z/NNn4sfqjzsaL
1R9VNp6s81XY+P1qs/qjxMaT1R9FNp4/eiwuXvYywCmHBwKKGdVg6d23Cev0
sfLobECeVhWIjEdouifpYd/8Wb1LU5VQxviy4MZ1HcQts+kVJuUwrstU67HZ
h+nU2W9vyorJ+ZrIaTtrsJaf8Zvd/ulkiLGFGsmXAxpX2yQOW1JJfDrBywj9
FbaFRQpUEbyMsFJI2zT6/j2ClyEyTT64nPW8S/AywMbwiJPHhUoJXvrYXi0Z
Yf+kkJyvi8+mnqQanckn+GiR+GyCjzrxT4MbUetqZzxMcVmnhbHs03sgcET6
e7ifCd6Tm2DeP18BI9xBu1uEDmDWWp48T78yeK1pXfq4yAivTUrECB0uhhet
H9dEb9+Pge3aoU/MSf3BBthOe/psacwdEB7V1OfR1SPxWTBrJ9xrI7CP+KcS
fpgT/VQQfpgR/ZQTfhxk853FDxOinyLCD2M2/1n1GxG95Pxms/hhQPJlEH7o
kvgU6HWN6OzZSWPz7V7GXuWX3hb4QSeY1/9mMRyl1L8zTDLDXSrLC26/ZAD6
nQyvTTfFo4RvrPoPoLO1VTff92w2nqz4dDCPr6TmuhkQ/2TCPyvk6krzVOAs
hfG/QFBL2wprJ0UtrtQUEz4ewoCVd9QH/Iqgm6o7a5lIwz3/7odCwk9LfGdQ
tiHsXQFkRiW6CJ6yQPrPbF1p+YSv5vjPW4OyO7/Z/SIlLlYyZij287RJ0f/6
dRBjY/55bkFCsXhpZKkJuV8m4fMBch86tPdGNSS9NSLnpxB+7yf5E6HMgbfK
P9eA5Ith64f1/jJbH6x8p0m9QGwv0CnyMr121Abpiid1qqaLoWHD8awAO2ts
+puv4+WZQgi6sSrinYoVfrpfYrpodQHQN3PN+ShIw51/Z1Qaa+WCw9iYNzPa
lPinEXzM8WRg/8N4pyyQOjPMt03HmPgnELzsyLwsJvqzYc83lv6sybzMJ/qz
Ys87Vv9oZD5mEv2ZkfhUoj8T4h8POyRT6mRb7DEh9gWVb28RMJdpZO+g2GJS
qWkvp0cenHZopixrscY2H5EFJz5ls/KjFc6nTEm8PJYBEe87LVJ5LFH6G9NU
byoFeDyXj9HFDxL/WKJnRxw6FvnHqE8h0a8dfqI9nDbUukP0a4thsWuVI6Zu
kf5YI3+nc3hLajrR7yHM46no5NRLIfo1J/4xsDS/RbJfxBmvK66/PPQnAzjP
+DE9djpgTknFWVtqLkjJ8U4KXbBDj/0B93atIvmrbHD3mPzEj2E6m/9T4T9E
m8qSYfQgpX7jUkviH0PmgQvZFwyif0eyH3KI/u3Z853VfzuyD+hE79bs/c3S
+3/6jobX3GZ5MuqOqCSu75t1JZP01x6l/NzuWqemwfgxg1V5c2zRJGLV9F6X
JBjaJKn72NuK+EcR/TthP5knrP45YESiWE/tyjQ2n041vqhOOptI9G9N/G9C
zFCys+58F5y4tCveSpPEVzni5MYOcf/IVDh7lLl4g6I9fnR857e9NAHaVqvL
htvbEP+bRE+H2fuEVb8z2T+pRF8OZP/EE33aEv8bsK/89Wa7aldsmhTyfSVJ
4tEFg06MDzlnp7D5Yz8emvKcGg8PuCy2aBnbEf8bRG/uSGmmxAmW0En9h7HX
aGGOh3IK0Z8Tfrmb5huUEEf0Zk/8r8OPSxJ9voEe2ItU+etKdCjwyP74rcQZ
/Q7M/8Y/Nw5yOY5wL1Z1IO+vEz25kH0WS/TkSPbZNfjA3TF8t3srDstt5Pxi
1gtjx9b4TOYtwoEFXy6ug2fwp0TKj8FsQP2816GaXF2Q/DqwXFRNGO+sGHRc
dOo1yGc5ZNa58aBDiEUA8+1T4DW/qryrdxuq2gzylDzuAKm3j1XEJhRxzXCV
mLdMIzzp9NtLbVqEomGziTmuFSDo9DSLY2w++jGzRe6nV0O3dqtUbMIWdD8s
2srwfAWec6/9cCoSwb4lajuFdvaAQKrMTHqiGH5ylekaf98GSo+igo+pSOAj
OXWuqvV/gqnu9awDx8Vx/aj7ANeSNrgUOi1ksVAcbc7Noz6htEGIZnjm2a9i
uHfuItdN99og8USqQvRpPtzgU901yKgHZjR93MxjLSa9y1F7Ol0Hy3N9RvqW
rsVds2HSltdqYR6P4Y3LzWsxfZnRxjncRXDdX4FTXHgtcoh3xDCSc2FG50GA
2A4OTOO+orXFvhbwiuWICJcSLi1vWBbx/jkEn6YIv6zeihs+yLX1O44AU8em
J1YB8Jkv/9vjzx+Bkc1ZFXtZxOnmxq3uc+vgnDWvCk/XGlztuy/kSF0WDAV3
C+2+thuDdYSNJXwqoP1cHeeaZasRfCIqa1+nwMi3sk/aF1bgyp25/brHb4II
1za7pr17Uf5Baq+SWCnsmravfjSoi1wbx9Yz1rdA33o3PdVQZaRTV3OGrekH
+RVt3ouuiKJKUH54wusRwFken458bewY4h5+S62F1X85mGwZVkSX8L4ZvrZG
iP+eRp25KI2eyuJnOBoYEOC1YlmIoTRK7nv35NCOQvjfe9/lBbJKGHHBWsj1
+X0YEra72NoqhTOq5Zbnf+5nq2c8yz7eoiL3ud485c2lsEDaX2RAWwZ9VSSj
9j++A4snkz885l6Bp7trXqkOREL1undpVxv1Mfjk3oCdXO1wy25rwCi/CjK6
v5p92zAA2urPqjtDxDBtvHuaJvMGNknwChqVaOO9g7H9Fok1wCu/bkzTURkF
mmQK9+FdGHES/SbboIRLLKaXV1Er4cxB2T193jqoGvNCWJ92F0xaJpMKtlPR
X9ZNWGpxGfCZTouIbgWUGOVYOPomERw+enVXNiBSOkzu2eteAYFQ28dfRwFb
Q79uMVFOguVh5QJDogoo5eTW7+1DhwtV9hvP7TLE4sopapPXE1hJ3W+UW62K
ToaBN42eDoDZStekbefF0UttzkWq5xv4XDd2RKZUG1/dzdl/OKgWLq4bb2as
U8M9BpWPvB1zIeiNbe/z+1RklJTwaPjnw/HmprsFUTrIvHn2gdHqcpCfulr1
IUkFA7ptPao35AG/UatDLQ2xJnOdt6TYDVC59rbh70IzdPx0VGZ4phy++Fwc
Xpyji2ds1lI+5xTDQMUmZqq7AX5eKCOhVp8JzkFOayINDLBM98bdDZZZMJh6
5JSolx52q7gqhPMUwY+hucrxkTp4yY9bylmlHHKHVWK2rVbH1DBv2QatFPb3
i0GLbdAD9QwoHsjiVo8zQAl6TnWTRh4cLmZEmi3Wxwa6pVToYB6U0zjpUk56
uLbrT/rpVSXAfbzE5uQmfXzTZtj1npIP3ttObCn6YYZmkm5crq6VADaRAm9+
1sM9+nBXUWgxcEWEUgpzf35PtEVF1/iUg0SIraJ8oQH6yH+WqPfKhEG5EY+J
aAO8MFunkviUDoPNhkZXRQ3QC1MeLgnPgDtaFNXyIz//f3gpJHLkUBociLw/
UfbQDAvEQqO9q8tAg5d73/ZSGq4MZKZ0BqWwv8e9H14/fbiwDNy51nv6x5rj
92r/nJAfeRAo4Bkg0WWGPc6tnDtky6Gn+ciSw0fMMWXPRf7WiNvwOfXMRY7z
hnimaXmZiG8s1KQZ3wtu/NmfBWM3TSmpIPCXzi2ho4aofccwzvRDHES+4kwO
uq2Fn45m2JYpX4Kz3QszZIwAd4rOE63hiwEN8wftaoLKOPqEFl9e5A9Z6Z2R
fF9XYWGlHN336mWIs/XofpVjjiul10fsmLwFdw7ZX52imaOZjmLXyL1cCJza
+OX0IA2fiMxLW0pNA7u3c1IccyxQkCtHMKo9G2IiR/i1jC1xTGChbfDiW9C9
v2PP1HJLXHfhFqVDOwWM618y62864YMRCXqUTCaUMHwVPosdwibNQX3VPYmg
c2ZiU1SEJZ68KzGq4JoKVQtl553MpGErt87ticdJsGZxroNZvhOeMy00DF+b
BQm2GY3WP/PJPTXWHynLBEbc3yMealZY6LWHU6gwCopyHxXYZjvhNrkdSxoz
MuDskiVh8cbOGHdTLOaKTAHo6UpnCZe64NxXUQ1hkgXwUaEz7s8/XHDK5kl7
TG0q7Igt4j8b74TrM+khe8sz4PvFSDuNn98rQX3mojeuZMDpgTfT11udkTGO
NJpzMkhG8fJs7XHF3eaWWZ5i6eDjKNUn7OmGPcHN93m3pv12n1/r/xXPX/Xy
67z/dV/+H+fmvEY=
       "], {{
         {RGBColor[0.293416, 0.0574044, 0.529412], EdgeForm[None], 
          GraphicsGroupBox[
           PolygonBox[{{295, 162, 298}, {297, 158, 296}, {298, 162, 293}, {
            293, 162, 294}, {294, 162, 295}, {296, 158, 285}, {290, 158, 
            289}, {292, 158, 297}, {300, 174, 299}, {285, 158, 290}, {289, 
            158, 292}}]]}, 
         {RGBColor[
          0.6830514675129722, 0.7191358345337846, 0.9122168317676058], 
          EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJxFkrlOAlEUhmcUG2O01NioryQlVgOilTaABVvCYmSJLFEgqBHCoiITIaKv
Zut/Mp+x+HLmnnvW/86Rd3l8seY4TlSsi6yoiZJYiW/xLAriQSzFQsy5M9vn
+0N8iZl4F5+cfTEWFfKtboe4KXlTYu17w3WcsOwPta3HjXgSZVEXVyIi8sIT
bZGEGntk2SMhHkVLTPAniM1R16N2SsREmpiMOHSDPgdukG/+nthizpDsSPae
WUfYBfM/o4/N8Caq7HvHzku0NY1e0O1WDESXnDE6LvEV8a+o/yq2mcfm6vBm
S/pOiH8lvkGvBf1Mz1M0HRDrs+eQ/DZaDanR513GzF/h3b/YrYmOPjoWOZvm
UfTeZGZ78yQ9hrxBhJnSzOTTb47WXfxp9umgx45qncvuucG/kKRmkxnTfPuc
G2jVoX7D+f/nK+y2Qju7a6FpBl3snKBukblqaFeiRoH7MrvV0TKHb4ZmU3rc
kJOhdgttPPLe6GX/UggNTcsT2TNxzYxVanjokED7FH0zxBS5KzF3hDjLs5px
fDHexObfd4Neu24QmyM+Ts41OXbOU++vRhRrcxwz8wlE8J1jw7xfD11/AatA
nNw=
             "]], PolygonBox[CompressedData["
1:eJwtkLkOQVEURe9BJ+jM8zx9zfMHEkNFqdSJQlSUKoWERiK+TWvtnFesZOXe
k73vua35NtokQgh5SMEPZhBB0kLowA0/QR3vwRn/wBgfwh1/wwgfwAu/QB8v
wCrOy5jPaPYBXbwV5x2hjTdgjy+hgtfgGrxDXZrRrM50pzfpbQsomXeoaw05
8w51qUNdylT2Aar4BJ74F6bmGcraQdp8R+2qnbSbznSnNzbNM5SlHct40bxb
f5g1/4NL3K+/+wPd8x8n
             "]]}]}, 
         {RGBColor[
          0.7408770583033552, 0.8120454687921519, 0.9135350771323727], 
          EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJxNkjFOw0AQRb2hAISAEgIogDhFgMoOFDgBCYVELggWpW3s1qQKVSqqVFyM
M9AiIYEEBX+0L5KLp1l7Z/78Gfv4sbotW0EQRGJFvIgH8SSuRChiouUMxKfo
indy7b4vLsWpOON5WXchetRco2PPX+Jc/AnnfN0Pfe9EIUo0rG/L+R6B8zVW
+yFyaib4tt4jYsh5ilaFhwofEb7Mzy/ezcuAu1SMiRH7KZhtDT/mK2loJ8Qe
syecV5V3o7juvF/zPbS98/zNnCleS3yH9I0b+y7YUUTfMXld3s3EXLyym5j8
Z94txJbz513FtnjTueN8jz67rOk9J9b03nReawfvBXcddE4UM3zcM2uNzr7z
/Q+dn2+E9200TXuPnAPnd5RTW7GXlLsFelXjW2Xkzphh+f2P8LbhvJe88c9M
mW9IbUae5bfJn7DLf9Y2SXE=
             "]], PolygonBox[CompressedData["
1:eJwtkL0OAVEQheeK/4i/hmjwGJZKQqGRyDYKjVJha6p9AZXKi0m0kk1UEomE
peCb3Cm+zLl35845s/11tNhmRKQFWeg6kSP1BD30mTqAMVzhZ+c5FPieUIcQ
wAUq3MXUA1TRbef1DmroMmzQK/VzfqbOnsEd3jZvBE8QeqZ299Wczs/SjB10
EyL0EhrokvPZNGMKOc6heE/1Vk/1ji1rHibWr7t9bBf1LDo/U2drj/bWYS/e
U71TexvY25tl17yJ/ZPAeh7wsl1Dy/YHdlclXw==
             "]]}]}, 
         {RGBColor[
          0.7950257891075037, 0.8578007989776291, 0.8995181635098658], 
          EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJxNkDkOwkAQBNcgcWTAD4g4InwQYpFhMkxIBg/geB6/IDWSQ64QARJHAL1y
ITkoTe+qt2d2movVdFkwxnREUTxEX9xEJEKxQbvCEzE6Qg84j/GG+EI8FceY
ueqb7JZoi7sYiac4ia5IybFvffB4szZZzow+PXof0Ge8Lv4IX0xd8/ZFTtXJ
5gnwB/T76yHnPXfbXNaAOX18Lnd2ji+9Sk725zk9/dxuPmIijDwX9n8UCRn2
Tw0ny6mp1tH2LmVXO3HFn9DPeqy3jP4yW48/bNiB3fsP9e8wbA==
             "]], PolygonBox[CompressedData["
1:eJwtz7sOAVEQxvE5IkHNC6jsqhSr14lOlDoewOXxFB5BqEg0EhKXhsQlkbDi
P9mv+GVOzs6cb7Y6HPdGOTOrII9SMBtQJyhwTqkdtPDDETHqOMHo6VL6yHEO
ITv73QdfTNHGUz3+3TOKnDfUNfY4KMOzEtzx1qzP+NtzaoQatlhpF99piTMa
yvTsB5qa2enNRHcvlEPW6/+YqifSexft5LtdccNM2Z6xUGasGd/tD5QKKqU=

             "]], PolygonBox[{{205, 48, 241, 214, 215}}]}]}, 
         {RGBColor[
          0.8469570943218375, 0.8751185055079795, 0.8762529853111813], 
          EdgeForm[None], 
          GraphicsGroupBox[{
            PolygonBox[{{195, 6, 196}, {218, 30, 189}, {213, 35, 210}, {254, 
             114, 253}, {30, 31, 46}, {32, 31, 6}, {34, 33, 6}, {33, 32, 6}, {
             32, 46, 31}, {223, 65, 243}, {245, 114, 242}, {242, 114, 254}, {
             35, 34, 6}, {30, 6, 31}, {189, 30, 207}, {43, 44, 56}, {207, 30, 
             208}, {44, 30, 46}, {198, 8, 194}, {194, 8, 188}, {233, 65, 
             223}, {43, 30, 44}, {237, 46, 224}, {231, 55, 230}, {253, 114, 
             275}}], PolygonBox[CompressedData["
1:eJwt0MsKQVEUxvF9JMcDUEY6hyGZMvUKHsEDUF5OZEAuMycpUS4pIrcoMfZf
+Qa/zm7vfb619grrzVoj5pzLII4xfCQxQRsJZNHHGgFCbLBDDnksMNfa/hni
jgIqSHnOffmWtXdXRqgMy4owxRIrHHHAEy/01Jv1OBBf9azXLjrKiJSxVIZl
nVS/igtuWtue9XZFESU8sNc60Nvfut/CBzPNxt6zRdr7n1WVPVJvvma71V2r
d9ZMKqpptX92tTUc
             "]], PolygonBox[{{192, 30, 218, 185, 186}}]}]}, 
         {RGBColor[0.8988883995361713, 0.89243621203833, 0.8529878071124968], 
          EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJxNkMFKw0AURTPJTklIG8dEd13YbRf+ST+hH6CLfpyipVTauKhQ0CoIhtJF
Vkahq6y9D0+giwP33ffmzpsZTG7HN2EQBNciEl44cS4uxFDkosCz3q+Yim+x
EyNRMX/JmQdmF6LEW4l39BZMv4qGTO/+c02fSf+gW2rT5i3FlXgTNXd9cp/p
O/HBbrbjAb9mzvQGHPuOyLSdvqj3vD3Hr/Ct/8J71+KenDlznv96xLd+iu6J
PjqjdngZ2pOT0u/OmPfEzEyE6Ij7CmZO8WP+wnEuIXMIMV7MTIJ/QkbL/zfU
8dHZbt9n6pK62z0hMyXPkfEHXfk0dA==
             "]], 
            PolygonBox[{{194, 10, 38, 198}, {188, 1, 10, 194}, {201, 25, 23, 
             200}, {225, 47, 38, 212}, {202, 26, 25, 201}, {190, 1, 2, 191}, {
             196, 38, 37, 195}, {278, 115, 47, 225}, {224, 47, 115, 237}, {
             200, 23, 24, 199}, {199, 24, 1, 187}, {209, 38, 26, 203}, {191, 
             2, 3, 204}, {210, 37, 47, 213}}]}]}, 
         {RGBColor[0.941176, 0.906538, 0.834043], EdgeForm[None], 
          GraphicsGroupBox[{
            PolygonBox[{{201, 4, 202}, {27, 4, 28}, {187, 4, 199}, {203, 27, 
             209}, {212, 29, 225}, {200, 4, 201}, {4, 5, 28}, {204, 29, 
             191}, {29, 28, 5}, {225, 29, 278}, {191, 29, 190}, {199, 4, 
             200}}], PolygonBox[{{190, 29, 5, 184}, {211, 28, 29, 212}, {184, 
             5, 4, 187}, {202, 4, 27, 203}, {209, 27, 28, 211}}]}]}}, {{}, 
         TagBox[
          TooltipBox[
           {GrayLevel[0], Opacity[0.4], 
            LineBox[{204, 191, 190, 184, 187, 199, 200, 201, 202, 203, 209, 
             211, 212, 225, 278}]},
           "1"],
          Annotation[#, 1, "Tooltip"]& ], 
         TagBox[
          TooltipBox[
           {GrayLevel[0], Opacity[0.4], 
            LineBox[{277, 235, 246, 236, 276, 234, 237, 224, 219, 220, 222, 
             213, 210, 195, 196, 197, 198, 194, 188, 193, 183, 192, 186, 206, 
             216, 228, 240}]},
           "0.9`"],
          Annotation[#, 0.9, "Tooltip"]& ], 
         TagBox[
          TooltipBox[
           {GrayLevel[0], Opacity[0.4], 
            LineBox[{275, 253, 254, 242, 245, 243, 223, 233, 230, 231, 221, 
             208, 207, 189, 218, 185, 205, 215, 227, 239}]},
           "0.8`"],
          Annotation[#, 0.8, "Tooltip"]& ], 
         TagBox[
          TooltipBox[
           {GrayLevel[0], Opacity[0.4], 
            LineBox[{238, 226, 214, 241, 217, 229, 232, 252, 244, 248, 257, 
             251, 256, 258, 264, 250, 249, 265, 263, 255, 262, 273, 274, 
             272}]},
           "0.7`"],
          Annotation[#, 0.7, "Tooltip"]& ], 
         TagBox[
          TooltipBox[
           {GrayLevel[0], Opacity[0.4], 
            LineBox[{259, 247, 261, 266, 260, 268, 270, 280, 271, 269, 279, 
             282, 284, 283, 287, 288, 267, 281, 286, 291}]},
           "0.6`"],
          Annotation[#, 0.6, "Tooltip"]& ], 
         TagBox[
          TooltipBox[
           {GrayLevel[0], Opacity[0.4], LineBox[{300, 299}], 
            LineBox[{289, 290, 285, 296, 297, 292, 289}], 
            LineBox[{294, 293, 298, 295, 294}]},
           "0.5`"],
          Annotation[#, 0.5, "Tooltip"]& ], {}, {}}, {InsetBox["0.5`", 301], 
         InsetBox["0.6`", 302], InsetBox["0.7`", 303], InsetBox["0.8`", 304], 
         InsetBox["0.9`", 305], InsetBox["1", 306]}}],
      AspectRatio->1,
      Frame->True,
      FrameLabel->{
        FormBox["\"Dean\"", TraditionalForm], 
        FormBox[
        "\"\[Kappa]/\\!\\(\\*SqrtBox[\\(Re\\)]\\)\"", TraditionalForm]},
      Method->{},
      PlotLabel->FormBox[
       "\"max \\!\\(\\*SubscriptBox[\\(v\\), \\(y\\)]\\) \:043f\:0440\:0438 \
F=\[Epsilon]r\"", TraditionalForm],
      PlotRange->{{0, 250}, All},
      PlotRangeClipping->True,
      PlotRangePadding->{Automatic, Automatic},
      ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztXAlsVVUaPr772r62lIKI60wGHbcZosHKJGPjGMcx7k7cBrCAAy7P4rgA
giIwbEUrFOlDKmApFtpisUJrWV4B6UCZspcUMYXKC6FEpxkSJk5MjDExOXP+
/yz33Nfz7vLAJTPTpPe9e8+95/v/7/zn//+z3Pfg+CnFz7wwfsqEp8YPuXvy
+InFE556echdL01ml6wLCCGb2f+OIQS+U/ZVHDYTSikUGj7G4IfFjnESJfwv
hMeB7L+QxBIU79DLSTROErFC/FpYCJ9REsVCuF/cVxgjCfbcHRxmLH5k82pE
EVYbjyqYRCyKnyFxLxRF4xShCmMJQhMxUsigoRSuQdkf9OotR/UhcQ2qgcfh
k2uWo6SLC5VSVO9Zez7nAfngwlMutRKQCx8nnC6pqE/h87mAKJSkXzQJCKta
Q8LGBEyUxGlS9Vmu1D/kZQyWwxgecjGodD+u0ppLNslgvBZWxia0DRluHYDX
Iuoa0TTV7jM92h+vZfR5FFC59pmc477V5Wmmqv/J23WY1NCZxucZvAc6r5Fc
KeSXpsfv4q11iWj8eJTbhOmefDwDURLMfsR9Ke41XMtTRmM/HvYBmydgVfdm
RheDT3+w/TXb0B63fCBf4ORNdkepM9QmeZPd2nRPKt5M9xquufHmBssVz2Nl
saCQQmTL8azlAzOJMemZ9VsuFh2QeyaujuG+VKSZqjRcM5Fm+UOWvKFzUxbh
C1Xxpj8b8gfrw9guwrMczam7GtN5sTtDdw+C3k91Jp+oA5Ie84mWxJ6pNw+W
PjimxbYfztWFAsD3Izyq290P4mxKOBe3GTHXAfdxOUIujAlSTRHX2Yu1fIM6
Ik++cL6cCNWKphBnupbn9rgnuP20naWkCO2pY26Kxz3BRcx1y2S4QeY6k0vV
Uk6XJ8vR8b8J6XqEV3KRS/tZnmUWT/wFUMhw7ce6778F46cki+laptOMTF7a
8irDGi81VB4xXMvzeZ/pmkmBQT7vw0wtZOg5pjhueZY5K+dRyxp09uzZaz/7
7DM8m/Q9sU3CepUAh04hh/Z+cYLBdRxsoxWVlfTTRIJk0O6eHkFG5rfffvur
Y8eOaRaT4+l6RLJ8IZ7491TgbG7zVj89n6XUp0cPbaf1a9/LQ8370xPdnbS8
ooIsG8WFuGlWG+hPunuqyUhSRCrxext56UYhJXmELEn0huihRG8KxAzBlh60
8/1KP7yEHDx7VjXk71ITMljCaPxmGK6FkwjoPrKTrqlewQnIpKWLFpG66XcS
UlSNilcWFZDpbT0WnmSQDXPuIeTWSfTvR0+SphnDyQ0z9hCufD88f6SqF88O
VY2BMvgORnPXtm3b4FNYYgwUHSD0rJk6nNxfcYa2dp4hrRVjydCp+1mV8X09
TJrYqmZSfN+VZFjRalq19hPSWDKWXPfs/ito49YzrA/OvJfrxS7hlcat9cqW
1JDWcgxpB6dm8GoukGLmX/84SssXv0k/P32c5CI9WfTAvp3QM8hH04aRkdU9
3Daqi8BOmNBwlkkrV68mNU0l5JFRdeRQoo5ZyHAyeYewkQhZwkwrmaYdh7po
2bL3aMP2T0JIhEVaO+vJc1P341k+HjNI6aMEqQJaqqY/QH72xzcY6itzl0DD
lW8h5U8XKC6AG/b9cjzJQObIvfWiaDh5ctUZ9hCchcmrdxeRB19eQmeWvE/X
NHRH4DI3E2vAl19+mfP1119Lm/TL3b//2UWrK9+i3cc6CPcq+di33l6+HL1K
ZRFJ5g++0607d9IVdesVOdjDqnoZKFzJ6mNjQye30OklC+nSNVuYTXPmSqeW
kJpOblD98ZiHRnZ32Qla/OIiMqXoFnL1n1tAS1q+YhddH+8ljatKyHWyS5Ox
ZCYjRlL3zrPDyV0lZ7iFcQNkrMNZNq1dfwLrEf9kxogHyJU5E+gd/abRSdNW
YN3ZnGZatnQ7fZ7RXJD9OP19vymZwdj88P0V4JdZbcDmQHoy8Ql9r2oZPdzV
hSxum1VgZHR5VRWN7+kUljgGvBUzQf7JTTKPMz2qDs/KHisg981YRifNXESr
G9uRv5qKesVoa0UJeW6jZDaTNu3qJg2vP0bIbbPpy9MryYibrwHjCqPSFpIn
TZJ32wFomkmEIoFA5rDsEUAaL2ONchnzeQV5s+n9/UtpYe4EaLCIqJoRk/fV
V1+hXzFFep1MDNqsHJjc3Liatu/eTiIi2p0+1QUekO7v7BR9OA8ZTHKByPTC
8nLaduQEObRjLrlBMCY6tLDRbDyHvyEjFtINrV10fqyW1m46wNnbWEKGEnum
cyjv4ViWKxhdu6UD7JS+NqeWjBrO67r26bZMjVHh9FxN1BK92zbtx8g1OU+E
gEpWeE/ePGWhGXCrKalyscdkFhvWraHb23i05NGiH/Zy+LtxWgtdVVtL55cv
o6s3bOG9N7GHTL5JdLib5pKmRC8nMJMe6P6cLn53jTQ/umDZB2Bmg3j/potX
NtHnJpWjete6uDdpgjOfLSEvvrke+hx7mmsvTAnvwL6cf27aQ5xgfo1HScHB
hk2baGV9EyqVg0eLNrXuRXVAk4uFPrMXraKVtZ0oy3VSZjuy8dYRDZmLVweR
yzIftugNkYfZ4+C14QYthwyqRZbQ4uiRfZj38Thma1HTtNWhBXjoNR/tRfkH
Cy0+PtyL3g3sqQAEMiXzAWRhSRltbW9PKUu2kAVC5+wF5XRT+0nF6LvrWunU
mauQll/AcaiXLAOMstSN5q0wfM7HKFXvF1XMg44ky47sI3NGXsULC2aRbT09
stEbmpvp2o0f81iPxzDaM5h+2bvrgSYpJXjY+YuaUcqBcLzFS8rsZClJe9l9
hIyuQunqRt9E5rafYPYMZxmOHtndNouMZDlKWIi55/Bh7GJMNMUk9ExgDqS7
RMg4o3SF6ifogO705WjzMXkCAde98GsypvYEp692pKQSnS5zpqTr5CpGqPxD
RyucsEW7Tp7EhOFvh7uV6U2ZXY6mpgsJzqC+uYd3HTjepSSJ6PQNhCtDTp06
RVuaa1C6RQ8So3R79+yg1WvXYlBVQwBHmmfRjVu30vcaNjmMkaXF9LX576Bc
l+IxDKmJpBD+7/Vq5MFQBEMyNEM3Dj/e1gz2ljKZAv7eevttTNYlfywVwICk
HJAY2lnfffedSvTu85LxIsrd9nSyUshoMESUcVPzB8CULpcuL3bxpdX1uUK8
Ddvb0b+DeOjvH/ESJYJFFZ2dkq7knhsSIxvhUHD4Nr1AGFxRtWzOpnhcxSZJ
Fvia5e9vDyAN92lLOjoc0mQIn7aycilkGY4owcwMo0Iq/3ohHB/1h1u2e7cR
1xSdoGOB79RxYQgCGYtvXOxjITQACxCxyQEzpOVWbEjp8OIz33gLXaKOXLpk
BW3efQKRByrkvl2Y6/nusWMOPcMCrevTg6iXrufBo0exdsDJNfCLaI/543el
3SkduDBfwkZ9Dlxh2A7chq1tMHZD3AFw/JMvXN0ZOHDbdrbQuoYGB65ux7l6
jGRZRrq4u7Y30K3xRoW7ZfN6xNFxQQ7QT8eFVmajU3DYnrh8YB5xnR9iZRYW
ZjvG9BQrIGiAJnH1QCjFhTRn2/6jfOrCYP44vBmRWly3+ScxxWJeLs5wFRVG
dBCbdVGh/+w9dtohKgSeqoZdgUQ1zQbKGaI+i7SWGDBBpAQz4+Lx49K3y+iR
48dRvLAWq6Fj44BSS3Yh58EhuBLS7/xphhLGXgc1USg7hZTu89PH6fwFCxwU
wtANMjBdOjaMw/RGSTcyPQrFON5eSKNy8tgpZ/OHqyCvUHLCdAhE51Ry9hdy
QgfadvALe4g4Kj2rtCeF+y7mmXhdV/MO7TzcruRl33EywUveJVV1dF1Lpy95
TZOWsvckrZmFfYgI12vWrfMUUY/rOXB83Jc/VLg1VTGINQqX9WAcm3jh6n44
Hdyq5WVgNgp3/Ye1OGOWCjdf4C6oWAkDaMSNwLHo3HBhtmT3gQOeuPWbWzH9
9Y0rp2kA9K2y13Hq1eR1JCgkNTD400EhB4d+DUEnC0BHeykbdii7cEGJZche
sgQkzDYyIAckxHmYteHzN8EgwS0wVSWkPgR3g9y464CaSAgKCd1mWcVik/W6
QUI0B2Jhaj4DIMekDakP7k2QAwxhLhwQEjopS7hNNusGqZuPBZBj/UNCP2E4
bpB68jvQMPAO+YGU3UTgOTLuFctjmPPqoBBmINzZoGG9NRVk33zb1m3p4nmQ
SEndWGOqqWcTzIUGF/CEfyZjZXPAuwVFA6WYg4VVi6BoTRvel2jz3ngDx6ap
0AbZY2lYrcXKAlgJoLE+FwhtXODqpT3AOgHMWkPFkfNUfeuOzSFDFiOrF0sO
dsuM92XPmVi3NoqE1SNYjc1Oo96IzHbiLPe2N5Nj5nOJQSU2hAsZEp10VMrS
ksXCaNSxd/pSAzRz+W7QMLDcvLvD7rxPemutrzU7t+c6oVnrSWgx5eWAhlwK
ZmT8QGeJVE5PkS83QLKYGjKkaxJSn+JFl/yUV/aY5TpklLuy9B332u4LlIFF
fJVl6ENqKdOWHTvURL6XTDlcZcemecZHpmgYtw0CbiIyB2jMNqWI+mwDxuun
ve3T3hFH1D501W0MAx1FpfYcX8fK0qh3DsdZNHKVG8a6MOz2I3eGoFY0dzHs
KmT85UqbT7nPJoznWMYpxrEEYkjZxDSlQ7Y+GfzTyTEyrDHJMtFhnZ2dx6+/
/vqHmpqaSK4Lk2JxnW8cF60e1loc/B7zscY8XzpDPXfBIe0zXi0eHlVfX985
bNgwkHFcdXV1totRhlVji1FYkohyos9NRAg7kE6piYtoahG5LOHbd7K/22+/
/dSQIUNAxIhiyu7icsCdqr8ki6ZP/0jR9NlPL9FEf7n++PHjE8vZ38SJE+H/
npaWFn3HWh9cPf0zhTAvXGFdgAN4y4uLiwEfFjDIFQFxdU+Os3PPpsbFfh4C
OGKByUS++eYbLPl5QFB9LcwXKLGqx40bp4p+ofpb2AVFX4fB6eTiNFACaAUT
+DCg/qHwYGYNxrhqqW7C94OXYzDRiC+8sIaHM52mWcWLXcTQ03spxrrGRhw8
gBhZcHwumBhRCBg4TCL6vv+gYuiB1Z8YuclsiO8saEbtrExSc0lAeWAGZN6i
pWKnBDv+xUue7NTyaC/wXdanr+nouYaBQ4ZiQw+JHDNHw9T0Zg47JqMwT4jd
/KdJAN0qwnB8PkhzUPEiop3v2NYSDdQcUh49f/Enj7NzyliWTk/pJ2RgIyRY
IheD0uAyyNc39DcfneMVsyz6wFXKoqfvuLvshYDto5sp3ydK9Ddg3NrHJA90
F8jhwHn6k8eNG0iNRLdheYdfbvIMtvviuUZCEwAoC0ude4+d9gEwrbS01FeQ
0KH620H35o6ODnzKhdKrfVabz6u1twizfxcr9lstSjsxWD2miY18j3qCvoWT
Kpk2YaMOPt4D8NxKrr1pDD3blDGfC3567yGcP3y3VzDshViqXtG3VzlNqHkK
1bRc6aarY+BP9LdGvXVF1MnptbUcsOm6+rUx9JYve9m3eRSmfpzBo031qS0v
PLd+qdeDUXjKT6ceTNKmetQT0ucdAj/tQwocOLzy49aj74jB+ZRXz12en1o9
OFk/Ld3WzlJS9F118cbGvVSvpaeDvkvqXOrps4Fh+k+nHtyWMiO9evQNJL7q
cSRmsF4s99rh3sKZwaQwZfrp1xOmdbVVdOe+fTIn+mt6tWjzo+dQC7w9Be8B
eNfCI04/j4xKm7/m19ymAcWOY5hPIbNSIwd9sVDGWxO0tAm5CRbucFHaV3qh
dkMl794xQ59MfKLe2PQBbcqi1FSwaAwot2fQcY/prGQ/5lsVtbMvdaaEqsw5
xxbT5oqljulgpd6wZF5PSWmQc9PoQQGfQX8273t4xo5pc5PbXV8tFnXCf4mX
FMGfcMo9//u6Hc/O8+1I2Ou+6lRFprdpzvc1F/j//8zB/56+ujnoPxfi/AUS
sYVReETudUclF4FzT5B4PKGWRU3O8h7+2Gi9RuGzc5Q2dszgb9IQvqdQ/sAL
K+LThi5P8LfoL3JMx8TtraYkLgUDuewCUliofYJgcqjP5bcMiJYuHE6DIw08
ZETMEtg/wcdX17NJit+HcTwSMhEr7uOkZxvLdMWhEa7WORpE+iZchdqkLA+k
dtJgX7MDrv1Mn529hc6fD9J+NBC27djxM1mM5O/JPx0pzzmM3IIvn7FX3+1c
R7WdNnvDXzWARST1iwLqu70Xwq73Gp25C30xZ/8uonYN7mc2DFZWKNfScm12
tExGtac0GUfWke3Bmq5JxPGyApTF8Dwm7zORlqtdkwn6+SJG1444c1LRBhnS
bIAQuZwjlgyyzwMBSU0uszxnhqzDRYwrKFp1godblU3b+tnAsjVtXmzBdK5k
rXytRJIhfyJU8ReLC+lS9SHNI8jn7OW5lKT1cWDE9v5aHWG8nKO6jf77dclN
zFR0GMog1bJGf6wW8LTfik1SKBrjitiDjizHdKUyKMfmJ8uhFHfBYc0rQ4SJ
8ssRx6yy5DBhG62b0eRIG3XuFHN0QEnpLzkxrxk64W/1okwnkmA8Gkv8ht/1
quqdNkth4ez0LVw3E0OkFx/kgv8AAKLt0A==\
\>"]], 
     GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJyFmHc812/3x7WQEkVFKSMhq0KDcI5R9vgglJG9V4pKKklLKhkZ2Xt87B3K
LkVZESoqpTIqIi1+7q/r6/e488f9+YPH63Fd17nGOdfznOvNbeGqY72YhoZG
ZPbPf/7/HrW0F3+2AV/yBD92qekGmn9+rNg9cr9+a2wT9Ghq5b36tQo/VK98
qSJcDVUMnDQNysLIpKJswSLTAeaTP1/ljgjhPqX2cwHl7TBsdbXT5ZYQ2u03
jV4m1Q5z9gWxWu748++720DbJuJxOosgssv6s3wSbwVdox4pQ/VteEwqTvPF
jhbwsl8RkXdWAG87O7FEGz0BkZrgVuYMflS2Cb96/mATDK/JL89v5sOfpnUz
1lqP4Eby7rasD1sx0+CLh6rKQygcrit//4MXTbU5hkUVGsh+eMl66+Bs3RZh
+R88ZD01kPYt7M6Jt9xk/qoFujeHSldQzkXmryDnsZnMV7pAz50PB5mvkOyP
ndjLJetdS/qnkflWk/Y40n850YELtMw4w833nBJYwaNuGH6vmexPFHsmOxL0
LlUB7+lfSwel+bGtWizQuqOA+GcfbiiXoJsafEz8IUX83UjGSxB//7s/UeLv
vPn1vzawaS15dwlMPF5xYz3iiq5ENxmGB2S8JEZG/OdXBsq3WkUdTcSxdPPF
IUppNjTulU5VHFPEnyfT82gbG8j6FXFLW+2YHn39Aj3nH3nMGn8fsya/BhJa
RaMD7svhnrUMai1GVSD0O83E1wXxgvPh0Y0rKsj8shieG3cgzLRkgZ47jz2k
P3Xe/3P2fcn5qJH4rSXnozofH3P7V5mPh7l4VJqPhzl/7p/3/9z8ivP+nztP
2Xl//3e8+8CfbuNrN45TcNLmPodsSjU5X22scJ/xzlGtWqD5xwJVXGK18NXS
Ga3rkxVQmj+1LDREA5F3JrncoAzGNOsOdFuoYbLCzK+PpUVkPSrIYDlDYduQ
v0DP+UuB9E8m9rcT+97Ef3p4WmbbxSCOKuIvPRJ/leQ8dbDOYNThsttd4i8K
PgoIPOPJU0L8pT0fj3Pza5J4zSX+USLticSeGLHnBaFhG2t/uhoiY6fxQcln
lcBxdM/vAC8DrNw3Xnfvajl8YDon3syjj2lsq3PcvEphUMW85EmhHgZPiEbw
OBbBy5bP68OFdPFsm/qFDiOyfx8Ktpk+61kZkQ0zVlt7LTjUSHsCsbeb2Du5
QM/FixG5T+UkXg6T+1RG/HuI3JdiEi8GOBAg2UWzvJDEy8H5+zV3Hnrk/lH/
p56LJ00yPp7MJ0nm81yge50CO7u3m87HZ2XKLvm3HsY4quHDcvp2EbhLNQzp
xB7GHYrMeZlv8wG9zgTUJhuiO+HV3Hnpo7252XP23xkLtFFUhUKWM4X0jyP2
pYl9D3iuoDljEmOKEuL/+RUAS9/aA++kzFFnDhAkvs0IT0pgrA84VdXNsHZC
wPhmTRGJxyPozZqt9NqrcIG9ufg3wVlbswbz/qeeux9G83z6X7qfv9jBbO9h
FJxdzYQAFVLDYhw4zxtj0uxquxLJ+dAcIvxL/586uki4JKjEgOw3Fdq+nvE9
aKxP9pe0UPeGNcZ+0iPrjyf3VZesL2aBLrVhqTqdRSHzRczzYs5eyAL9Ly/m
xt8g8x8g7X6kPxB9fIHWKDxuGOxugUmyZzSqvhdB42bPNG8rc3w8zd7+9lIB
nAtdGzikaIZf7xUb0q3Lg6QtKxZ95jTF7dMpFQdVs0g8GeGZs/0PouzSFujd
l96zb9M4SPpHE/tyxP4xwiMrkj+KFui58zcl+SCV8MWC8D+f8Mqc5Jdcwiuz
+Xzx9/i/9Ry/DEj/qL/ylzv42TRJMTabY+tJ/mUnvmaAiFh8vWSzNUZHvlRg
31UI4g6tOXQ3rHDPrzpDrck8qGNUzhCRssTYEsNeBtecufnQDJdKTYq+PZYC
q92YvyQJHyL2Isl4RTL+KOGjLQ4cC9o5fLKA8MsGc1aXdzJo5RE+WuFX0wff
dVSzCR8t8WIkm3zgJIlXH3Pc0Gkf0JyQTPhoRNojiL0DxN7RBXplbrNYP789
hshuujHwNB8YLnnVuW63QWpx+WVLhSzYvY9lgsffCl11vSt3rCXzVVmg+Bfp
8T/vk2D4kFQD10oT0h4BMf/cFyWcDPgj8LjUjfDWgeTnfMJXW5KPqQv0HG+t
5/PvnP+sSH5OIjz9l4/hf+V7NxgS+Rl7ydcJd3L/PnwvMw+0p6mv8njtUe2V
2N7P3pkwyHQ4Z6+SLcoJa59Ku0niA61xt5fzXfOERBjgFtN84mFG2sOAftGV
e5teq6JB4NrvuxxcCZ9d5vPBHI8dcMfqhMbM4gzCYzvs/4fnKcQ/NhgYI9hd
y5pI+GtO2m8T/qrj+Ucvq2Mvu8DjTD5GkZeu6OnA60Ffkguhnn1T4+xO+OXn
9RUHaDIgYiDOXnOpA45f3xFlpkLsV9niBFe78OmgBGhdpyQZYG1B2m+Du/rb
+jQGTfxsO+QlVOJMeO2GQhPTvJP12YQPrqR+oC5on+O3Cwayznjx8mcSPjuT
+iWd8NUJx8VnWnSupBI+Oc7XJ3/rOT47oKHuDN/5j4nEv/akvkkgvLUl9VMc
4ZsNWV8U4asVmT+C8NSS2A8lPDUn9oLm89Hc+ID5fDHX/+I8v/+tn/67XnNa
oHtHV7PsZnJFtuO6jOblaaBWNrjFqtoJH0/wnHonlgz3Vxjzqh60IjqUxJcD
njsxNmCfEb+gfVQt9j17pDZaj12If6HgRPjrhhEKrv5Pt6Ut0HM8dkGpJqk7
nMVJJL4csVePluoqH0/4a03aQwh/KTh1N/HUuWhHEi9OuLL4zQvt13GQRXOU
iX6/DfaignSIXAgkflV36BPVQS/9pb82LCb9aVxI/RdH+GlL6r/gv+pJB7Jf
1/n30d86cuLiz3oJO7xK5RN65hxM+GiPH01ELsoyBs/173dDjyGfgkaBWLjy
KfLdBV4HpP7D5yDCN0dS/wXN9edyx7MU6voW5hjw7MtpkWN1QrWwyOPrGIJm
18f0M/WYMN5QqJCnBj+DKxM7XGrD1qHU5nC7Zv122L7F2uxqkDC+yTYt3yHV
BgLnQifZBkSw/EzpjxcraoAnQrT7Oc02ZP3CePXaWAfI1p+7czRLENN5w5oU
E9uh+k3KQEnYekzvdEmP0OsAu9Bv6dyV/Fi+cX248MgzuPNIOz+XVxixOLl3
8bU26BRPmSnqFcGqpGllCbYa6D/KvZc2SQiHI1mfi79vg4msLRJvW0VQduba
Ly6+Gsi1m7mR6SKEuxJvLRFlaAeuy4NFpy8LoeSl99qTg22QeauEZsRYEK0i
xfZgcA0w37Rr81gviPKv0rM6dWrn3y9Pj+kz/RSqh0Vbt24ZLxbAzcN6odf0
GoDlifJyIzde7Np/iYeBphkWGWw/wcAogLw87W37tjwAOoeXJzhu8eORojf3
wzkfwsbXtMsa/XmwhWK5OiP7KSRUrT3uF8SHfmescy80NkKN3O9YBhlubAGH
40uyW0BfszO4o50PHWhsNo7bNkLFbQ2xHAUu7AgKTqqWbIXwy86bpX5sxorr
dQ9/hbRC2NAzBv+0TTiSYxL6vbkV8uOiM5m8OTCmcPn53uFWsJ5iUOE334hx
1Gmb85OtUM7f99ZHaQPy3R/MzxhpBS/u/iq5Tezo1UilbuhoBfHEg15dWhsw
LjThFbN8K1y9dplZmlEWAxhtRpK4HkPjoXiqpsk+7M8Z3tEVWA0XqiW/BAlJ
I2/7b/2RsCQ43PU0Knm9BD6tzzMzqGqErCTenk2JwuifoaXlwd8GJ1fJG1xH
UXwS9qt6XKoaaph5K6vvbUPhCz6VO0TroM3hUPyULiLTJ7Xq9XpPICU7z+d+
nCg+FGnW75HtBOuBby/77cQxdAPlYZHXI3Bdx66fVrwDmdT3r27QqwBOzSxO
2TJJNP12eCj6UzXQpKaURNdJIO3bsHetKxohnz1KomnnHqS2Bzl6amWBY9/X
5em/duEqcTrOtSoP4BSl6gTzD3E0zeUofzLaCIcPcxyPtBHHDdov4qs3lUD+
2W0DlX/EkXm33IozrxpB7/2alCFvcQyML+Wh9y2G5LTyFvF+NdxrdWNsuqkW
vnD5i1gzymOsfjR1aNbLR8XyWEU8duDW0+N9Bnc6wWqGb/HnU4jaRznVuwIe
QKpW2yXHHHF8wmRw7uzKYuic2gbN1fI4yut31ZmzFgo3GV2rqkLkX3+FajnS
AN4rJ4f5TWRR3/EYJ2NhGRT4MVndsZXA6eZlNm5FjUDf7eVA57kLj6lxhlF+
FsJjxiN2bM2IopWlT+M7GsBu8/UQy5/yaP/aE00La+CHwPcDo7WIPem0QpsG
G4DWl3mmuVYGvz6S89BjLIdJnf3uywr240naXpGmoQq4mTGt0rpDEfuyvwro
vK2GT2x3mqRtFHHK6jjt2mc5wJqtRuFoQJRVL4uWHGqAV9TDtYtY5DD04/Jl
5cKlkJ5pv2vwiBzmPlvusY7ND8LT+Te2G0phyjK3vvSOanjGa1h7MEoSuUz5
wUg+Fe4LKel/qEHk6+85tHXWnpmA5Yn+N4AhvOXDDptLoc34qWe86h68keH9
1e8+FSZ913w0YFXEifvuWsKs1fAKxlLW8krj8syB3ha6arjoMF2610wa3V9/
1K+hTYJj4crraavEMXgs/BfdqmJ4uMREw75bDZfQNKk71NUCJ3szhXFCAT/G
uW0yDK+G4BnJZ/ecFfBswi0FnskMyF5q8/y1uDrqixu5PjCoBTX9F/f73qlh
3O3Fe0tza8FLMre/a1wNuTIHFmF8LZhf22AQqzM7Xl4vj/loJnTL6ToXURAV
w6unPXaUgM/Rs08q2wCj0hIeejvcBhE6ybVJw2rYlnD72ZGMWri+ueJxcfwB
fH4qu298vAzUjoOo3GbEd5uFJ/ZUFsOkXz4Xn5QqVlTwVrscKwY+JcGV9qdV
MIq5pkhiWShAJdxp71FEMdWxG5duV8OPgz8vt2Qr4hv6vh1jlBzYc1Hw+BDK
o1mpyKHJwgKQPuUqeSxUAmU76FRv7imCya8CZrL0KqjY7/6iPakAzAydOzcy
aeM1XuY7Xe8q4ZZ0397rucq4cqrgY/Hs+/ZSOpehxV0KPjuQu+LrVAl0P16k
8uEUBXd+7Wn3GyuDj1HuP1pvKeHwQMaHvbKlYL/qBo3KiBrynadulMyuBSXb
P5GJ8WpYyPz1ud94AWQbUbqqt+/HFtmIkQ+9qTDln1BkkqKN5dVRsq8YKubf
f4s7nB4qLMsD84t5dR5L1fDxporiOP18GFrh2wg+CijwxOqtT2U69MeaChrG
I9IX3r5B41MMWhXSSr6H5DBcZr/4FoML8D5b9eB9IUnUjdIy0/JJBfXK3a46
ryj4ZemrB8c9SqBZxeqWySsdlG+3L+9cXgLcCgktOe46+EKu54dMVwKEGe2c
Oe9OwZrFJ9a4iZXP1+OqZmsMKXQl8/rkxVB5Za9QyFI/8SVylRamMbL263Ul
Q2jz6PI7mUroKWfDtlqyDIx9T2zqz1fCccdztRprkufrL3lfumZz+jR4H3Is
PjpUBh85Rq2tjAuHbE6mMJP9atjnWvXC6FQujC7PV7eSOIDvWIelHLmSQC//
l/bvQWlM09Rmi3kXA35HdRiZuI3R+DjjmqGLZXAldvfWY/t18ffNnEHNwAII
hcaPHDy6uPPzvqVnXheAzrrhU+99KZjVYb/YZWkFFA0LxE6kU9Bz5Y515WZx
YKJ0wKueTg8ff6mqW78mH/xXfFOqPkrBk9P7hk+pVQK0B7ByOVBwsYXOokUD
6eDn1tj96IAe7u0/XDq9Pg9OxJwNox9Vw/Dx5NCtObWgF7tVd0hEHV0Uhq89
1SiCHXFNq544q+OOP1ZWsZ+uQqkeg61TtTbG3tUojKivhIi00OoLWdqosuFj
YNDs+7DjYUWyWSoFhTs39b0ziwGFQThRIqOMzCGlQ8y0cfDkTOWj5GxNfHSr
KsCOIQX67vqqcnWr4nOvnJceVaVQykp7/NtLVYzbUvK2pz4JhL7W77poDfjE
INBR5nwI5H/VMv392wRbonlVLcWLofIau3xw6mG8wZe9e+JOBRRwi5dl2Rph
RErVKfvXdyHOtedoyIgesmfHi/p9ywPD6eidso90McD26o8a2kK4yfomVVj6
IAb5Z3vfG08FrfupUlxLdNAoZk/Wsl2JQPfOvnWViAbiIl+hfVdzof3QKqqH
vzpSpxiixuMvQlSNvGCukwl6LRIelmErgZ3yozwXfhthYeXiV7QNd6FJcTD0
ZY8R/uBgc/WWuAu6e9RZvmvoY/Cr/aXBYZnQIK7btIpigGd9vwvmzvLK4tJJ
F5/d+lgqV3PVfPb9ddZUqmALgzZ+C7tPtWVOBpNL8vTFgtq433uRXNe5VKiY
3Fs68lAPp7V28+XU5MIa/aUdj6s0cOkGjYv24rnQWS7oJUOrifSVQhPbvM6A
U3t8orWNORabUz+fTMuFqgoPc05zM3ypTN/htzIP0paLXe8/YIarKXQRDbr5
YJ3I016yzgjFthtUtq2MA+PHXV/eCZni2s2L8i0GiqDtzra+xlVG6O3htWfq
cCxY7aUf499qhIMf8qpHZ/1/hmtY8eYrI5SqTzzrVVkGVdvXF4rfM0FBOa9t
GxbP8rCDiq7DBvgmayB2W04ylDXaCHeIH8JFMNnM1pQEz999ybrnoY+e09eN
1Talw4rNW5ZmntFHyYDPy2g90sGdLSKb5Y8h6tLr/ZjakgQDCpKd2VQDLOS4
s1xFJgU2jkfJGMboo/++Z1uXDabBT0ezpzeCD+I3k5NFXIGpkPJ7TC/rrS5G
sw25ZicGwUnB96UKThTcGsf3MuTzHRBl/iO3NIeC8laMmZ+VYuffGz093XfX
dxbP6/CSezWmrXFQrPjn0OtjFFS5nsQt+DoerpZ+5/qyQRPVg+ysj3GdgM/l
7R6/zmmjzZ4Ah/Mn02CqeYuPHo0aeui+TFw3+x57lzZ0UGSxJl4R+x53NysD
oofe9PLNvp/NUrW1Ryq84GvJuMTUpwPo997w2uKRKNCFMsNPR5RQe5WrmMOV
aDjpmk/TGCWHqnG9dnZ5hVDlb+6eaiuHH/KCuccu+UKOwtX76xQPoJdSbZXY
9Nn5708unpfXMaflwz2BG52JS8yQ9qgC98SPfNBKGrd3UTNH56Uy+g8U8uH9
6h/CjAdM0fVu66WipbkQetY16rafGW7Si22SoOTCkeD1nx7Wm2LV2VNC5XqZ
wC9wg1d30Ah1Sp44KVXdhXv5jdzH/Y0w6LfkEkpzIlSExjr4+x/CsgIxvdOx
CTD4fixRZeIwJn4+ulZEKBZMr1Zlv/15EM0vjW9h9c0CqqJS+EVmU4x/AIuf
umTA0MEg899TRtj24VayyvIk+K45km2kYobujRs1DaAA2EZP8Z13MUeP8BVC
3Ea5cD/ri8Xb5+b441xxyxUBKvCVja1zyjPH13LPmmcwGwaSrvn8yTuCqTvp
UthLCsBotPZCEPshVNbd78yVmjALoltPlvPI43Jn6wKpLcfA25CV8llCEeuo
1y5YSGWArErMb58uCzSjeaBempkJ4r882IyaZu0H3GVJkskEpugZvvpKc6wT
3FQ9ZZEN3++ziC2LOIJWp8aZtT8VzH8v2MhhphAz+v/6haGzt7HRLTC0O6I8
lm+GNuW3SgrXFcx/T/g2eHxtiF4c0MYc1HpdZoksyq+NxyTSIGOwfzI4yQLj
lq3NsWXKgt/shyU7FCxx6Eex+oOmdLi69zTdzTEzDNe2Fmgwzwe1Iv5tJc4W
WLNHsqe+IAeku04vC35ggmrWzuN7XyZBdm0BnZvjfmwcudjYEnkUelFi2wZa
K3SmW2L10T4N6C/a8B9vsUIpjvp9KJMMl/W7t5cpWaNW/RtR7VmeC4tdUKhe
bzn7frobTaVLBwNGPqecVnOUKZKmBnpmgBG/YXSgqAVqfK+hX9EVB/6QxucH
pqhIbevuupoEhh9S3mm4GqEp7rokxHoHgt8M1HUMGWOOCsu3AppwWHnZ28xB
WgU9bVA1RCsIHnXqT539cAADWa43pS07CtSGo02ae2zQ9/uqh9pjifDwUJvs
jJg1+j6mPt4TP5uvjUM7uHRtMHC9WrfQhXj4M9TD/lrAFCPpn2atms0/DpqZ
dRzKaihxeYfuyCJ/YN/Cfu2hkD0Kig4kBYtFw0uWp3bbY61wm96RGiazFFh/
TdNd2sca23/3fV5jmAKudRofduUcwU0RNqEBMYEwFHA46Q27GRa7utRor7sB
loXB9Bdo1LHU0lVVxvs8KPu91u5e54hm52mrOSJuw3XfIeo9QXvUCmbfWZBw
B/Y8oq5klLbBkx/eCH1emwBaKqEjzuE2eKz7+Ev1d/Gw0aDHKUPTFpcvDbQN
UEqArrKfA40WdujzfeJEpGAM/C5fBEksdng7pM9/VCcKlNRFlR23WyLr4xMV
dc1p4NcSwiUyG7/qfg+r3N0zYHRNFE38XXN8wRKnZ+sTB9tXXxm6JK6LodNO
5RMYDKxuU6UNG53wicCTVxorQiCk+tbaaWd7zFoSefDnw0jYa0BbIDBth2yU
6apSxSjYmf1UMX6bA3rXWW36wxMOp/er+y0ZsUWqSa9srXYMxCc6ljA8tUUb
a94TXJtjoC3pKt+1Uzboz22LrewJwP+uTlNX3hbbtE878qyLBxFR3/OTs87/
8inP0P5TPBjomnWLl1njrkSDkXD6JBjjeN4fWW6FxkfsoqxmQiBxvPfyTnYr
dNMIcBSyiofzRsprznYeQXWLt3s4f9yE/kMPHKI8j+CzKzu/5o8EQvmWxnL2
Z7P1jmxTG6tzJTBUnqq+zk/Bisj4+4E0GaA7GrQ7IlgTeT8GyCzydAZfkfN8
a+9Y4fuGa5a5PGEg5lZ86uASK7wYzSC260goqIoxdk1yOOD2TbJNfLXhEDxs
Ixu71RHd1jSzhSeHgqQFzWo6KQccNNrHeeNBOJQUKh2TE3XEqfVLmb7LhcK6
VGftVfQ2qJ1vLPziVCIoyAq2K6/QxZD2B9vtHaOgutupJZ7VCUPdFiedPRAC
vjP3+5bwOaGN4GD+3oxgCGH5sv71C1281MaiLuDpD9c/MwR2GTihNuV628N9
wVAn/1HjRJItykrn6rSFx4BoUc/uXkF9tL+TGxXE7A1PJd+DJ5s93pwa4FF4
Egn7ubkSfgk7oCSN0jHetjCQqT/Uq7DKEfli6/p9KLeBuzF+453FTtgZrLvL
lCYEEiz3PbOXc0JPKUrqmEPwgvv/d/vf+f3vev7v99Xf9eff38v+D8jY7Oo=

       "], {{
         {RGBColor[0.293416, 0.0574044, 0.529412], EdgeForm[None], 
          GraphicsGroupBox[
           PolygonBox[{{486, 151, 512}, {468, 151, 461}, {512, 151, 468}, {
            461, 151, 486}}]]}, 
         {RGBColor[
          0.6335800702977792, 0.6396490647716601, 0.9110890362850854], 
          EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJxNk01L1FEUh+8dDQpfVhnmKkG/kLRzIbQpE3TVR1AwEV8XKugYlLkwXIwu
RoVxTIexyZmVio4vWQoDAw5IqyTqOZxf0OLHc//33nPuefu3vxjo6k+EELpR
HSrHEObgOXyPnrOehin4Bd2gfXSq9SxaRouoD/Wgl+gQmwlYhBeol/UJvI1+
9wfs4OEN1q2wBZVZN8MkXEAzaBSNB4/pOPobR9H3y3rfzt/pzux/dlvBfX1U
fDM6/4b9GPwQ/busHKaU7y68j27/KOH5ppRzBVVRXvlXVI9O7n2HT2EBbqMV
9EY+zXcteiy/4CXMydcVSstXRjmW4F7wezXUht9V2Agfq1ZN8AnKsq5PuL+M
1Vk02z3Feaoc0nrP4n+ITQk+S/h3VbZXisX2HnC2CX8Tz1nwfh1Yf/h+DQvR
+2r93YEjyvctXFcfrY5FtIaWtGfvfgrue0Hrf2ebqmlaMZ/ha9DyiV6XPs3C
tmYypT7ZOw3wT/R5uIEV9dp6nlFOluOO3iwpH+tVVlzSOq04KoqpqLOqenei
eJPKMSObvNY59eBAdVuRbU379n+8QkOaOaub/XNfo+/NR58py9NmalD3zc5q
YPW3/83mf1Tnn6P/f1m4r9ytBjb7q4r1TnNhcfzU2XV03+bPejmteEZU55Ti
L6jvSTgc/f6k9npl/xdNxbZp
             "]], PolygonBox[CompressedData["
1:eJwlkjkvhFEUhs/9jCWISmwhdp0/I3qJxpZQ+QkkCrFUIrEVloJoaJCYobLM
KIjGUAyDRJCgsPO8OcWTec69c+fc+86p7xxo64/MrBVi0EJxz2cWavByOMJX
4T2YVVJnzNe0pzXtbUET9Sv1Cn4BpdSNkMaTkIdPst+Bt8Mg/gEbeAoa2N+j
7sF7YRZfhDHzMyP4XPC9PtjF49BtfuYKz9dv4CdQgJ+yNo4PQRo/D362C/bx
LCyYf0ffLYn87qOQCY58Wm/Cb2AKn4cn/BOW8Tl4xKs5HzfPqBmPQQJfgpfg
yPVmvT0R/C563wL+DbP4JhRy9jJ4b93xD78O3lsZK+tk8LdNwBk+A8PmmSib
O7gF47cC/OJr5hkpqx/qbfM17amneu/AF3VR5K43PlOngvdSj+Pgd9bd9R8d
BJ8Zzc4h5ODFsG6e2VvwjJSV1qrYq4h8djQjmhXNiGZFmZVFPhOaDd0xF6+F
B/MZ1ayqh3opc2VfF/l/rwyV5T/sC2zJ
             "]], 
            PolygonBox[{{479, 133, 461, 486, 487}, {513, 512, 468, 145, 
             469}}]}]}, 
         {RGBColor[0.6932621485493156, 0.7355415578069703, 0.912449603845907],
           EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJwtlFuIjVEYhv/1j1NIKTlFGExuXY7b2VOYsS+UMc2ktnFBUw61DTuiXKFw
oaQIITIOxc24mgxTDiVhx4VjGYeoYRwuxtnz+t6Lt+dd61+Hb33rW/+cjo3L
N+RZlq1BNeh7yrKP8As8D0toM9pLez08AyuwAzWhW7TL8Cbcjwr4LbAFrvCY
iWywCO6i/xBahj+sfVAP/jVcihbid8IrqBG/Dk5h7mf8NLjN62ufkXnEWQtv
027FX4KjaQ/i/+DPOtYLKdrq/w0nM2YIPwrOtZ8KFzsGxdKJ6vHb4Uy+fcXX
ibQf4AfgEo9vhDUeo7F19rPgM75146vwCCrid8CuFLk9mCJHK7OI9Si6qn60
2jks+36as8jdHebsgSfhpDziUVwvUC++D75D/fiXzndDFjnq8p3o/uY7zhl5
3FfZ+x1Psf8N37niVC08ob0JnoZ30Sn8Pa/f7D2a7P+fxzlshwdSfN+XIu/K
uXLf7jGdzkOD51+jvRueSNGueM0+n/GYx+s8LZ6n2ii6blQ/a1PUk+5oFdzq
ftVXv+oM/xj+RO/xY/PIqXJ7PUVelB/d7VPal/GvHG/Be9a6DvVuBtFb/A94
McWddcNP6D5+XB7ztc6EPGpCtfHGZ6pmkVO9E72XEmzzfhWfQ/31fp/ad0Qe
Z9O3InyUYp2Ux3l0rl8pvmmManZ6HnEq3m9oAD+evuEUb01vbozfkd5TyfG0
pjiPznXO9fUwizMUHJfyO89vdthjqh7X69quOibFNjuP/fUfUB0P+b/zAf5N
Me95ijem+BfAf82ZnRg=
             "]], PolygonBox[CompressedData["
1:eJwtk81LVGEUh++5jKBoZqCirhTsD2hXbTMITBdCIq50XLiygrKicF2T0kIr
wUhj/CgnBd3oSsQGtC8sjRZZljD2YdBkWC0MyefHuYuHee5933ve8/FOVfxc
w9kwCIKjEIO/FgRv+J2Fgyx84jmNj8MHPMa7LL4Npfhr3nXicUjhL+Ae3guD
+Gfzb1fhv3lMxdaePzz3Qx3eBE/xd+brc/ARfwxX8NNwF38AZ/BWSOJloefy
C6rxAsjgX6ACL4Sp6PwSPC/0tS34x/f5qiHar7VXUf7XYR7PwAo+A1n8NpzH
EzBinpNya4MJ/L557kl4ad4T9UY1jOHdUf6KoVgHonx1RjFeHnotO3AYX2TP
BbwRHuKXoAY/CZfxa3AMPw6H2P/EvPfqoXr5yDw39fgOvmteq2r+aR5TsTVD
zfIm1Aaeo3LdNK9dOf7GizhjWrPWHeC5Dy7iLYphPhPNRjkv4cNRvxRPs+uB
E3g9DOCVoc/iB+TiC7y7EfgZafy7+Vk64zneZf6tenAV3zP/VncyR7HMZ6Mz
1/Ah81lqprqby+az0R1/i49CR1TPBt5u3lv1tBmfNL+byvkWvm5+l3Sn3qvX
5rUrRkJ7zWdxBE7h38xrUU3PzM9IRfVpzULPRf+xrzzvA8lVhKU=
             "]], 
            PolygonBox[{{453, 452, 420, 137, 489}, {501, 155, 463, 471, 
             472}, {458, 116, 403, 452, 453}, {472, 471, 470, 177, 528}}]}]}, 
         {RGBColor[
          0.7529442268008516, 0.8314340508422803, 0.9138101714067286], 
          EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJwtkjsvRGEQhs+3fgCNTiORrERssbshgk00S7cuBSsa2yjEEgVxq4SGoHFX
iE2QRSIR8QtcolLYjfgHVBpqz5uZ4s3znjnfmZlv5jQWpgeLsSiKOlENegxR
VIGv8BD14g/gDOrCT8F7j+t9HqXxRbiNsvhb2Ibi+CE4iVL44WB5lf8b/qJ3
fG3MYiV0gvaI78Ir+BYsdhGshmqNwVGvNQGTqAnfAY9RN34Hnvu3ZbgMl1Ae
rfHcBx+8R/WWRBnPk1Ad9xnPp/O6/zjPGTgLe1AzPgvXg+UYgGfB7nKqOj63
kWD31H3/gr3TmZL3kPY+2j2ncv/4fOpiJvkPYi+oit+Hrd5n0mdW9RlmPU8K
rqJ+/J3PQ2c0b32nM3HPq/zayWKwOa0Em7V6y8Frr6H9fPoevxRDC/hLWPA5
aB7zKIefC3au4v9X2fvQbrfQBv4m2I4Vf4LPPh/N8ijY7jaD7Vh9az8J9y2w
3ufYAP8BEcNVBg==
             "]], PolygonBox[CompressedData["
1:eJwtkc0qBGAUhr8zzQ1QVkpNKUo2yGywk2FhDAsm0TSlBvnJQvmPshpjN5mY
3ZTIX1i4g+ECsHAJVi7B83a+xVNP39855/1SxY3p9UQIoROS8GIhPEMJliHB
5j7rWWjHU/CNl6EDn+DMMD4EGfwM9uL+OT4DXXg3pPFW7rTAMX4CTaiz14B3
/ML8/R2o4qPxfh+M47PQjw9AHj+AfPCal3jO/KzOrOJZ87N6YxCvwVjsdxP/
hS/8E/70tnmvyqMXf4zzKANlcRv7q8I9/gaZ4Blc4Q/ms+vMBz5nXks1C/gr
TOFL8GQ+k/odgUm8Yl5LM+3i2+bZa017d+a1ldk1vmV+V28U8RXzt1VjHj+C
Q1iARegxn015tOEN8+yVwY9qa17zP9JfrcX+NeOp+Z+XY97K5sb8rzSvsvkH
PhM/mQ==
             "]], 
            PolygonBox[{{284, 39, 325, 296, 297}, {431, 101, 362, 379, 380}, {
             400, 61, 330, 382, 383}, {539, 79, 375, 433, 434}, {386, 385, 
             352, 71, 437}, {432, 70, 346, 376, 377}, {361, 360, 359, 70, 
             399}, {377, 376, 347, 80, 387}, {350, 349, 334, 62, 353}}]}]}, 
         {RGBColor[
          0.8075301771717633, 0.8619706792058405, 0.8939162088626678], 
          EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJwtkU0rxUEUxucM+QCKiLj/yMJFSqyUuju55aUkJeWysfCSnRJ5W9v6ANaI
LBAfwsbOSilsbMhGfk/nLJ5+z5yZeWbOTFHbmFnPKaUBVIeOLaUFuAa7UTu+
Aw6Gb4ErqA9fhUXUNd+K6vHfqCvqmu8Jr7wL9Iq/hndoHH9rnqs1WnuO3nUu
F5vA9+IfYc5e13xj9pwdfEIN4Fc2vGoP6Az7CfsjZwjOojL+Hs6jMfwcHEHD
+Mm44xvaRc2MS3AUnpjXV83HqpfgR+QcwUPzfdvwSbn4ZdgW91cfP4z38V/R
t3I60TPaS/4HTea1MvxL3pf6q8b7T5m/kTKL7Ofp3MvYp79Q9lKctQhv0Av+
ANbQNH5Lfceeivmbqn/91ab5fU7hVfyL+vgHDb43QQ==
             "]], PolygonBox[CompressedData["
1:eJwt0btKQ0EUheHZwfgABgQhaiRVIioIopWCnVUwaheQpJN4Q3vjBbRUuwQt
8wCiRk1hXsNOEATBThBRFMm/2FN8zDozZ87M3mekslXcTIQQMujBVxyT+MOJ
hXCMRRTxG9eH8YkdrTEeoEx+QZM8hVXyFfbIbzglF8zXFlAiz5t/S+f3kycx
Ss5jjHyIZ/Ir+hJ+B92linXMYRbjmMAyljCNGfMaVEsv/rHBXImxhm3yT1zT
O9+4ZO4CZzjHjfnZquEozmmthn3sxnpU8yN5EGnkkDf/ZjL2TL1rm9euPdqb
oqan4He65XlI++P7A+SG+bp60CI/4D7eUXfNmPdOe7LkNfNev+Oa3DHvpXq6
Qv4w/1f6Z3fkunkvdIbO6gJ66jtF
             "]], 
            PolygonBox[{{336, 44, 308, 318, 319}, {327, 326, 307, 42, 331}, {
             355, 54, 321, 326, 327}, {314, 313, 308, 44, 356}, {384, 383, 
             350, 129, 503}, {367, 366, 348, 73, 442}, {351, 53, 310, 339, 
             340}, {312, 311, 321, 54, 466}, {438, 81, 354, 390, 391}, {303, 
             302, 299, 31, 309}, {388, 63, 345, 366, 367}, {244, 31, 277, 284,
              285}, {364, 363, 343, 63, 491}, {436, 92, 389, 439, 440}, {443, 
             43, 306, 313, 314}}]}]}, 
         {RGBColor[0.8611287341279985, 0.8798443697666192, 0.86990410337769], 
          EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJwtkk8rhFEYxe8dMX+MGYytMslGZEPsUFMWNpqwVZSVTPIFJimznc2s+AR2
0oQyK5/AN7C2UiOMjd9xT73nntPz3ue8zz33rR426qeZEMIyGALzMQSeMM1y
DObQG/A6WEXvwA/gBX0PH4Ab9Bs8GlJvEXxb/4BnxAV8HpOv6n3whejBTfW6
PsZSth5nKcbkV4ipXz6P8JT3TLJsg030FvzqedbgBrhFX8L7oIquwSfgDl2H
d71f5+h75l97yfMIvtKZ0V34yZ7ybnr+NtxyPmfwu/31nbw9C85LuVUIfMLz
6xxd+3/AA+//BMMx9WXha/cq+xWwiF6CR+yTj2nu6Oz3EB24Zw/VdT85a81V
ce/AOUbXas5qIaYclY9yyro35+/9e/q9sur4/lQvxXR/0jpryVp3O+v/agb+
A93KNoo=
             "]], PolygonBox[CompressedData["
1:eJwt0TtKQ1EQxvE512iuJrWiwpWI0UrUSvCBqKXaZAk+WoPgCoJgbWOlK7BL
FR9J5QrchjY2BuH6+H/MFD/4ODlzZu6kcdxunWdmVqCCP/wiJbMM38qomocW
usQersk3GJBfcUduYgEF5jDk/AslfjDBWT3eHIs7ujuNmaCsGtXuk/cwiamg
vIVtLGExeqp3BePqg1HyCXbJ93gjn+EUhzjCPBpYxRo+8MDdDvrkWeTmb+rt
x+S/6c5T8m8qY2fa3VXUa0fv5M/ku9KOhtoVbs1nOiBvYiNm0mw5auY7qpMv
sE5exiV5JXnW2Q65mvxbVaPakeT/lWbW7C94jh7q9Q+LXS62
             "]], 
            PolygonBox[{{333, 332, 336, 55, 392}, {465, 150, 341, 443, 444}, {
             300, 33, 280, 294, 295}, {305, 304, 280, 33, 342}, {258, 257, 
             256, 7, 259}, {372, 45, 309, 322, 323}, {317, 316, 288, 37, 
             358}, {320, 37, 291, 289, 290}}]}]}, 
         {RGBColor[0.941176, 0.906538, 0.834043], EdgeForm[None], 
          GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJwtkcFKAlEUhu+dyZLIMVEyJyZRIREEp50QgtguaDOLdm2CZlkEvoEbFz1S
L9HTuJL6DudffPz/Oefec8+cGb19Vh9JCGEGKQwgkZ9AD66gAyVcwj6GsEOf
o+es1oU+cY0+olO4w8/RF6jw99H7W+/cIB6jw+j3e3rjlLiFnqMXcItv6i3z
mc61NU9bcaaZ+3ANNXde0RX6A9/4X/Rd/gFdqmep2PJ29ka1FH0KPucGFsG/
xfoWylltKV/o+20P2+iY/0JP1NN6N+Qtl8on2s9E82earaX/kqt21DsH+JO3
3Dj6fOvo50rtdKB+ifZoPc/QfwAEG+w=
             "]], PolygonBox[CompressedData["
1:eJwtkLuKAkEQRat8Ler6Fh8LKrqoycKymYlgYCSYGJiZCBoqfoOJgb8rgol7
LjXBoc/03Km+PcP9eXNKmVkXMlBysyprBYr4gzUNyrygwF6JtQ+f+IeHzyCL
16GNf0MTz0PZ4pscvoBffAdHjzN0ljLKNqBjMUOzUh6ze/CGZ+Ij+OLdGq74
HQ4eHdVVMzRLHdSlBTXdTXt6pzuqG9Qs7qy7K6OsMsrOPemqTvjFw3XmDR94
dFnBGP+BSfK89NiTa2+K/8HG4h+MPDqoizqoyzLJK7PF/wGhTxVX
             "]]}]}}, {{}, 
         TagBox[
          TooltipBox[
           {GrayLevel[0], Opacity[0.4], 
            LineBox[{245, 250, 275, 274, 276, 273, 272, 271, 270, 269, 267, 
             265, 262, 266, 268, 264, 263, 261, 260, 283, 259, 258, 255, 253, 
             247, 282, 287, 293, 295, 300, 324, 342, 305, 290, 320, 358, 317, 
             279, 323, 372, 369, 392, 333, 357, 315, 444, 465}]},
           "0.9`"],
          Annotation[#, 0.9, "Tooltip"]& ], 
         TagBox[
          TooltipBox[
           {GrayLevel[0], Opacity[0.4], 
            LineBox[{481, 351, 340, 312, 466, 355, 327, 331, 446, 341, 443, 
             314, 356, 332, 336, 319, 303, 309, 322, 278, 316, 288, 291, 289, 
             304, 280, 294, 292, 286, 281, 246, 252, 254, 257, 256, 249, 248, 
             251, 244, 285, 298}], 
            LineBox[{492, 445, 371, 441, 442, 367, 388, 491, 364, 338, 391, 
             438, 497, 503, 384, 401, 412, 440, 436, 531}]},
           "0.8`"],
          Annotation[#, 0.8, "Tooltip"]& ], 
         TagBox[
          TooltipBox[
           {GrayLevel[0], Opacity[0.4], 
            LineBox[{545, 542, 430, 514, 539, 434, 361, 399, 432, 377, 387, 
             435, 431, 380, 530, 386, 437, 409, 408, 368, 365, 389, 439, 411, 
             400, 383, 350, 353, 370, 354, 390, 337, 363, 343, 345, 366, 348, 
             335, 310, 339, 311, 321, 326, 307, 301, 306, 313, 308, 318, 302, 
             299, 277, 284, 297}]},
           "0.7`"],
          Annotation[#, 0.7, "Tooltip"]& ], 
         TagBox[
          TooltipBox[
           {GrayLevel[0], Opacity[0.4], 
            LineBox[{296, 325, 329, 334, 349, 382, 330, 328, 344, 352, 385, 
             529, 379, 362, 347, 376, 346, 359, 360, 433, 375, 374, 397, 378, 
             381, 410, 396, 398, 429, 456, 407, 405, 424, 425, 428, 406, 427, 
             422, 426, 464, 423, 454, 455, 418, 416, 419, 474, 489, 453, 458, 
             490, 496, 528, 472, 501, 527, 502}]},
           "0.6`"],
          Annotation[#, 0.6, "Tooltip"]& ], 
         TagBox[
          TooltipBox[
           {GrayLevel[0], Opacity[0.4], 
            LineBox[{394, 395, 404, 420, 452, 403, 373, 402, 393, 421, 480, 
             488, 457, 417, 449, 451, 470, 471, 463, 447, 415, 459, 414, 450, 
             473, 478, 448, 413, 460, 462, 469, 513, 487, 479, 476, 467, 485, 
             511, 477, 475, 482, 526, 533}], 
            LineBox[{525, 532, 499, 483, 494, 484, 500, 524, 538, 493, 506, 
             495, 523, 521, 507, 522, 508, 544, 520, 519, 510, 509, 517, 546, 
             505, 498, 516, 534, 518, 547, 536, 548, 504, 535, 537, 549, 540, 
             515, 541, 550, 543}]},
           "0.5`"],
          Annotation[#, 0.5, "Tooltip"]& ], 
         TagBox[
          TooltipBox[
           {GrayLevel[0], Opacity[0.4], LineBox[{461, 468, 512, 486, 461}]},
           "0.4`"],
          Annotation[#, 0.4, "Tooltip"]& ], {}, {}}, {InsetBox["0.5`", 551], 
         InsetBox["0.5`", 552], InsetBox["0.6`", 553], InsetBox["0.7`", 554], 
         InsetBox["0.8`", 555], InsetBox["0.8`", 556], 
         InsetBox["0.9`", 557]}}],
      AspectRatio->1,
      Frame->True,
      FrameLabel->{
        FormBox["\"Dean\"", TraditionalForm], 
        FormBox[
        "\"\[Kappa]/\\!\\(\\*SqrtBox[\\(Re\\)]\\)\"", TraditionalForm]},
      Method->{},
      PlotLabel->FormBox[
       "\"max \\!\\(\\*SubscriptBox[\\(v\\), \\(y\\)]\\) \:043f\:0440\:0438 \
F=const\"", TraditionalForm],
      PlotRange->{{0, 250}, All},
      PlotRangeClipping->True,
      PlotRangePadding->{Automatic, Automatic},
      ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztXQtwVUWabu+9uXlDEFB31TVa6rij4+4CuprZqZlld/A1TqEMigourE4W
8YXKSwwkAgLhYS6RkBAJhEQCCExMDBeCQJCncZCHijyCoi7rrltuuWWVZVll
VW9/f3ef0+em77nnXnFmanexcpN7Ht3f//X/7O5zvHPcpPG/fXzcpEceGld8
y9PjJo5/5KFnioc9+bQ4FD6PMdYhfnYWM/zNxZ/qo4NxznHS8ms0/QqLzzgr
ZfJfiD77iZ8SFuvhdIV5npXGWU+shP4sKcHvUlZKJ3G9uq4kxnrEfUNlN2Po
V65sRp2iZuOlTjc9sVL6HVLX4lRpnFNXJbEexntirER0jbM4hnP/YDYf9jQf
UsfQDG7HbylZnoMurkRK0nzK1vtKHogPCZ5L1A5ACT7OJF1a0IDg+0qABErT
r4YEYJ3R0N3GVDelLM4Tms/2pX54KmUIe5RhuI9CZfrrCmO49JAMpGMRR9mU
tCHLpUV0LMc5xgxJjetst/ahY1m9bkWvUvqo5Lh3c4WGqpr/9OVmN8m7jlrv
F92n6F22yC5X+LXqyavkaF2oBj9eKnXCdk1f+gYoPUJ/1HVJrrUcK3SUxr09
EqDbQtWtY95C6WL4HazbPoZuGLeHA/R8npc3bY5aZrSmedNmbbsmGW+2ay3H
/Hjz61YKXijOxdLtUkEOe+4NB+gzgTHtmc1LLlAGKD2TFMdyXTLSbE1ajtlI
CwfrWfNGzs3RiEC9OryZ94aCdRtA2QbQtzzDqfsq0znRO4u5p9N7gWNMAXst
SrgtYG8J7NmseaD2wTEjtv3hXF0oje4LmIzqrvkhzibtzsdt5tjbwHUSR8iH
MUWqLeJ6rdjIN7gn8vRVzlcS4YyiLcTZjhX63Z6yc/duN0tJEtqTx9wkt6fs
XMVcawojNTHfm1U6Q+T1dfr8UnnrAJ/hCqc6Nx9pfo63IZtZhlOeC8uCQeEM
WY79sa7739LHnxIW27GoV41swTCc6hy1eFFyYHlff/21c+x8y3W2e23HKEsL
/UDaLyNWdv8vvvhi8MGDB/XxX3R1dV116tSpYZ2dnSzKT3/ykbjvvRPH+NK6
Zbz7+BmWww+dPpslGyz86quvnAZ/k5rujMzf1mQe/+//OMayedOKGD945B3A
pJ/6hpf5/OpavnP3LhbBkRDfc2CfaAEnXt28HdhZHn1mQRq+qbOLV4ob5i5t
5rve/5yNTC7EQDXGpnvLshyLJFPFQgId5scO7eANq1cStyHFMPA9v6CK73/7
gPiGYxF+8qMevjj2Ip8z7wW+Zc/bGvabhz7g9Ws28DmLq3n16jbeceAUywf4
Euoqx9c/O1VX2FN1ZSUX+0rLqb5KkrYNDaA6hSRhuqamcQ1v37lPQIUYYWJ9
ZesuvvPdz9hAwFfmeumnn3569cmTJ+nbdT7KEXW4d0NPcDlIgj5Kjv/81yPE
tGBcYc4x5SDVwu+jH7zHX9/SwZs2dWgxoFQVlS/yePeHUgwxQuJvXrt2K39u
fg2fObeFv/K7EyBr++c/ViNks1EoiDAn2KNSe3fSJYBk5Ca0PP/1b+/ydU01
fEPrRmkGAlSiPI3Nq8WYrd2wXlwPKxDikEg5SrCOXQf4rKoGjBEboARr2dLN
K2tb+DPT63hs+Q4h/MesAIJJdFnh77777i8/+OAD8pLi7xu7u7tpVowX4Soh
edltjP382aP8hcWtrOzBoeyin0/jE55axB+ZUMdnlm/WCY1ZdETTG1NpZUV8
W8ca3tTyCo0ZGGi4X1rFoPIucMGeX1DKhov/GsS5ykVT2V2Xq2SJ3cmqT5/N
Nca3Zs1mIuB8+ozwrQc/5uWL6/mshRt5w9rDA0i2LL5p61n+29IlvKn5cz5r
1jb+4rJtTJ7LA1P85VcOCq3fTLdNnlHPHhx6OfvJ3c18wcL9bMn437CrRr8V
xs3CgzQtms2uIjBjwEF2ehQU0Gc/UoPKRQvIkYCC0433MXb/SkXHIDai4iU+
L1bD3+jaAS/KFk74GWM3j4dzYsseuY5dX7ZXiAUeovzgyU/ghLSa8MYNbVCN
IqUZ6zoPknaIb6T6QjtYrhrz8jskr9dMeIuOtG1fy24RgpWLv+smDJH+KIfd
MvdznHZ+xv3zIpPKQrq3H1/X/iFv2niMLml57RSvWbmXl81uJkN7aloNnzJl
PX9h7i6+aHE3r1t+ijVNGsPY0LVE7KShQ9gDizCE+BZmk0bPZgtFF/gWwmea
/kMT/dHxfRQfVRhiO8oHsVGNHzmkF4+YQWGpbE4lrmONG8rZ3/39FDZn3j+x
29n1bNKOsw7Re46e4DPnLSQ3D6Lh6ps79vcloqO8dfcxMsvYqla4Tj5jQR2U
K0fqIGubK6S9Yy19K79jCHt4NW7S40CcOwTDiutf/lATnE+X5cJbEaHPPt/I
n5zYSOb56GP1/LmyNpgoj8UOiyYVgUPl0ArVFQIk6i6RTVz7pGLJeS3i7/5+
G/yUwytsOBmviJLCZ7FXn5fqdvvid6IGpbikYe0monRx7QrwWEiUZvM3Dp+l
QAqBoUUvrthI+lwxf72jw0JPtYISx9DlJyYvgR3DpsPOZWNAuUMxmlxac0xT
rEaCKG7d9hlftf4o+VHo8NTyBlDLVzR8/BeS3fTYupgf3LeZr1nfklILFy6t
B1tsz9F6dqPyeZdeNwxejx063cxGsAfwN5GH709M6eSTZ1XxuVVLicL6V7cJ
BOCuL6scKe+/dupbdGTX+2vZr4RtVwo/gO/6PBtWSS4TkoIYIbmwOJF1iZbA
giJMjAY+C8lnJPINhyAsmj/2TBWxR+dWz2bXKF8SoiMRUt4l1Uc16Vmq4drG
/Xz8+Bq6/amnm3lFxVYyAXEpK86E8X5817ZX+Wsd7Q7jiQ72rplLiHGwJpIE
dmjuYMaueJrPWzCfPVjM2PXztN1H2MIp09mjwpjhPVe375UEZ7FdtcKgR65V
ZA5hj8U/Z55zP5nBJlY1sIdvK2b/WPGhIiFMKjZtzhKolcw9FNEIRJImfBZY
FVt7XhGU2brlMwTBMhIJkmVT+Ym+g7yyHsfql3eRJ4bjEJ6YhRW5jas/o2bx
7bIUhFM6U2CkZ8j0RShX6Vl/Tzivql7C3+g+Qi5TpGasrUzEriuV4l0xiP2o
bC/ZfdfB93jrG7t5rH4Vkb6nZjobNrVODIHkc83UIexXtVJxwa1QasGn9LvC
SbCp917Nrr+3DgKymqd+Da7CSrlAt6KWfpY3dRONyHOkAubbfLNDNRQSNlE+
YTarc4Ynj3gUHoF4hr9BnoRr4afgnHFu5aqzV6env3lGnrihpY5y9WwiNp/I
hMPU+WD1KMZGNChv0PAAkgI6J0gU5Ai3KtpBXQhvMuzOWQ6ZsHyQicR43ey7
PWSK4MXK7rnWyQhg7eLvbKWnsFQQs2jpVhW8ChKTCIe4Z6e34nrlCGTUEcRq
X6Avgz8QGUFI8TS/ci+pL779KDPuuve8juyZWJPc9aO4jURJc9dWNrgXdzgP
w1yxcQfZOuoiwTe778572BpKL8FRoaOMwmuyyWNuZj+evFfXSwj6hmE6xskS
CRTeVuCVFquZgNtDzAGJ8KKCZMpM4TVVJs7+KjNKUHKo8kKogSz9UOjW1teh
WhXfQEQhUcFGNSv1Goz0h3fuf8cpwpuXvcIeE1SKHJPNnTCafJ6kJd/xhwIq
u2fIlWxk1VYKwnOWNJJTapNJJfREBW+XDpGrKzqifOQ900kDoAnzqtqIDkFL
CNYlboG+aF+VJhu5lqJST6QgG0eiIjIQIRHkzyUDwz9tWOShRHZHXig+m13K
3FVqFWbpnIwC2UzYFv27bMQKUiy4X0gM61HRgBhR1qOUJOKwguuFO8lVnuzW
W/+F8ucXqygDIs8GTyO8NxucGROH39pKpRg40EwgH0NCUde0TpWcUb7mtTiS
Cy2hTBjWbM5WNUbHgVM01NDWZ8oXkdn3UbWXFgZZFLRY1GIsRw316DEvwEfy
ZbUnSEWQzIrvQ4KEIJu1Z6n5meOnT1LpDzGEqmopRAQi49ZS4G/hBLUUG3ce
JVtDxEwmBSR4/IkGUthsJQXOYRyglfD6uEZUjjdkNiQ7tqyjmQxTHlTKkAXD
IDxSljFNhsgJx4XMWaTGcr5JnBOFCUIcWQ90DyEsURiA1uVwSCkZhEeI1OES
3zEsUDLto6GE2gRTjVUSKTt+10jFremQDr13hOae5GBR7kVF/ksNzTQPIrL/
fBWmUAhgiFC0K/+AIK8F1DEe8Rj+QoyqEjBKlgNd1QIiRxIklGQiRx/tWD1J
D+Wbn6xko9h9bLE4F6uvZJMG6XhAGXxYiQeNRNKvavY8NY2hahyajxCi9VNi
IY0jU5q2kVI2kS87Yj30cBWlIZjqwJihvhGi/w3Eyk2vxpOyRfmK2oXs6PKR
nry57M2PQspbYPr2pYlDnXiBkCo8pRYN1TF0FqP36vbDWjSUcyg1kJKJICdF
KyRfBtGQNEC1YGMQFyoM9cPcAURCloVroI6UWg3ITDZUWYlVmBg7KVshTUN1
7q9mI0Y1q8JLxkJEge0in4XFQUAqbxdXY95JODUpIdIAUSaQjxRi9VcDhEEx
JUTBLgYwhD8ESDh1RDwnBb80PcFylEL++5l3ENt6FeRKMfmufbspsdGJD/6J
RCikXAqEQcDXwj03v0ZwJgVDjgMvjh8xdFowaJwpGKpq4SEuwZergsyNyjEZ
SMEIxFvGhaBjHke4O7MSFiFaVsRwg3AIuogA+ZW1LQp7WM98EeSBKvkAaLg/
UH4hPq9Lj/Js+ryAcnVhK1QEJdaZwl4Iu8o/2aEdFex6J8GS+Tt8m4kdrlvE
Ig0dGQc8tgkdxYeGXoTPwZlAH2jG/15TsQg6mLSASsgJh72uGxtUwdrUXCOi
C3wYAq6AzfIUbkxHizBJiAcYtS+ijgjywsoE7r/NBLc36EdU+EC5D5VFBhdV
6oyoiKFfWL+ezgGfDveYXMJxrAVApZGYaJyYxtQ4C4Dz5uQ45epTQeDFd7XL
L+wjnhkdtXgQF9FRWKZnRhK0QxT8KBGz1QjACyGEYDFgoDECCIuQLB+S/TS5
ZH6Lg2otjfXeROZtSou0qn4xBXgpjLuMpotakctoqeCeYL86TcMgOWla2Ikg
pl7BuSJ1E3WDzFJ+mVoq21JPUqmopahRP6BeMIfH9KtZaoVi/3s9pF1uXhYm
YVR+xfqrfB+BTk/bCOzDHM+YsLhsW/cOOg4auzFx62Df0LrRWYLV2I2M38EO
J6Wmktj5CjsKVTCPwCyw33qOeU8ihTG950iBZTSELlMKuFOk9cCv/RIMBZK0
vHZKjUCYki1VWrHbfliDiFpKci2CMcOjitCwMyuB1VidRGFgsNyAuV9h3Ocr
KaheFGkFosLtqRyWbWm818YoPwGWL51P2w9MAYxpFkcALFdC6wFdpxIAjzIJ
HkpovhYAyiTSCCxQsjsCRwY5KMbE2bwF8z2o4GeAzNSMta93UmQwUWH1BpEA
2jGvqo1WRodnBuPs6bdpNE0YuoozYajEnwDkGOQg14VTE0GpL2DcHSSRkrsy
gEChkJ8njtC6qgcLNE9PtmoscF+oPFwsXmdL63w+2zD8+DAnGjQG7D2oa1rn
wYBEon3vCbX+IzEgoUZpI7RDrmnfmxmG/V2t5OpMDJs7t9AYmBh0RDUxGOW0
nLy6PzMMZnWvMWxqayV1TLR6WLc5FpiE0+6X5h5GZ4bB3BuiMSAkwFBl7/IT
0wsYD8xzagzYQKEn82gC+MHMMJjeL2yYKbhHnqx5QLGFrAa5vMYA74eq3Vks
Gfs9jMMGBIWGWlF3gCAewngxaa6BYIUXRiqdl/gclx4ZEcNZYBXl+OmTDgY9
hWUqpurfo5iitKYlhza9zPZQZhiw2CAqeg8P3Yd+Txm0yQN4QWZvOizMxhhz
Rg9nhsA2EkiCUYomjoTOTLKNmI6aCC6iNLPueyeodss0UwrdPTx4ZfVmai/D
7lUB6eneNErdPZwCHKLZvYhj2JyUqvsclb30xOMs5j5SR5nKhT7QEE71RhXT
RFBzm/4C3xFCHdV4JDmWbI0FD9GUlnoeKbsomc2GFCDM0+uKNWzJPDQgc4dQ
KkCaHHM3vfdZJjs5JpaQJdDrcVObRdIgJ+zJlP/ccnnYkmxoPmDLmHozMfTy
HxPS01W//sxAqvnX9Y8js09/eZJVz/OFQvgLfGB8cvItXl3zkgeGWcpoGGYC
mgqG1ks3D2bOY3nWjcWWHEtjwQKbDiMai5nv0RA8mhxLlqJE5ekXMXYD1PFi
1zyipnnQj8qzbAWFhqD22ASCYJYFPXK/48SqqqpLfJgw9ro4BmEm4EkdmQ8M
+StyzfHjx78sKipqHT58+E0HDhzws4k92zeR+zZhmAsMmg3sTFCTDRLGYymV
I+ebb74BC2eKi4u7fiH+dXV1+SqHWa1qLOZ8gU1RU2GRc/qR4jNnzhy46aab
gGV8bW2tdGP+O43FuTCdzPLsNObULpM7ojX0LW1NvHPHNg90m6n3Cso+0OWv
LIzgvGnTplVNFP8EnRhdJZZfhZ3kwUs787Zt0JhIU9tqHfhm6RPF5+PJ4csd
c9GiL7/8cuyqVasAH2IMb21thWYUGJEtcZpDb0rv/RSkHb6ZEoV8vAqUGmuw
weGHoTR/ffjwYfrWVwc/ywRTloPSfQLRfdgirOYt16yqpnRRb/fXO+Sx/0Sj
NGsaV0fMiS6FbdXYsWMd2H19+HQ3mruPTFmfS3FXtHSSRT94QEFUOBFLApMd
jEYrVL+HKWxPzyVXgShftuQFqgU0ZFU0a8jtO/dR+u2M/BPpQS5yGHT9hev0
Pc+p2eaCNEojC6IfeDvhEjRKY+E9IMqIgZKs3GY6tuRA54hqHSyl5ZsBORNo
pXCjMlU1nyj1g2amT35WbW43ob1bT6aClp/Imvpb5DKlblqrKXQfYpJG7iQR
KpkJnOwHA5ebHJzx7og/8yHOTLI0cZiHx0SFic10NMGw5RnYDLJELhqLcycn
Fe7HFuZDyggSdvnqrCdqcdK0Q2hiOsPJ1Wsz3HTU1cDkJZyGZqyX0Y/KhKKW
8BcMmteLaD8czDijibtz9WykhmPOzWYCRz+CbL69Q5YT9iRew8KDKUhuNCw1
+xC1pGe0X/KpNAfQVP14TEUsd7XAbwCNFUHTwWpoZqUVDJofY4hKyipFFDPK
ca+b0HtfbO5V798xZksygHWZDyOJGYfyoNmKEQDB5DUYefrc9ZqYQSjXmG0Z
h9S9UsYbpNfEJACBTXSlHwhTJNMtPgzLkj5qnqJxVEsmtmItx2WTnhjLsAcV
8WzzI+pprui3337rtOZj7sZ8bsRpvuf9PdjJqps31zao+WfSR6yWSXWT5jwk
cTIp/SZVeNBNqqcVM24SnGLSVngCmwFm0iQQxhZWoODTTZpTkKTkkzNrUpS7
IUs2kUmTiGVoUmiRblLZQ/AmzdlFBCNkOzb9dxszyxSJKsuDSoU061wDtTIl
lZT+7ZlKfS7aM+cfyFlPTd5ekNdLuC+SMot1DwbMk8CSmM2qUmHwW3p3S1Q3
dwsH6N80waD9+5X1Jh9uicyiumNr9J6aqF1Bdns4mY1gwsI05iI8kiItRTnh
rCZN+56S6szYzvR9LS0t37t/31cSiPykR2tgSdIR78WDuUeEitNnU2l9ktLY
mKV2SuNc1YpUgor2drb60WvlNYNnsDmyaym+T7dXetqiU3e2t7c7+8FOvzmD
3TxiBj2ZkkFbP9u9ezfrPrSEjdL2yorZk5t7JB3Tg/hNnSxin6be71z24I30
ULJLam+H6cFBP3qTKh7EmDn2JreFVDgsbemdotiFOfZm2lkpC8LnUrWV07ut
T7pY2WBFz0+fiARqJpLYjM11B0OUtCnM/mBVB4/T0pbdssADppvAbK7athys
iWRosqhWwoIL1ql1DZ5+a3qtAs8ibe8+Qoczb0Ut2X7PVtTKd4atqAcanHdl
4Cf9MadWZgYeX7p8ht3y7HKWZ0bPH+w2mn6q+GFuc3nLsBeygef/tG7LSryN
9HBW8ttkiMv2Tew8L/4w5//T7y5QDnfuurElMI40xvqufIQvYkiv9EgcneX8
FSA7k3gj9L1UzxuWxm0T53Myg6/zP3qzjmLK1nyO5VhhwOtsx2yLKn+se22r
JTbZArxkzH8fr1r9SELx/7+z7f+evD6VgZ4C7+W/zHck+r2G+i5Po1IXxyae
gkvuYfF4jz41wrxLdeusoVv2sKgXaMvtxHq7t2hVTkfneXRf+v+7LHdQjU04
fO64gX4NcGcGBDzzGZi4xgZo7glWUmL8hki61vI8N8N6FdsksVsOYpebWxbm
2GG4LziXQSCXJXn7pueWkI1gdV2BUpTE+RAcdV7x1q/Xe7rNN9tLQmKKCDrZ
6yEi3H+xyXN/5n3eCMhKjCUGeYsbtdxjrsa690iHl88cJ+hZc3LXBnrX34k4
Ev9OfLG//i770ds69D1uvHOjraMARg0u97Nc7FIVLzUwq40LdL3Jidm3hTdn
iYYbr4Jzz19i0n9+IPrdN98bx7jsCqNdote5Iy6zcnTyHMv2I9fM2HI8+2Rw
LkbfY/o6G7f5lmOyuQLnfzignWFi8wmCq20yjla7akenM2HPVD7mTb/UwGdp
ywRrevzVOOaeAwrVixp1d2rqLSEZNLuzUTnAaNa1ah8qE12gwYTJ5RDHAF2O
3Fa1wbqtuihsxiDXKTWh3sEX18fiSsJkBm+4Rn2fu4yelPhIordOcKGqjYjN
3o1Xqzv/W40SdyVfdp0Iy/sebD0ozjvGe+J2e+/vNG8NY6brcaTwslIak5Dc
wiHb/X+baN0w3FiOoU/6n65cXFEQykv1e/tcaSxBRtcldu3NS7DehLelyx76
9C4YexFgCiwCr+TZ9qJTufFDry56QLnvC3cV4WLz8qhXBjXgpbGey9Sd5vs6
1Z1POsHEhRhRuEzblM/HJiRr7Lz/AfBu580=\
\>"]], 
     GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJy9mHlYjtvXxzOnOEkkpKiQBs1RaK3mUfOkSZrnASlliJSQCtE8z0k9zaFo
MCWhQSqhNEjiVDJV9Drn2T2/61fnXN73n/f+57k+115732vve63v2uvZYOWu
azuXjo6uaw4d3V+/1GcYqL9dwF0mrTi69AvY/f18BJX9MHasbgDE/n6aof3D
7bsbEzshJvqv5zrQ/eaZac+kqmLFsquXcN0sbthx3C4hqZ+s+/T/nWfu93f2
1qNa+mben6Hh0V/PEDmfIbKf9lk8c/7M899/6tvBkaAR8v4ecj5jZP47MIrt
7DjwcZR8n34YsjnT6naBHx0ULeIXSDfD5EdrR7FnfFgte7Dtq2TTLNa2i67P
ZuHD1TJnWQbFGkHPtEPaWGMLHpBO0uwUfgq+jozRBcd48YqrC0u86WMQrLnU
uCxnM6rYRZ05YfAIhpYX3ixs2ITjFnembLUeQmi6ZNO1gY141WjYS031wSym
7osHqfu4A8VDd272f+dBC232oa3y92aNz+SsschY754NxL8q6NDUKng1wUHW
L4djd7gF5L5zkf3VzLKfyS/ycxcV3VxP9lNB9r+ajFNmrT+Tqxg46e6psBP/
imfNp+5/JbHPmjVO9YeZcNIsptovJhz+W56ZbzPX+11+UuNDGl9yXap3q6kj
9uJIjduKWUxdXwS7jeway/pKyflsxYHqJS9VBQpo8UQdz6CdP5Wv0M6DykH/
4p8UTuvFrk8MYf2cCsjdVDuqT3+X2MtgFCVJKdKi7Lc8QfZ37VN/wvLCQuDx
m5j/duc2DHA1+biWMZfEjygZTyH2fIQv0uKLyif/2V9/WVzT6hjSkFJC8k2N
Fo9UAwVavPyOqeclOyMeZWbEk9SMeJGaEU8itPiYyf+d7/7/sh8lDE/ga69d
UQTmXq824F1trNg/dSRfrQpGNe8otVupY7r81MS78hIyXxUZrKd02NYUzuKm
kaMnDcyU8NX8Ka3zX3JB5ULjVmdzeTI/HTaPhqu6JQIZjyP2koRDyLgQ4SO0
/Fu1bQrS+I3+xX91fKG/MNddroDEjz5WcGkYR92qJPaa2PGlJUU/iDKLJ8j3
u2P00em0Rw6JF2VsqhYNt21JJfEgR8ZjaPFF5bO0eKKy7z/7h9rYMZIUXFmV
D+ye2yZDfI2wcsenO7fO3ISXT/9cFcWvh8eaNAJaTMl5+utgk8WzjiXRebN4
45CqNrOmFmaxMed7+GbBlM3GF1bs6mR+CgwwHRdr4FIi41HEHggHz2KqvSRh
n9/qx99PlS4KlffT7w+7RuLfhOjJdVI/jLA3ROo53eJioo8GNL2gLqBP9CX3
t0yNZx2avlDzQ5Osl0ziW5WmN9P5NK030/lC5UP/8n0MkE3k/UXLO1fhhUt4
a7uQBU3/qedviI77LNtWT+b8lqfj7+Nufxa/K+lgGlchf81VB/eTfK3MkJDr
8dIg45dpekflQDK+k7DXP/tbZYTRDp0MHfI5JF8tkfF5qscuhrJZPPoaONU0
LLH2M69ZWE0Jya+9eGRFnnK3bzG0yWtOmSdYoPjf948iKC/8tuByhDm+1ynn
CHxfAJmRCU6cJ8ww7ddqz1MpRA9M8a9RnfI86Npc6mS53QT5fq3+mXf6++0h
ep79f+b4EoGyi2VGxP9Mog+GxN+02fwisi5xUJ/4m0z0Ro/4lzCLy+1Yqvyu
6ZD3RZPz0CLrRcziaf2jzg+l6Rt1/NQsntY3Kh+cxVQ9E8DJ7JGm3Vba/7t8
QxOMdL+dnDWRBbuLDxpf2m+FaTJHd1d9JXrsb4pHj3Xdj3PImsWSQf2rt+w2
QKGfGRUGavFQx3Eo64iNLNb/XN3cE3SAal9lhiXXD3vJv84k8WhD6m/JLKY6
ZEHqbSbRSyNSX+Noekmtn/tBUDT5rlSDLcbHvJRfLUHqH1rifOkvW3sOZACz
x7LhNIE92OizeYH3SAyIOTXmLwpVwG0Td4y1vngSvbTH3gMXRYZ8isj+9pH6
m070zxQDY9jkwr9E0/Qvn/lmK4OWJyyhNIh2bXbECJl1ob1PiL5WWaHY8M5P
P/rTYGiP9L31S8zRXe9IpfDKaEj4O/6U8UvID976cg9YprLKP0JSArn8rP5Q
rFYjeudE6v10/bMh9TyN6NO0fkTBe8HxxKCTLiiyYdLk1lWif2iLkr6uN/al
pELvBlHNx16WKCugfTgrLJLoj9t/66W/HanPqURP9mEX0bv6q5uWCr50x0NO
PF70ZaS+Vdnj5/XNAn4XU6CRVVkqxNYKP50XjrNUvQI/2s3OhR70xC92t9ll
MgqIXniQek8heuGB/J9/8ny5m0fi151Wz6l64YbhK6Z8eTZfJXrhisgzlX7T
KJvkizOt3lP1wwU/iU091Q3OJHrhhMZ6U5tOvEsl5+dI7g8ps5iqB/bEvySS
b3b/uT/8nf825P3RJL/3kfkXSf5bE38u0/Rv+r4xa/9E36j2gTS9mb6PTOsD
lV1mMTW/d5L7ijI8i9hS+S7WEws9iiWMH+WT7++Ex71Hex1zkuE2oxmPmoEN
1n/mOtwnehk+qif2r47RRtvRgOROeReS7/vRSLTNQYiZzPd3JvedZJLftij9
SDqWszSC5LcOfruRevh4vDPcbb79aafqAVTttjGxsMqDa3SeTPSKdvgC5XdG
yEZA6oiG0+utuuhrOH9izVxnks/25P5zCWI+B47fFXfAM7mb+J+5XgK6ncrx
/af9yK8zcHOeCWQ7shMtKdFZ65xrAIPVcx5a/Lpnrn1SYmzmCMsYtLg8g7fj
B9eEpliJRgjfPbYiSHALOrRu5Z9s+9XvFnmcvrtUELuevCwue9AI/h4Zqid1
zwLdCz9LUZ6TIExhrlgwLwKSJLZl8fd7QnJvCz0WdIHiIhFejZFqYE0Qqxey
fAsXTss2tK1tBC+xHlHVqs/QJisyznvpA9yT7Gz/aceP8nMEODacaIbLra/b
OI4MgnjYM7Vo+lYwE/hB+c79EZ5zx98Q9+2E8mwRJa4rw5DP7f8uSrobWN7v
kVKcksN345o7n718CHrezqF5wVLIdkjpgsn5l7BYREk/fSMfmpSJyvU964cN
bPTJL8r58amJaZ3A9yaodT5uKXOWH9kMnuevF26GRyXlGUUx/Lg8y2DwOHMz
FHVOBBz5tSV6oQn2hvQMGHUV/9CwdjEOFTB43t8eA+aFNom57IvRUuiBkaFb
FDhkhOVPMi/G2jH6S0IeUcAtbP0Sn9KjU8ebV1lFMeDVf+XgTTZ6zPS1eZ/Q
mQCxZ9dd53BbhLsnQg7VPUoC3iZZ+3NebyH8CWsr2yI3cGFcSTFXU0Qerg2R
b5a1AJu11U31sJ24jHfsSNWXLii3kBAsZxFExttGeUx9b8E7d2mPK5sCSvWz
9tD51kCSzEDmt9LtGHtUyfZdYz2cooy93XtXCseD+BeOj98HFvPM1mxZcQzp
HhgR9quEh6FzCk3StmHEO0tjrWsUkNv+vehhnDS66c23M067B9d1ItueeUth
RCrLMOfjbCiVHQxYFs6Pot3+HY5szXBxqe6jFAdpfCh72OBhzT1ItSyL170o
jusHE2TLlSrAxKfqwHImbRy91ZmR0XEHcja+3GTCrYK7jBKZvLc9hwQTKbsw
XsSAzQO2DXRvgJeTX/2MqTDaptIpvLYdgAAh21K/Pjm8HCvG0tN3Fx5khj51
kpBFkSWHcqXkimG6fxbok+S057gHPnZ1HZL0OzCAMuEhQ7kHuS3KYpuYd6Im
KD3sG8uBkHHP0vSL/DjUzhVyenUz6LyXY1kuKYVTx0tl8+xzIOZTrkDBDVkM
Mmd1U3UphLY/9A+l3pfCP51FjvO2ZcBrSlSPeL48CrmsTrylUwsN8hR6ymVE
tybWUGXFUpCKaqG7TrcD+aMO37hddQ9WfY1bV/VmBz6oowzVnc+FGA7zxd9W
6KKDw7hZf28dHB0aa+HlVcdJQxeuerZ2qIkVity3SQ57KwTPXUh8A6xXWgrF
VUVRRXNjYGXhALjLnm6+aqWNgysoHjKrKiHdiD3Jzl4Bqwr0zFzO1IAh93M1
/1FF9FGPNEqcSAH3FFy/Ya4i/ixqz2ivroLbYRtZNzXI46WO4KHQLbWwusa4
5PU8ORx6ZcXQnlkANSaJ2TaB8rgkTOyjo0EOpG3i28KxQAH79XM41d7UwDEn
/zwOT3n8o2C+uOGv/v37Ya3EZg4plDycVhWVlw99h5uOH9OSxcNGu9dpLCgG
indr0c3NgAOdGreLwi7T+jXWPa3sPrszoIdDZoy7RBlPlr/ROjdYBvEaLEaP
ryqgux3rB8fsanh/Kl57hFsfx40SQzT1G+BQ1ek/T0proo3PKpsXlh2w3Ltl
F7egAjqk/Fl1n7EHrE3l2E6DOMYGNz/Z8HYASq6KpWcd1MTUAEmRNYLVtP6y
6Px5u5YYCjwPs258xqmK2r320e7GRfD5FJ+5xEo1/MH+9ZC7SwlEjWc4BSxQ
xx7d8DL7PwvAc8rmrviUPI4vOrWpalktZNQvOHVWTR5/bjl+fpkNBaw2L+Nw
OCuLPFUePV+vFsGZ0Pc/Q1Adm6y7HXp35IPaheHxbEclPPaD32SzTzKt3yg3
OPlh3cpaGr9nfXRoaTwFUncu6Fo0Xxb5Ym4evrQrEHysVA8XKvVDeWK+UgZw
gaoUV+qgqCHy0mffVet/AmpKXufdMrTRSfZNuo7hC7iYEf5nr5gSWk15j90y
64HNJ1yD2yUkcemrnysN/ngHSUvoWy2StPFwHWtA/OebsJ0njZelQR1vMbjV
hz7LA5uMqSTTJQooqcU3KdqTQ7t/TybL9YnJUMCF3TOibCegmOCc3EsDl8DR
ZUGohpASfin+EXDoViIYzdlYu8QZsGxfd6e86EWQsPK1Ng/XxtNx3k/pmyug
2PHBUboydWROavNSlvzVvzLmMl1j0EHvFaIddrw3YGQiZtT7iQ66lRvyLt5R
BsfE6o949WjjGd+9Cj+FK0BVudQlwU0LK8Zr/AUepNDu/4ewe1PxtSQYc/Gb
Z/FUE+XmvNiiMpgKGiZ0w3rbVHAsskfW4lf/waM377zN6E6suCHaGBSXBI8P
6LkneezAzr06TF/606Gv0nvrQmYdNKva+nV88gZ0+c4LUGTSw7GhwvhrTgXg
37PQS41xLx5nUf8kYF0GRoUa+o5z9XHE2BH9xvKg1lSMs/ihHvZ8+7yMZ0Ux
ME+UBEsza+G1vkCPXctT4SujQ+4KYT3kVfapy7ItgParxglq1dpIX5j07H5u
JXj1xqiwXdVGLo5dleYVORCdptPzzm43CiwfK4q0zwLX9NM1bj1KuORBQqbM
cCys2sBpwuanjnyX59A30eXR+h1d+dsSqq8uwI/kP54J8SmggExKVDtHLVSu
gQ8LrRWw9Ni7uazs//m/Br8+fpN0qgCaStOel8Tqo/YDAYafSwrAkSluw7Ca
JR41L71PF1MMwsphvv67DdFub7QAu1wGVD8+tXz/biO8Zfp88NXibBCUpgsv
zjFABVHelofHciD2TvLmE5+0UMikkhvVU2DiyuPePk8drKbrpahGJ0LpuupD
XxfqImPBY/FNzdHwdFJJ/uIcbczVLprbLpEAPtL7I6zPy2Lwmp/FY5N+YOJa
/eryUVlcMm/wzoa2IshfZWM0aCuL/oxtFdIyJ+FRS64E86J9qH66Kir4ZiFI
rlDilLhugXuWGtxG1nI4yrvEypDBEhWeXjZesbIEtvnXbvEx2IOOqyylt7sk
gsdgt5RSrjEODE9su1ybBLGNTvM4goxwT8+3VB/7VCicu+XKfGtDHNb5qjda
mA7iX4QjDB4bYsVoofyX2HS4qV03Ub7VAM+FBH/fcS8bxK4Hehdz70GlEFHK
q0eJ4E+3a5xOzgDvBXW9eXsnG+xjJE+mlujh1wjL7lymcFhgcvCooKMWrudW
OdY9lATuabEd2S3aeK5jn6xFQCV8UE18ysKvg013V8YJRmeB8Lz5a10cdXGo
9opByMtouLFc9/18W20861tZXeWWCiE1YbYO1sq4Ls9MszUwDvItI4YbfQyx
XVGBY65KBjB1c/P6Zlqh0PzMqFjRXFig2GqpYLgHxebt8NznkgBBAzUW7osN
sdXolExTWja4Bg2J5zvrYEGtX+BS9hgIKTM2VeWSw5VrVnlJ9rvT7u8RHHRW
vANx4A9aky63TFH/zQvG+9fioP7P72EnNC3xamRNXOa7Yojsfd1wb44cLgpq
YRQRPwDMF7vS2jXlkHf9++Fxc0dYV8kZrD26D59/svojaDkFmvrqdsm/NkVz
TQWW73RR0DkyOKay0AHj/exaRuYmwye11roVNyxRz4HJ/GdSMfQIqzv0v7bE
+jI5+g6NYrhkpm8jdd0KX09FFfD9pIBh8bimwAkTLN630o1DMQbwTFbnwxEV
bF5or/Ko5CIc0nxd9epXf5nkvJDuyLM0uKqmJr5hmxXGO++R/V5MAUHKYd2z
blZoaPsmMq2HAl1aXZkfXU3R1fbmSKtaNFz37mEUPmmGnZufG2j5RMC6arNi
dj81ZGCgt+MUPwM5RR+114ANbkrg9hvNzYTAatujV6qtkWlP0MlnH3OA/vS4
N5uDHZ6ol96v+TYBKtqdwj/NdUAdPo1rdyZjoEhs3UYRZwe8UWtvGD2UCHl6
hkt93B1wvbWvCqdSFKQMv3mspmGPe4RKy122JEPsgMHJrnkOOBnyUXHuhSg4
qONy5a2eHaY35fPi02jYIe/A033MFkd0TkiHLsyAYNPVjjlytnj6fEifXHUy
PKfkL+JaZIteiw1vlPw6/2WlV2O8tuzF7c6egx8EQqD8I8/3h9ymqC7At1DQ
MgryWHUMk9N1UG+kY1P8tkjoaVPjlK9RRwnhxWf5N7vDh6R83uS1jhjeda7Z
81f/zcT5trP/rg1+CLp1+6VuFOzdSp9ytFIHx/W/9d5qvwJdD362NLLbYUyb
0Vpe9TRISmMepn+pixmrt656s+4SZMZmj9G32yFdeI1fUGA8eGRcDtB4pY/y
3emRbR7eICKQf/mJiz3u7zMzPfUkCgyOZ69Ob3fAp9kNy5M8ZvPMfJhZL2fW
95n9x8x+7X8AIzP2+w==
       "], {{
         {RGBColor[0.293416, 0.0574044, 0.529412], EdgeForm[None], 
          GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJwtkEFqQlEMRX/qSjpyP12CC2hX4A6cixNx7EwoqKAOtANFhUL5+EVRalu/
inZcoYIn5A4ONy/Juy95j6WXp+eHJEmKUIB3OEIKJ8Weu8AaxnCGLcygb4C+
oj0YEY8s+tbqyeEKN/keda7Q10BraFM+A7QKdeIOukzC8xfmFvqBLiz83yy8
cnmP1e/3JhazLtFUM00tfN2/bfFeX3sMNb/v0dJsPuMf+g+f8AMbWEm/YKf8
t3JX7XhSfaNaBnvdzfUfmXzdw985KL8XmXI1zVO2eGuleiov7+tqF//Lm+55
/g59+GIe
             "]], 
            PolygonBox[{{381, 160, 158, 408}, {456, 204, 220, 471}, {453, 223,
              236, 457}, {438, 204, 223, 453}, {460, 217, 238, 461}, {451, 
             195, 189, 441}, {473, 236, 204, 456}, {458, 237, 200, 469}, {459,
              200, 217, 460}, {474, 249, 234, 455}, {455, 234, 208, 454}, {
             466, 253, 249, 474}, {467, 238, 195, 450}, {454, 208, 204, 
             438}, {439, 158, 160, 433}, {436, 189, 158, 407}, {452, 220, 237,
              458}}]}]}, 
         {RGBColor[
          0.6475561922413697, 0.6621048038377155, 0.9114076488183553], 
          EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJw1k88ug0EUxb+hL+IJvER3djb2urLRpmzqT4VFCRFJ24SEklaraWojEULE
onwoLVGh0UTiDejWQpyb+VmcnJk7956593zzDY3HRycHgiAYEQaFZaEuFIQ7
p5jwLvS07wtfwon2EeFG+CDWFp60fxSfixvCj9Yv4qgQ03pM3BV30EoQj6Jl
mrfUvQnfwiw5Sef3z8KncK+9E66d33+R30QnFDad7+tYfMQMp87fXQx8L23t
f8Ut8a6Q17pGvenYrDXiBXFaiGu94Pw81tuw+FBY0XoDT3r0lBP2hVA4Y4Yr
5z0IOWvRwwP+hHjUxX/7DkU8a9J7if773GXxVzwxb3r038HTCLGikFXunvhC
nBEOhC3ne50XTzBXglltrhS5VfKT5EyLV8lL40Ge/LJQES6Fdc7MpwpnpreE
jt3ZwI8yuhYvi2cCrx9Dz+rsnW07/1Z3nK/LUZulZ6tZpH7Oea0Yd9aZxd55
A7//NTLopMjJEA/xfQode5sp/pkqZyHfZQ1PzJsS3+xf+4L+q9QWYNOyvv4A
lS+OqA==
             "]], PolygonBox[CompressedData["
1:eJwtkMsqhWEUhtdi34hcgFtwDfYdkKk9MCKSiZRToeRsl0MxQJFDbNpMpE0I
UcodYGogz9v7D556+v7v/953rZbOSkdPU0S0QgmuMyKhGV5hFzY4v4N7fAE2
8S1Yw+ehit/AOD4Fo/g0VNNn+vYO+/hR2j/gGH8rskq6B8swG35jAt+DdbwG
F3g7VPA+KOODMBPuoC6n6a5nsJNGrs7q/gS/+B808G14wL/hRHfhJXynjq+m
Z1HmGD4A/XgX9OJLyij6TKZn0mwNmEt3VnftULuswWc4U9m36S7a+TMMFfMp
Y1izwA/+CJfpnWv3ylzE29Jd9I92cwj18M60O3VSN+10Bb9Kz6oZNes5fIU7
qdtBurvO9E2ZytabertcvDcC3fg/YfhckQ==
             "]]}]}, 
         {RGBColor[0.698928096618734, 0.7446451597877066, 0.9125787700105312],
           EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJwtkr1KA1EQhe81r+ALWFinSGsrCltlixBNQBRLiYYQFFRUMKKoUUghmPiH
hUVCokUaG60sLNTCN0kewG+cUxy+c2dn587M7tTKelqZCCFkUQY9xRC2YAue
ox7+Bs6hBJ/CEirgi/AU9fF3cBDcX6Ffzi/wB1ZRBX8Ep1UngRvB66yiEfpE
Y3SsnGWYk5+Ez9HzhnBBPeThLfrAN+Gi4vY81buz6s36OkFvqmP1HtEufh8+
oHf8BdxUf4eK2VxWo8a5AXdgO3rP95r1DG3rvkRzHOjuPauje7/gt/wg+pyW
b7sZKm6516rf1Xxj7aipcweuRd/fUvRaI83X1buv0fszb/WK2o/tqa7ZbQfz
6mEGluX/Y/IWa+nfuIyeZ3H7Pn/wDU4X
             "]], PolygonBox[CompressedData["
1:eJwtkUsrxGEUh98z+QjzBUz2fARKWViZEQsLJRRp/I0R5X4tt1w2lFs0oxQm
WysrCxsWku/BB/D8nLN4muedc973fy7NQ5PFci6l1AJNcGgpzfG7CDP4BmT4
MIzjdajBGqzDFTwSe4FrfBka+DYs4Ucwj5/CA34Hv/grXOJV85hyKvgF3CfP
UW4P9OHd0KW3YA/fhGm8P+KqsRNfMa9d51m8A9qhBL3mOVn0l+HfUY/qv8Gf
4Q3/gXfz/xRTT1/md3RXMxrDF8xrUXwVP476nuAzvqlvj8AotEFr1KTa8ua9
qYcCPmg+a50HzL/ZiH5vzXegeBmm8HPzWarmM/Mc5aoG1VKJ+eus2W2Z39Ub
E/gOnCTf4a5mH/PQDvbNd6hdKke5H+a96U3t9iDm838H/wMKnk8n
             "]], 
            PolygonBox[{{290, 86, 343, 303, 304}, {429, 152, 372, 420, 421}, {
             387, 386, 361, 120, 423}}]}]}, 
         {RGBColor[
          0.7503000009960985, 0.8271855157376979, 0.9137498912027071], 
          EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJwtkD9LglEYxe99A+lrOJgguJVDYNAUNAgK0iAUCCKYGBXpFkHWppjQ0Cr0
Z2kJP0iDRF+kySF/h3uGw+/c533uc8/75NsXjUEWQiigLbQTQziE27CPlvhH
+IMytECX6IV6Dx64fw+24TXqoCHnLhzAEZrg7+A7WuPvPUszf9Er+qf+CXdR
E1+Fz/Y1+BHT/IeY3laGMfwLab7OZecpwlPf1YyS6/r+5nf1Ty10S/0Mrlyf
W5l7b9AXPbOY8innEzzyP9edRbtSlnPOJ/A4pj71f8N951GuovNo3zn7Skx7
lFfeir12XPNd7Wbqt5T7KqSz/AZLYTLf
             "]], PolygonBox[CompressedData["
1:eJwtkE8rRGEUh98zySdgPeELjGxZjBp/YuPmFmMm3MJGhHBXmvInFqSsrG9i
LbtZ+QaUr2JlMZ5f5yye7tP73vN7zzljxWF2UEsp1WEI7iylW9iGAuagFWe6
e4Jf/vuDV/wR3pOf6e4GPvBnOMKvzP0ezvF12MEfoG2O/BjW8Gs4wQvYwidg
HBowCf34XxmleY1qL2AD70IHFmARPqMf1ag2g73In8enoInnMI0vw1JkKGtW
97AKOXzH/MpUdhnzqOc3/AsGeI3vT9Sodlfvms+kt9XDGb5p3rvy9vFRGImZ
Nful+a6V+YJX8b52foqvRJ560G5nzGfRTMN4z3z3qqlih42YSbP9A7KTO2o=

             "]], 
            PolygonBox[{{264, 65, 307, 276, 277}, {366, 103, 338, 325, 326}, {
             329, 328, 316, 85, 314}, {354, 353, 293, 87, 363}, {330, 87, 293,
              331, 332}}]}]}, 
         {RGBColor[
          0.7976923827732895, 0.8586900369112642, 0.8983235319372154], 
          EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJwtjz8LwVEUhu+lDCYbBgObktmfrIqIjCaxkPJbfgmLSUa7T2AyKJPJZDBI
vpDndN/h7Xnvueeee97iNBqtEs65EkqimXduAY+wjrr4PrygH34Dc6iAz8CH
6k84hicUo5p6Kj7cWc8XNtTXgQPUw2/hGt3xE3hFL/xNnGtmm/Mernzos/6D
am/0QWcX3tg5pfktHzJYlrJmxtq1oj0t01HZI7j0YdYU5tVjmTbK8tCcs/ZL
qydrf/pQ68Kh5cQ34U7eamXtU/Xhjb21fyyD5bJMP3mr/QHk6i5H
             "]], PolygonBox[CompressedData["
1:eJwt0LEKQXEUx/Hzl4EHuHbxAiRKoShFN0oxXDHcBcm9i6wmg8li8gQmA3kG
g9EL+Z7Of/h0f/3vOed/+hfjdJJkRCRAFjsnMucbYkwuo4QKqigg8Gf6b4g1
tTdsySk2YjN0Vh4536O9A0T822NBbjm7S+tr5ARH8hsH8hlfsbO+sx7t1TtD
8slZ7Q93ZzN0lu4w8jvr7l30PM1TzPDy8z94kBuoo40OlriI7dwkP53V6tnV
z9BZK30HxM7eQmfq7n+HgCIx
             "]], 
            PolygonBox[{{319, 318, 309, 79, 378}, {315, 79, 309, 298, 299}, {
             302, 74, 301, 295, 296}, {296, 295, 294, 29, 266}, {406, 405, 
             334, 105, 355}, {272, 29, 294, 264, 265}, {299, 298, 301, 74, 
             313}, {377, 76, 262, 310, 311}, {404, 143, 350, 405, 406}}]}]}, 
         {RGBColor[0.843827839570147, 0.8740749824302363, 0.8776548886357114],
           EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJxNk8tKm2EQhr/vVym19ii4sK1NTEoC+VtUJNp0IcScds0Buioh2E2psVn1
B7sqXoELceM9uGgX4tJ7yL1k6zvOswjkzUxm5nvnmPzRpP8rCSEcCQtCWXgv
mO1VDEGfsKSvsWRHqAmf9PubZEVyLXrsY8kVYVH6U8lH0fleSi4LdeOOHmfx
LySL6MYxlOwJDaFA/qKwiV5ANzkSPlh+YUBcQt1lbKZPg+fNqNVq/kzOVNji
XYl3Rd4Zf558Leyjuboq5P8K12F0mL4TvU/L+1HyRPgrfSKZg6cvdKntpzAT
boLH9Ym5xX9GzBTdbMf4M/Qmv2dwXAXv9Vz4HTxvQk8jetrk/RCO6+jv/0fv
4WH+kn+wH0TPP4V3zJzb1HeGvQHfEP8tOWf4p9gGcHR5f059CbXNqN3sz7gl
u6k287fdVYnfF7bRq/gqc7tN2FeHWLvhvehzOo2+8wF1Wv095pzS3xYzy83V
aPl2kVW4fzA3u4sL4U76P8kv3IDdwiV2839Hv2TGd9zBPjlq6B1ypNh3sY3J
32OXdWwpMRk+28Xr6HzrzDAldon/+Gr03pvsr0LvA1Bihm/heRP9VjeYy3N6
fxJ9xxl73qDmHGgx5xw876JzW44yvDXq3aZG6+UeZt9XFQ==
             "]], PolygonBox[CompressedData["
1:eJwtkK1uAlEQRu9AFeGngKCQdOlKkgYLLKJJUyShWV3VVhJWVYDC1eJ5BwSG
IHkqLOdjbrIne5Kdnflm0u8iX5VCCE/wAFML4Yv3H3zib3DF9zDCe5Dh+qeB
/8MJv8AP3gaee80zModd8J4TfG3eawsLvAnlWJ/gQ3jXbBjgXZjhH9DBa+Y5
Vf9inlFZlXGDP5pnS7QT3o95NaOOH82zqv5gPlPflbllPlOzlVnZXyHHzzA2
R65MyvYLy5gnNSeLt6yaZ1AW9VAv7aBdtGMFL8xvoRvqljfG4R4C
             "]]}]}, 
         {RGBColor[
          0.8899632963670047, 0.8894599279492087, 0.8569862453342072], 
          EdgeForm[None], 
          GraphicsGroupBox[{
            PolygonBox[{{268, 5, 289}, {286, 22, 273}, {271, 21, 282}, {270, 
             10, 287}, {289, 5, 356}, {27, 21, 5}, {28, 27, 5}, {288, 8, 
             269}, {5, 26, 28}, {5, 8, 10}, {274, 22, 286}, {285, 26, 275}}], 
            PolygonBox[{{263, 5, 10, 270}, {275, 26, 5, 261}, {267, 5, 21, 
             271}, {261, 5, 22, 274}, {282, 21, 27, 283}, {273, 22, 5, 263}, {
             287, 10, 8, 288}, {283, 27, 28, 284}, {269, 8, 5, 268}, {284, 28,
              26, 285}}]}]}}, {{}, 
         TagBox[
          TooltipBox[
           {GrayLevel[0], Opacity[0.4], 
            LineBox[{267, 271, 282, 283, 284, 285, 275, 261, 274, 286, 273, 
             263, 270, 287, 288, 269, 268, 289, 356}]},
           "1"],
          Annotation[#, 1, "Tooltip"]& ], 
         TagBox[
          TooltipBox[
           {GrayLevel[0], Opacity[0.4], 
            LineBox[{435, 430, 434, 404, 406, 355, 391, 367, 365, 335, 377, 
             311, 319, 378, 336, 315, 299, 313, 333, 297, 302, 296, 266, 279, 
             281, 312, 300, 280, 272, 265, 278, 292, 306, 323, 342, 360}]},
           "0.9`"],
          Annotation[#, 0.9, "Tooltip"]& ], 
         TagBox[
          TooltipBox[
           {GrayLevel[0], Opacity[0.4], 
            LineBox[{465, 449, 443, 376, 424, 389, 352, 374, 366, 326, 393, 
             354, 363, 330, 332, 349, 329, 314, 350, 405, 334, 308, 317, 262, 
             310, 318, 309, 298, 301, 295, 294, 264, 277, 291, 305, 322, 341, 
             359}]},
           "0.8`"],
          Annotation[#, 0.8, "Tooltip"]& ], 
         TagBox[
          TooltipBox[
           {GrayLevel[0], Opacity[0.4], 
            LineBox[{472, 418, 470, 422, 402, 468, 464, 401, 429, 421, 387, 
             423, 403, 400, 373, 419, 384, 375, 388, 362, 369, 390, 364, 351, 
             347, 344, 346, 345, 337, 327, 338, 325, 392, 353, 293, 331, 348, 
             328, 316, 307, 276, 290, 304, 321, 340, 358}]},
           "0.7`"],
          Annotation[#, 0.7, "Tooltip"]& ], 
         TagBox[
          TooltipBox[
           {GrayLevel[0], Opacity[0.4], 
            LineBox[{357, 339, 320, 303, 343, 324, 368, 361, 386, 420, 372, 
             370, 379, 371, 380, 385, 383, 382, 394, 395, 415, 417, 399, 428, 
             397, 413, 425, 414, 398, 412, 411, 416, 410, 427, 442, 463, 431, 
             447, 432, 437, 448, 462}]},
           "0.6`"],
          Annotation[#, 0.6, "Tooltip"]& ], 
         TagBox[
          TooltipBox[
           {GrayLevel[0], Opacity[0.4], 
            LineBox[{408, 381, 409, 396, 433, 439, 440, 407, 436, 445, 446, 
             426, 441, 451, 444, 450, 467, 461, 460, 459, 469, 458, 452, 471, 
             456, 473, 457, 453, 438, 454, 455, 474, 466}]},
           "0.5`"],
          Annotation[#, 0.5, "Tooltip"]& ], {}, {}}, {InsetBox["0.5`", 475], 
         InsetBox["0.6`", 476], InsetBox["0.7`", 477], InsetBox["0.8`", 478], 
         InsetBox["0.9`", 479], InsetBox["1", 480]}}],
      AspectRatio->1,
      Frame->True,
      FrameLabel->{
        FormBox["\"Dean\"", TraditionalForm], 
        FormBox[
        "\"\[Kappa]/\\!\\(\\*SqrtBox[\\(Re\\)]\\)\"", TraditionalForm]},
      Method->{},
      PlotLabel->FormBox[
       "\"max \\!\\(\\*SubscriptBox[\\(v\\), \\(y\\)]\\) \:043f\:0440\:0438 \
F=\\!\\(\\*FractionBox[\\(\[PartialD]p\\), \\(\[PartialD]x\\)]\\)\"", 
        TraditionalForm],
      PlotRange->{{0, 250}, All},
      PlotRangeClipping->True,
      PlotRangePadding->{Automatic, Automatic},
      ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztXHtwVFWaP/bt7nQ66YT3Q92FdWCH2tmxYILsTkYtB3SYWdBFRhxQUBik
BwTkKSDPSIAQzJAOE14xEDCQAAKRDAksCEQENowgMoqwBgpqS6ziX6ssyyqr
zp7vO4977s3pvrc7YE3tblf17b6v8/3O73yv87j36Unzp06ZOWn+tMmT+g6f
O2n21GmT5/X91ay57JB1HyHkMPue7kvgP2V/xeYwoZTCScPPePyx2LaZxAn/
BHDbmX0LSaKN4hX6eRJvJm2JQvxbWAi/cRLHk3C9uK4wQdrYfUO5mAn4k82L
Eaew2Oa4EtOWiONvQFwLp+LNFEUVJtoIbUuQQiYazsIxODdML95yFB8Qx6AY
uB1+ec2iCl2zqFKS4j1Lz+c8IB8cPOWoFUAOvplwumRFfYLP5wARlKRfNAmA
Va0hxSaEmDhppq7is1JSP8pLGSyHMoxKoVCZ/jykNZdsku54LKiUTdQ2YLi0
Ex6LqGNEq6l2nenWPDwWancrSOW1D3OO2xcX01RV/8jLdTHJRYeN9zPxHtJ5
ieQfBH6pevwq3lo9ReM3x7lOmK7Jxz2A0sb0R1yX5FrDsZhSGvv2oA+xMSFW
mTdTugT8+hObp+mGdrvlQ/J9Tt6kOco6Q2mSN2nWpmuS8Wa61nAsFW+pxPKK
x9i5RLoiBWTLca/lQ6aLMemZ9Ut6CAPknolXx3BdMtJMRRqOmUiz/EmWvKFz
UxrhS6riTb834E+sD2XrhntRzamnVKa7oncGc09Heq4yJp9SO7lu8ynNxZ7J
mrtLH5zQYtsP5+oCaYjPJTyq2+YHcTapuBRuM2IuA67jOAIpGBOkmiKu04q1
fIM6Ik++cL6cCNWKphBnOhZLdbuncPtuO0tJEtqTx9wkt3sKFzE3VSbTD37W
Quod4Qe4huY4s03VdE4fKM/zSGBhAi/VKqAdk2pmGY79ENf9b5Hxt4TFdCzM
VahbCnO2PM85i+xlOBYxHIv5vM50zFSVrj6vM+Fz0WAKOpbXOSyRxyEr+s03
3/zo+vXregXuv337thLIXbUV/u6779Sx52Eb0AxbwjGlDJbnOcRD/3L5r/Ta
zVskH7cWPXvhIi2vrKRNpz8iWfRC22127D8/v0W372ukie0NJJe2fHqHhOjx
j7+km+uO0hVlVfTgsS9p48k7kmEAbX3//fe411dUMZXzUV0Ny9HV6HaPGkLU
/OJnV7DOebiN0cajR8mUxzjKh5ecxbpfaKslo1m/tAL/nyXzBgmPTR4lcw62
kBzBRu3hc7R0cx1dVrqFJqpO0Pfe/4pJAU66kaKR/I4B01vxSOPJejKcdYuL
Tt7BfXmejKyHfbiXVtddoOu3HKPFZfvp0tW1dOb8cjprQQXdsOlS3xTmFhb2
rnof/ljsgFXT1o8v0WMtHzD+gMUw7JN1rzIaf7cTGawYW0DmvX/bwp0QOVb+
HCHPbKAr128jO+cXkJ8sbGVqBiRm0ZOXv6Lrq/cjkUzV6Or1DXT7nkugXiSI
VIVIY8kESRQjbjB5pfaOIDqH1C4dw6LfDDKnbD+Z88yPyZCph5C0RUv20lUl
x+j6Dedp5ZbLtLb+K9KT7t4LdxYVN9EFb9TRbTtusD1+jJ0HonEvgNtssnrc
IPLwc7V03oJasuD5YaTfix/QpSsaYP/pxsbGIefPn1fRXo3FpGa/u2os2zJC
hmNaKKZHT56im6urmRUC21n00y/aGNTNpP71QWR09W2us9XjQX8ZdNgL0627
9pNlpTNIwZA42Xe8kowkg8mMpjtBwXpd83n61ta9yH7DB1eQMVC/ze+cY2eB
2TyydfpgMryEqyu0wD9OOUk31pxB9Zz7xkYyaWg/UvBSEzBM1k4eSR4cvgkY
fQDJC9K1b7XQn+f8gf4ydz6dM38H5zmHliXO0Z9GnqWTp5Thd+bsKjLqp4T0
irxGh8XeIAXh/uSBJ8vpw9m/ZZWBI2H669hKOiKvhIyIjSSdyRDySF4J7Keg
uZ9G3773Dmn05dGm4+/TTTv3MiUlbvrgPz39yX/RJSUbaXPrDdKyaQK30k2C
ujDd8x8X0DIXLK9CX7jz0BlaUnEoG3mKoWEPXX4N9XfR+MdJr8dX0uVvHkI9
BH1b//Jg0v/lVmRjwZME/pPeuJerdPDt7V/QguwX6b/lrYZ60sdyXkOdBT1e
U3oCOKNPxZYFkJQs+qvYCjIk0pv0iSItZFh0EMmLTMLj/JqgoA4+SF8EDuf5
46+qZgfyl4P89QbVoyvXrKG1DUdIw5ICI4c7DzSRWU9xde5MniWljLrSMcOY
8AnwH6ncuOtN8punK9D17T18g7tR5gGYjpFsYfkLnxtA/nlUFZBNZo1+HNni
mhQiuyuKSX/pmVm5C9jR3kL5wPJ/lj2OTn9tC9BgcRboL3JepYOjL+Hv0NwF
QTwcIiOiQwgJT8S9R8J9yE9icDHsWeSRyEjyS65vrIXYNurBGsZqdp5RBoQh
aRHc9kS/ua6yiq4s20DfO3EOKSNja5XPfP6P+9FyV8cfZbpZQ1qaikmfh/qD
5TL6UA0xBgNNf6puIUXTi8lWEVECEDOYXBGX8Rh3oBH67pFbaOLT55aR5eOH
E/JkPSgZefWxgWRCBVNt9IEO3eyO2wjqHPuH35p3biGzBdEJqJvMLmOSprBo
7Mh8FhndOoeUdoLDQXc6o2vaHys2oKZFka4eEGLo+q07IC2hf7n234ImO1gD
jYuLS8nisT8GakjLp61kxkNCIQYWk7fPfYHVZl5NeLFiiB0R2AnQHe9eZsYD
3gxsU9QRbRI+oGlhjRd5rBMeiyIXwqbxF3xZovICXbxsP502YyN9NGcG/U3e
qoGcHy8bW7W2FGueLRIySNBWl2+kJz76jDUi1DsX/RIoD/jtkootpOgZrhBg
S+CnWFSF/5iclW06GsAqW5h5vCKykJDYVu06j6QIVw7BkDzIzYru3P0lOmkW
5LAi/xJ9hekWMyQGCxoe7If5dFLgr2bgKfSasYQL00qok6zZhupadKstwjPs
XjjYUbP+8QN4fv7SLaDelqiZrv2WqBlrVAztEKah6SE4PSicArhVcAj/Gp0C
gaUfVKCHPx/orsW2d2ppY0urSJX59uCxDzGTAdQB3MZ4/BhTj3tFowaRJ1/b
hn4O0jwAvLWkXlVBaKeqSn3jFxA4sUFAO1lAFf4tjMEVooCMouDrhseKukCV
/slfldauLXZUqeStMsz5oTIBUSUwOgiFzOcQHv+y0Q+hTY8px0QNYIILxyrU
FpMBhKgZDJH94hdcPGS1zGDuFw0CdgMNUpgzDbx0FqD/eXroIwK99Kx6g4Db
gLSSZ+uwtVCN3ly3F9FmC80B9IBsc9UVcr9IB5l5P3Hq1KnY119/LaYTvT0+
KIX0+GGB60DjnyFQOnAxD499B0AUFLggEQPFYJ7agQtUHnS4G+Aa6Z+bd+r3
KG4gEh05+3G7lgX3CS0rual+9wQ4DhEzOAaIJpDpgIdADE9nhmHZmjLlwgOG
9pE8HP3oFtYZ+lIREcNk+0AaxdKjTGBkCRiffH4Vq+3VHBBgZdSQVKxYW6d6
CIjhmcwwnG49j1EtWXNIDI0fXqOLirY5MLBEk65bf8aO0BligBz47fqDns2x
cVcTdm11DOsqm9D/KB7+PTMMkJfXNR5zYIDIsP1gi5DOt4dZFJ+3osxhGpDQ
gOeAXp0vDNJGGQBloyGDM5dAICTtO37JAQQCL8u6EEJUANHSB9IFtqMyIwOS
ahbsHRhAIcAe7IDC/QTENbCPHIFh93vX6Ky529LGAEHNxhDWbRS/EA0WraqQ
ugB9RqguCM0VooEO6JmAaMyMnk1PdNhgl7L6oBtr/lTraAKwUxghwL6WoQny
PTDw7nfqgSl2zsKTWY6BKYoFtIcOY2dlm7Y5oEMkgm61F3Q98uQB9NGZjdvw
0YIk89JmxmFQATyfDhusTOZgJth5AjaEcshMWJBkVfEH2zQwJwc+2s0MY0lh
oZaan1D9cxYqQwaA+QJg7cErmL+Ce8hRAP2OooYUEHviNTmVYVqzazf05hRA
4UhNADsJgBBbACAwGAWAv82MQXvsz5440oa3lZuRUDU3g993j7bQDTsPSajg
8SDMAcjOGpfQ2Furr7EQwKA+l5mO2iO07ecQLRfkPQcOKshaXopfyKaq9h6T
kKE7DA4RwHZx6SfrjzHnlhqyaUBOmpNrti7oQslyOxVDYExuRWm5w5wEUkf+
Cdk0BC8bLs9vICddufooaCz2xsf4DyM6DJMzMsGAOA/JOw5WC9YgzkNMZTkO
sTqAAXrtm3budWDYeaAJ00sdA+QWMpx2F1QANaCAYnT2eZ9RHbJsGdUtQ+Yt
Yeipnsk8ewoqgBoYs4T5jAxZ0JxCSvF6ltcLtr/LTF7l1ip6rPWypzxIIGD4
sqPyTN1FXV5YyIPRCOgigrwesB3rJS9fyiNLh3PbG7T8A5R67WYNa46x5IXS
chx55CeLSANzC0K2mFfgyRqMaPuXm42nVk58hJDhRSivatzPyOIWVCvZwRR1
DZIL7xeR0UvOSrlSrN6HQqUe56u6ZPaIPuSpoj/zata8IKtMT3x4hlbW1Ik5
KfkpIC9WokGp6ur9Wl9yuenEjEIbmppxBBc4VpNi1eNJ/99vA0+ihEJmDp1D
5UVe6Fhlhcm2G5mXciNCLuivHHLomobcZG0r5Woj2Ihh6LIjDrmrKnZgOFTO
+0UvuSGZMOi6zHSIDworufok49ha6bEjhrb1J9bOU8BkgynGIvTgIOWtXL8N
+xQqYRnvXx5TnZTyYJAMOte6POjwQacyE3ksjVXyoG8H5XvJAxcIYwzQocSM
cYLPMAM5swwzAZ9Csw2OIU9VMtlIOHjbdKompejDJ9jJeMm/d09HXtTQdLke
8iIyAWxmnRN7WT8mgz07gCVHYIGxVxjYVt3zl5NjydJy6sJ43LGsPRvPZaXs
I8pZX339vjuJ9aoDDMnJ/m2OpppwjHkZzzpIPvVFgDLZlvUzJeKhu4w9V2Bv
br1BF6/cgWaFY0UTvfi3HH2aqNYm7n6O4lst3pODzFla+9id9HTrEHNlY8z9
8XnwFHXwXogTxH08x7nGHgQW5hdYnotcpuB8Fmei231EpUjtKQ0mO5yCVdGh
4StHhDa4Ozk6i6ZZDx1svhg7lGs6wDMwT4QTGpO8jVFvXPk8hFTy5KMe2pMj
HvD1cXAJH1JmCOsAvLOAD04NnKjoIP0+OfKQ4Fy4iqmwvpUhy1W82h5E9tT9
Wp0JrBj5QJhdBFjw+NCbKy7bD92VFDQHNZrb2ujAS5cuXR0wYMCohoYG8kAH
kHTjKupYyeZp+sGx9fX1lwYOHAgQJtbU1PTuKILJyUVyjx6ECZ1TTzzxxM2+
ffuCyFRBx0tkV9i+4qnTA65evTq7nH1mz54N318fOXKErzWUOQX0lt05RUeF
i5YGYSB089SpUwFE35s3b7Zr6dOt51NW+sxfr+OghdK5KcnlopcOgDhiQftG
vv32Wzzzdz6FBoXQRasqcGBHWaWXUGLVTJw4UZ3qk6Y8mI7Zf+IyyusE2/jd
kwfrKk9dvOqQp09z3G15sIgClEWXJ4b5bCf9h3srT/eq/uQFNXk4dm0aG+6h
Gw5Mo7kNx4RFzGLY0XRqelji4OZRJNGfG+nhk5KQYTIn5gtGjpsS8Z8Fybid
8Ul+3M7MC09lTZ1cc+ETT3ZyPNoDoG4/7oVDHxnETHKaF46ohkPjgsXVhMy0
eCbfK00oMDAOfV//UHIcVkLteK89lWN3Gvw2UVibRYKEVHW4Xk3PamXKkZYJ
rSsvR5+vA4GcD8bTMgUinwvSH6mVva1UjbS4uFQO+6tl6Top2KGfnmYj6frb
nBCzJvajVakayYRH58YfnlTcQGIr7InliG5uzl64aMQSMYQVHH+d0TE3f/Gz
K0Z52YawGfInb1FJSYk6xZ+L8P+MkinB98II7h9CUV3zeb6qYWZyjL6XxmsP
a4MOu/P4ZJiiIjDBJDvMkMDyYdZXCviElfkDKCYwudo0OwzS7zt+icxU3iGN
h03sSWeq3nvgl5GYlt1u3YU9GNJBJhz9X6I/resNJw+2szJTENkb1ekwKauc
n7py/QauuAC5+R5yTZOUYU2ePJYW7bOTy3MPDd7rclAX53iUI6OWeITHEbXa
FTbbrcl+oeTAdm5mVdIXuXWkHD0ZQJ8x74cv55PPrxrLQb863185MEAPJWRc
DjZgyHB3RN2drI1Tyca7X8+sDvo8K+YACzIrZ8+Bg3TP4RMdLkdfyYf52sLM
ytFXDnSkHHBrsBCC2QFPrBf5aWO5KkkfYQz6uduFwrQOAkcy3kivHImn3RrF
NMuRy/tgmBeyM2BlsZefz/VIiLRRUn7MvTjpmnrkhK+3Z3kaXpECfLpPBcoo
ZxItVpSrp0Hhm6IdfQV1tRTLvGjIIXqJtyxTPqOGkwX7cN4esI+okk35kSd2
tbawfUICnkm12NIONpE2uizraJKFernMSxFNq6LMw/SZyHA/+aPsbvk9uMf2
MivSKz2UwT3oC4vu/T2YSr557+/BLGulH4YtP1eyumqlw7f47t/hrMEqf5dD
2EjjcrgU9u7y5cjkal9lqlOm9xfc7WMpxP//WzP+79VXVwf9zTPOF9Pw0Z6o
+3V6vBT1Fis+gcuizI/4XWvEXTzWFGqjdNrdMIpXiHG3ny4rpN6PiFeJaGl6
Tl8IW4s/2mv8CHG+yg8XiTQLIWK9pLiaQxsoSkCICTv8Igj+B8L+Q+4S4Ggb
aW5uIzkCuim4/j2eC7rfvziAlzZOxyMqHVWNa6ceI/jlY2VhcsyTj4GmuOMX
+NPNMQqn/jOIzRIvwLVPkMJC7ReASfi8WpZBoqWDw4F9ZCfobiAdgf2iSr4g
JJskeYuS45aAiW9xXaFe766kffLdXh/tfFLTUZWL2fe0W1le6Hxxlva6TFgm
ZadWbhju/+6Xpsp9ZViOe+yFH7Y5qfbQtMxSW3sw9mGdnS6+2LHf+umyYKZ7
oB2Fcrovx2ZAS2RVG8mmdiSd2R7M6Au2Io4nZOBcAvcT8joTMYUZVFhHTZxd
DcFlSDY5VFQ6GzEfkX0XKiZesSPFyeTd2fHh4rjvsWCpACyPgC+J4NaCRSLK
4ffhRBQqhbQraEuWzWQTYyPTyZIo+UyMZMPhuYUzzU5pAJr5yvvsGcCkrLXz
KMR25loZQS/976raz+gFVRDR3mPsQh1PcLR2jzHLMaSr1MaxIMpyIOeOL6j5
QvDrcX444hicl0S12aqZSjXsd+45XgXcn3Ow0GAtXXS3LlrEcXnYKUiQHU+0
yQVsxhfvBrUKIwQRu19X4mxKZavpCwP5epzc1BYrF+vZiiIidonwTqbEQvlc
ZcS8+y9u5clFNHlyEZf7yJe4ax1pn1DINtA0xiEjWYIgEjFy3/8AH93tbw==
\
\>"]]},
    {
     GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJxlWXc8l2/3b6CSllUoqyiRZCTzHHtl771nskpKRkaUlYZsslf2XkUkhKwQ
JSuESqSh4ed5uh+/1+v7vf/weR3Xuc51rnPe73Pu67pZLJw1rLds2rTJcf3P
f37l3eCLT9ss8P336YNN/30Wid8xsFxS1TLyWIHOjv88CzCsolo8+nM3zjZS
vFHgaiT0qPHVh8dP2ZI7QNNwWFjv7A68IPxA5TVPJGR/iY73mNxHyA8gIuN0
b/4sDebpLrorKmQT+nTEeBE0kDNtapE/iHsU5C2oxMqI9RgJ/SoYKXy4rbSW
GeVtYm76adcR9lmI+Q3g03yYS/IHKzZKXBz6dvoJ4d8Rwl4zlC00107/OIIm
agcXuKVa/jX+1z82Yr1WWKAsqS3pZMdVk+Y1a9V2OPHkbs/e3KPE+h3/kj3t
d8YW+xzD++cdqRINu4j9cRD+df9LVrOJfZ5DdRzpxEOo5vh64NdHS3u+l8cJ
/3v/JS9Y3Rxwus2JdjImiaTCfWD+dXW06AMnisj1+YbV9hHx4ibyU0zE5xSO
69r0VL6rIPbLT+SrjtivwD/y+f/jf/cniFNhQoObdjQT/gsR9loI/4TxDevd
505P2gh/RJC+ln/b95nncOTqT5IZUUEMOG/wkWHnQ/hJ6OcvTydRlpQQ64lj
TNED2WiTSuD8lW3s74SEfh2k9nAnhj2WQEEacqVuw4Z/6f/NtyRh7wmILZPf
mmaSxsO9TUta259C2xnRLOklaVy9nFNM1tZCxEd8A39/4yOxgb+/9qU38Pc3
PjIb+PsbD7kN/P2Nh8IG/v45/298FDfw+Dc+SkS+mkD+dg/3OWMpzJBa+/m+
KgN6P3v7axvJ4ijJmmr414eEPQUkt1xTP0BfAksqzbKvLJQI/XKoKvlOGnVP
GfHIWkatbjUcXYpUcEpWJebXgbH7KAs+VcM6tzWvQsUG+P3KKDTiojp+tXl8
UDyz8V/2/+ZLDnsbeSOt+9OIfClis+5Hh2CXXEJfBYe/9qdqBRUR+VIj9EuJ
fKlje1ik9yXW/+VHg5hfQ+RHC+tYz+rFPKon8qOFV8U4rt852ABrVmwjFgeV
0Kf3bEC/YSqwLSio7VNRxewD+wpdPLP/rn9NHXtNXg5TxBbAm+5P+2M4NQn9
EphRMK/sKtPCuyvcsaznymF2jy9fJ6sOMb8KDroK/grz1MV6keXmRzdrISqa
oWnVWQ93DRhpC72sJ/ChQvAhhcCHOoH3TGL/WgQ/Hv5L/osX7Q3+/cWLLsGf
MgIv+ht8/IsPA4I/1QQ+DAn+1IJhQp1U/nl1dCPq5//i91H5GtXV+xlEPHTQ
3txsiO5XLqCnd1hThh6hXwRuwi3zGskGyCO9tzhvsgTqMwUkJ92NiPnlMOIY
OfDqpMkGvv/iB9CLukBu3PPiBh7/yoEb+KtivD6vXhUBVTZUDVfz1TEu9r8P
gWdNYjwJekei25LntHBdWP9PCmFPh7CXDonlXJV3KnVx52Caixh5FhFPfcJe
DowdrXAwO2OAx41uPVk59pBY35CwX/AvOSs6yYHJzwjT160NphUR/DAm1i+G
ISmVNeMkE+T/b78rJfZrSvhTRvDFjPCnEpbeApPiWTNsWjm27kE5nA6apuNQ
1saTfzLrtBUTwWZx0b05Rg+f/6HrmwxKI/JhiN4+Y88S7LIh/fDOzZ+YTAj9
fPCNoomclzbDz48q9LbRFkMb46VsLytzYn4pKJdd1LvrZoHp4t7KDd/KCT7q
EvUwgeCjAVHvUol4mRD1MIvgo9lGvf3LR3OifhYRfLTYqL9/8WRF1Mty2Oey
dzGdSx97Lh8l9fgcB5EfBoxS9xmj4M9mPdWvKX/XQzMkEf7KPXkhEwJtOoR3
dZoT+rnQvEs+94SwJSZX6o2QOxfCCd6Up0Kd1pgY90aKTqCM4LchXo87IBn5
NZbgtykW7qsdIFcl7F8zR/oB+7DO1AyC35aEfg7Bbyv8bPLsm4ZiAcFnW5y6
cOfUwuVSWNAXbmGmMEZnTa96HprYjXx+Dft97HnVg7/2GyyQb1F0+fd0OpwW
oVphDbEi9HOAPMiz2fmkDT6sqA22lMoHiqJO3rGj9nhP/FDE1IsSoj78jy8x
RH0w33i/+ZsPK6L+pxP1wHqj3/ytB7ZE/3hI8N+B6A8lMMXCq9LlboYSXGpX
sm9Fw9IFdZrCzZaoG0nzTcAhmYi/NZ72PF9jnpoGM3sMCs/I2RL6WUS9MMex
/9aX+xv59Wt/05gcnETE1wYjk46/aqJOI+qFHaGfCT20ckJh1ha4HM6TYKZw
H4LdmrczilvjJ9t5T87KRCJ+trjC3Md19U4qxE49sFchcSD0Mwn+WxL9KYrg
uw3RjxKI+NgT/SaV4O+5jf73eKfREUVtK3y+wnrlHW/URn6tlwJSXksR89EB
fT2WpuxzU0CpeuawVaMjoZ9B8NMahTuE45kq7hH8tMPvNWlXfBPjCT46EePp
RDzO4YgW2UNnyRTI3+S6Z7uMDY6glOg9iXtQ7Jz76WeFPXrqkPyk3xIPv8O5
R6/4OBPj6QQ/bYn+d5fgpwPR7+LAu/vx2iWRvXhDkf1NomgNDLUtjLWPkWPY
7/FAuqBeuEOxr65GnBT9xEL5E8jeQZjZgUM8QjS4YMnR4BWZArvICy89tGbB
6WtemXZHs6B/sme0gfsYjiW+CNN69BDi67/IvvzGjeeNbws9OF4M12N+MTr0
0GLgkoMLv3gUeO4L3aoYfRhDprcXepgmQslA9LfRp5wof77vknFDKqwo964I
rZ5CJVtW2rXuTLhdNOQcuO80qpi7lj8Yz4WrcrMJaM2MF9y5DUStikB7jnnY
quAo+gUHW7K1FgFPuP7+m+vrR8SOOe5e73eaaYocoiy78Y9Y+JD383qIHNhf
Kc9Ag51v6VsLT8VCz8ip/FJDFmwd+eCgPpgGBh2Df55wHMNsua7P7TR5MFXn
rda7bq9ZX1eUdX0/FBLP7xy1ocS3hzVc7FdLYSxPUY/6FjVe8wy5aHk7A1ae
8Y1FUbAgqcIh23m9PIgpD9Q9tuUYVndz2JYPFoBo2suumnV7glzxpcBZDLPm
8iWlYvQomu3cySvZBMICu/1v9DGiTlia7avNZSDdR6Pmx3MUdT3KznlHl8BC
6BFT8fX5ehZPnVlOrPdzw++q3HgAycxdYxj2tELLbes+FW929DH6w9VEWQ4e
w6tb+r9y41q6tU8cdzEs7L7ePqq2DRe7Ci5Rsc3A7FvtUGEheoSB4KMV9P1A
QuXmq+rDhgvCiX508VXgtVcvR3R9PgM9C5byFMPo2+ZmwehDeErbs/cGbwWI
jx6OsLhKhupbZ980ksyCl6P7kuHgARQ52dTd/u4VqFklRNzbdgQZtakC2N/V
A/WzUXGTFW7sFij5MMBXDFr+hV9LxkhxMzKr8mfNQrANqcGXgf14z+Law1H6
UVi6rp/wzIQVNUKuued0PYWC/I7Pm79wY2Znyc+pM8XwcgtPHbUTKXpuZdEC
1vewl3+K+9uB/WjEM9uumzEGBnxDa671LOhVYxIwptYNV8986k78zI00VyZ/
kUsWg6+dTbdnMitObt+Uc/1WI/i4tRmVHiBFd67n02b+7yF5lrXVJZQWy1ap
Y7ZPjcNa6OKilAwLvr9df8cstB/CWvIZLBe48QeTWn6cTjG4bB1M0H5FgpRf
Xpo5vXgP11IOTK1DGUWihF9cmZyA9LEJL8oFZmxzFL9K/mkQXAROkZMNceOv
/UqK6tnFUHXCbMIgjwS5JYdPuOyeA9e+5E88AzRY7vumyaBsEra2bhM0yGPG
K56NpSFlw6CSCV/jz7Hjrvlbjx9v6oBLMQyFDqEkyHrYp3lYcg64U4wEMIUG
Hxz0iWOymIK9tVE3rX2YUZTr11jrljcQwub9/TgXOwoy/QrTkOiBzOWv7KVB
7GjrZBH1rKANBgYLVE55kCDdcqcKrfMcPNhlKlfjS4P04S+2NH2Zglzd0uUP
5sx4WiX1/NsvoxB4rLLpz1Z2PO2f8fLMpn4QP39kZNSRBLOq7R5P35uD0Yzr
vElONKg+MSrN5PYOIkLqrtpoMuNPcu12XdUx4JY8Per9iQ3lbe8nM+sPgL6P
s6fbORLkOnQgNKh8Dka6yU9LOtLg1Zu0w7Kj70D6s1O0tToztq9Qc2zbNg4M
nkNUuQtsyNvMvhhhOrSeb3NFswskyPeMPSqrZw7SD35st7lCg9XV9V7BItNw
vUu7KsKIGeGhlpVtxjhURfDvdPjFhjfEBqMjGIeBvD/slX0gCfZc5Dq8aW4O
rrwhdUmPosH4uipnsbBpuJSd+uPmRWa0JpGp8+SeAB4LyVoJRnY0iUnd55Iy
Ajq2Oy9wRZLg/mQxp69f5sCNUauRNWc9n6ZHmu4VTUOC9O30/deZUYt55wE+
xwnY5Hl5NlGAHacaJ1+lqr4Gy0JTriPTnMgiVRzwtqUPAlYyMtK8uXDsouDg
g5peYKJ/P7bXgR/JPgm5jhk/BTum+cnNs7z4dOTyKSeBcrih3/gjcIIT02mT
Vd7k9QHjwFshqQAB9DjkH3LRLR9Yzo6+OxAHeOvbSqEvyRUQfSNKnsoDeGJK
jjagMAH0nOK5OZ+JozCbAvNyRA5cWPuhUWYsjtxclQaUliVge7+vs/YzJ55+
PNLNmNUHn7sLlBba+ZCsSHdZt/05sCvGvU9gOINj7B1yu11qoal46Cc1DS+e
DKJWFXashH75kJTYAj48HX4m35rhBaR1stCmsgig/uydj4ObG0DqiaYjZzUf
3u+UD3LK7QYtsvh5rgAhZA0wzXE7/nzjvC+fRLZZZEcLdNBZXTs/wIff+WRF
xJV7gKJKnn6oXgjJLOR7LCs7ge3uvBGL2HaUFZYvoHCYB4kztbavGhhQKWrN
4BH/LFzWvLb3djEbqi1WbHNZm4Ju8sPny/1PoLaSUxlL+zhQj09MLeTwYvlZ
pSeZHG/gsSg/le+d09i4pYaB/PEAOMZcl9h3VRjbq465n9fqBvp3zSSsLkJ4
+PJtF49jz6BwptaZ+a0ETqxYfGTmKQG39E6rUpHTqLO2WP/Boh6yZXYd/u4C
mN2R2xo8dRlW//TJ4bAItiYaBXjtSICzVXGON6TOIJ+0XMj8QjYsGcWlx7oL
opaOBC1FeC0o7/ksxnFXBFNjV+fuzj0Fm9qnBparQijCdaknKqoYjkmMmXuF
Ab5vtFz70XoZGtoZE9/SiKNcthqLpWc86GkZD0kmiyI5j9W4lHk2LL6Jp8o8
JoLfSPfS5fkXQ6AcY6/tPQk8ZFz1mKqsBN5VuB08e10M3SSFlOTGHsHDkJFz
Hb8kkDXRfaaJqQR+ul5XZC4Sx477nmk0PlVw81JFRdV+KdQ53xd54GQLvCmP
ClSIkcLZLB0xF5UysC1nfp+5VxqvzRlxcr5oAvJvmRW6m6TQWZ/8ieDpVvie
p6d/5TcFHpuRk/nsOw/XdFZ3Xu9mQWt58NXwnoUt/kmNeeZcmJZzurrU8x08
0UkRsb/Ch2Pk3MvUlycg0PHC/V+NZ1BkSNFgYW4UpP1lPt8iF8fKOKGugndD
sLVjZ+btHAnkMT4m6TrWC1MDFzVHlKVRD7gdbSvaoEKZvOSohhTSP518fcem
CS5VcHJmLsrhwLjAro4zNXA8hZW8NQGQRLD7VIqSB2Q40oda2QFG0suQTdbf
BeYzlBSb+QGLqHaOOfU/gISt5OGJa+JIG7csutCWBcvdLnVnuRC7jY+vjORW
QnWpAc1/Xov7+ftXl6yvQL1mUjX/PKB91KpoYk4SjP1YLMilQ+za/eDNqFce
TLRRbq4VQ7xgbx7h0VsKU7H8ms/NEf2eL+X7TleD1wD9N7J8QKmituziYA/g
GK7yWTRCXHupVtq3cg+oFab8jCcRvyYL+rwhSYU/lXuut9tL4EJ/C2vPOv/p
73StzdNJo1WI/83qX09As2NccDFLGh8sFVjzTz+BkBEGemkRKawZ96ZSnC2F
j3fCtpMryuLYj66jhb+ioebL7NcbR2WRzHKX/aaVbAjWkXm3jVQWI9PpkvtX
SqDv88/03zfk8IgqOOz6WrNxvhegMu/lPPJgQ2a+9szdaC0fAj6/UD13TQZd
A/WUTTIaoAjIqviOK2D3/PjX13+qQfBk/iILnRxulaRiUdtWCzq5kpJ7fJQw
ZUtl1nB6BgiNZT5OylVCPd7m0AsSFXCQdqcY96AS5rsOjIsONUCKodbHxyL7
8ENY5Ouz1+ZBdokhxs+AHQ+LjrL6+8yCyUhQwu2dvKg/z2lf6fUOYuvXHCfe
n8GIuCuFC54T0J98WYyvFTD4bsS81NIobGv8TiapKYXLnzkuF3wcAjZeAWeH
J7JorPaUhG6+FyTTXAfvnFLEO8aNrNtetEFQ1mbTy3pqGMvRvDx7oBxWhw6c
PRQlg73GXaKRb+4Av/rLEItD0hjEv1ZPcTsFvM0YZ8lKpLCuUeOJ39XCjfuS
8QMf+Lps727IoV5NUTf0UjfkHMfIfcd/5wJVYOlO7XoFfDg9mTIxWgMrt3Ya
Dy7KoJeSoJ1Vz32gjO9aYmCXQSVOLUUmmSw4mXn7hpmhNDrpyfK0RBZD8kEK
DVt9JYzr/Rn/rbQCbiU88ZPUkMP+zz9a3XfkQYv+I3reNDm8PWg53shVu3Ef
2RrXGXbCtRb8wzX1o6nX8zujshavmQ0XX2V51M0o4t0U2lQ/7XoItojqD3BQ
wt1+bLYV6/Z7KPzeezxTwfKPy7nCvhVwncvyRUCiOtZ4JtXLb82H+Zkyn1P+
6ji1d4BcxawOihrWX6Wc1FFe+8vZHcWZwPxn8+kQN3XUVLcNm9OoBV2pBIF+
eWqcudtG03Z5HvaWns4UsOfE9oddvjHWsyCc+iJmk+5pLHja995W4x18mAsw
sfkhjrdHhzQFYQK66Q5STneu17OPtVd36Y0Ch/jXLweY5LGIuUX14akhCLDo
HlRyOYvuGt2HlXb2gpOUtvFjMzW8vL38U1/bM6C3rd5HTauJL9rbRmi6y2E8
Xsr1baQsqtxWPePMdBu8cycYvi7LYlf0OY/b9EkgdeXU3Te1cljS1Kx5yiUb
3MfaTgU3y2LAdcPlsupsMODaFxJUp4yqN299UttbAbwe/I/TTyvhL5GFg2n7
4sHqcHgnflTEoFX5H+xMWaDpN6kR8VgRS+tIpU8kJIFR9Y0+tjIFbK7kUC9p
z4Nlu5a7QR5qWOhr4f/saDmwzLFY0R5VQinNQZGjnJngIfGdfWqXKqoE6Ze3
5ayffxvkf4Z7q2KgVlki26MqUKExsXS7rop8555JyCZXgrGCw6zpVXU8HmJL
S2ZRCWWqLf1HazTwnmYTW/P2SkjoIw9TYdBBmuPqNIo3K0HDQe8kvac2tpRt
spT4UAlB368X58ftxx+N4bM0TvNQEfV8avkiDw5Qbs5nkpwFpXwBY9GtIlhq
edGVg/YduEy8cHjSKomRZTMCfHPjIPKRJGt6jzwOk1d8ueL1BkhXhSbJdZXx
/sME7/Ajg/Dev/LWflV1VFUJIEvp6Iau7b35OUuaSDPWx2j/vhlcBAMftfnq
oYmsSlltbzU8eH+wW9dPAXVUPLDcLA5Go6c8rEaVMOa0t5rd4RTgpl0+Up59
FsvurEkoqBWB773NvaQXlJEupMFwdHcVsKQKfbtPooSHZ1SsTfdkQAJTQGwl
qqOXGecHZ810eDKuoBStp45/3ondCNTIBJPQcz2fFtUwTF8sRUekBii5O7Xq
O1XQKS2HrpA6HYIKBgZHfTRxlxhFqrlYBaQ+d/fPk1BFgZvhf8yd06FA4QP/
09J1vuxf6w1wy4YGWucPQY/UkTzxpMIengroUJuV7mhSx+nIO4+iG8rhs4gF
72VfTXx7a0qIjjYL+D417+1b1cTJ6fsqT25Wg6NcosO1ZC28XllQxpBQAT/D
p5Q312lhf4iQ7Z7CCtirynjcgUoL73CQfOYoq9y4PzbZxMhal1QFK6SJ2pUq
usjoHLIlj7oaao0/5R+M0MPlUbcb89I1wGp3d+eXkwxo/oV3f6r5PPi2NyZx
n+dDB1aXG4MHZsHTWPUQz7b1/qeW/4OiewoqXorNt+rKopfPnINk8DgsKXNV
m6/Hn1xfteqT12ugtQyX8vZSR8bytjiD+ZcgkByY25a+7g/rjdWQ0i7QGLm6
j7ZTF4OGvR6bRTZCEkMxx6CgAb4wrS8n66oBqrh9Cc4fDLHd2UOfcqIWyOwu
XEmjUcUP1umf7lxKg3Qf0W08lGeRMuj+g9qsBNgT2xOucUoZzzF/oao4nQP1
f8LcFqbP4nzHPpWDRtGg6Yqpv1zV8cm+Age7e2mQaBKSlJahgabRR3jsydJg
z2iqNP28Fm7x3+JN8jIdUgbvMCovaiFzcMNItWgNzEfEnJm7p4kt8n7CpJNp
EKP7MzYyVBdTSzwzv72qAuXtlB2ebDq4xrti2txdCdMT11XsOHTw8vsZabrS
Smj0cQl38tdF8ac6r49crob9YZ7ky5R6aHPvfaaQcPXGfa9dbtk+wdfZIJFY
eOHaJz3kZfc619RTDX2rJ/T0Fg0xnGT2a8VkLXhOidbWzhri5O66YInRWjjz
59DP83vV0HiL2MsDF6NA1sRdjy1GHX9wqMlIsWdAQ9XbUcjWQvaIhv3LjGkQ
a03WNvpOC71vtPD+ZkyHiOZQFt8edZxtviklfDMNoowHYtrP6qGtnnJVhk4N
nOg/WzogpI1OZrvMTUVyQK7xweY5Um2M66iiUR+sgawrNIJGqrq429kiSE4t
F6xuoVyxuy5aOBwdTp6vhm9zjO9d7+thYPvQ29UXGeD+4IaZ0yU9LJjlNInI
roGzhiuh3B8N8Z7MFe/D6/lWqPa/n+1mhjt0XdN+zjyEEF/ZOEOaI0g+5aMX
vS0UHjk8caw8KIAX/+ilNTn4A6v+oz3S1YBvU28+O5x9CZiGw2/teY0Y8juY
pNsxEvKDRfd7j0ig0Z0T+6NPxoOIwHzS3LAk3r/7nvrkj1So7B/nmZFWQgcr
PcYW5xgwDTVW9FrHO9/27ZWyHO4Q2pQ4La0jjW+9Cja9VfODlUKGfaySCshM
KSNgZRECj1/95GdT18STN2ebfySlg5EdZ9ZQtyaSH/I5aL87DVR05K1DA7RR
emsdfe+NDNDNOTbPGK+LzO8DtjQtpUOm8pGiXy918J1B173rNBnAb6xB3a2s
h8xB3vUiJelwuftIhkmcHipRZlbEHcyA5ztusdyb1EfK8uWeP35Z8CKArb5a
SB9RfKlY7UUuUOYzvc1uMUDX4iC/+0NZcPHbLuMf63ya2Jrx7vx6fCnjC3Q0
fhvg2ePMwYEd+VAnfIkidH3cIqNva8T6eM0VmXv6c8bIcNrVZ9tEDjjcUqfZ
NWyEGmJ8EyMruZBwYodOEakJUkrEP0w3zgXW0EvCznw66EK25UZ0bBp88WDc
VEqhj2+TC2ft2DOhTORj30iRHtZ2zW6t+JwOM845f5w9dND6SX2gTmkaCPlz
b2+ONMATRdX9pn2ZkHBycwRZqxEe3mmaUtaUA95stAkdasa4cGjix4+oXCjo
R6VuSTOs9nBqijyaD+Qm9VpJYia46hd5buRHLiRHXb7dsT5+KFJZRQrzIPiV
w56g82b4k55F9oz3Q0gOMbXrXjDBHxrPrxT9fAjPWHxjrXZaoF1G1K/ZvCIo
SH5yxHyvJX6/z8bhk1oMKnlfj3+5ZIhcKe32X0yywHiCM4VX2RC9aHy+rknn
wKG8y6ZdOUYoHPjQf1AgD6ZqPPYcuGKKwp434ie78+HpthKSKAoT1Ir66tpV
mgM7PtakTTiZY0P4jKiMaBFku2hEKwqaY4SNbMYdwyIIvjKzp4zWDM/uDjCx
k8yHzF9nq/3qzdFT1NNNiLto43uHW9LBtDXPItBZPkUebG+MH43fOBxc358N
t0sbe40JWtD+6dgWWwDu1DNh4p5mePF5g36rVTwk3d+xyyTPDHcy9EuOXigG
8SC46dxgjnOF3hJKnEWw+ZyM2JcIC9SLnHBjelwMIa/TL4d+tkBtZcXDj9bP
u54Cz29zb7XEx0/yWotuF4PDg8ustcpWWKyxc/XimVLg0CtcZi61xK69ARpr
ASVgan7+g0mANf5x8M9x1i+DxIoI2f3Jhrj9ZujIcc8sOEVKnXvS3Qy58v40
9mjEQc3LrhPc8hYYXtBkVDRSDIdIWD4G01uhReiR3H28paBSUMfDJGiFJ2eX
zp06UQpVbIrWPEFmeK6pi8IiNhbOrZ1XNnI0x66sKBq6riR42VqYSW9jjiXf
k73o6Iphd59qa422Ga5Xtl91srFwckdl/6ZVC3Q4dDuqtq4YBCPONzmrW+KL
tFSKYyMpkB0cO97i7YBPzowLaDjnQPuP/eEfnM0wprzz3d2pWMgXSj1YkW2O
ootWMdGZ8cAiGL1Ga2eBFEs1rx6HpIDlzne7Vpwt0If1duCxhyWwc0r+6n03
c7QQS54oNEyAaguBHXPr+/uKl5QHyB9sfM/RLY4XKTz//zLXpNt1RdtSEL+8
ZcaZxRodm9g6WqlTwfLQpaqZrY64/dkJhu978iCImobDzNMUD/F03J2ni4Gx
j5r5p7jNUZoXdfXexsHys+GO5DALHFq2H/lemQTxLbstvfZY4mRZ2K7JL4mQ
vDmeQVLBEh8axzo8//4A4vfKHOUEa0xx/sVrEpQCu4Ulk40lrTF20V3O5lsK
LGz+xCkqbbW+/o6XcZnpsOKYURR4xAoVT/FKrOaVwnJDuxzpWRs0t7j4Tmg4
Dez5SU7cu2uLolHC2xcTMja+/8zpPmI65pEJB8qFfiTSWmADFYtrgH0CcMsw
an15bInWqdSZNqEP4ELr0NkaXyuc+8yVQqOfBu02iide+Nigy7Mdahc/pMKU
vFPUoWvWePBl1KV+tUw4Y6M11FRjizdu9FDOTafD/JbX9SMVdtiblpN69HcG
nM94NnD0oz3+aq13+tSXBfaLw4udkxboWeFERpKXCNpLfyKFXK2Q12b/oIVE
Kgw+//lG64wNetmY9mabZ4CkaHK6qowtNgXJCH7YngFaaYrDfoZ2+LlLvfit
bwYU8nwQ2c3kgDcsw0jWDmQDx4nljDhye2yYUQMmpSwQ4vfy/1VqjWMDPss/
I9MgTNRRzkPXFun5PKSf3k0H37dUdwLS7XBYMrdtgTQTjO9hM4urPY7aMlH+
ks2BFxUkzJQi55As6FmG4HAOkIbrnef1tUEdhsrC8JXUje+PEedrFCXX66Nf
GukWLlIbfLv4gZRiPg0avfT4Ff1tcNU5Y1n9e+q/7of/+f7/z+9T/7yv/+d9
1z/vU//p7z/r9z/PQ/8HYg3t2g==
       "], {{
         {RGBColor[0.293416, 0.0574044, 0.529412], EdgeForm[None], 
          GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJw1kCEOwkAQRbu7SUkQ3ACB4iDcgCMgEXAO7tE7QBEYBAJ8DQJRg1iBqEEQ
/s++ipf5mfn7szOLzX69i1VVzUUSkRrEIRS9DQXrleoSPVN94+/FRdQih1LH
vIeYiLO4o927ktOE8t76JVr0STzRHbNEr+Gt/3gk09k/PF+wHvwP/J5P0XUo
JOYd/pbdEt4P/cz+1r5Bpu8b3Nh9vEHkhgMeZ/wBQaAjtw==
             "]], 
            PolygonBox[{{198, 6, 7, 183}, {186, 7, 6, 199}, {184, 3, 6, 
             198}}]}]}, 
         {RGBColor[
          0.4358298847823033, 0.3050236846303313, 0.7295919432977875], 
          EdgeForm[None], 
          GraphicsGroupBox[{
            PolygonBox[{{10, 5, 9}, {183, 4, 198}, {198, 4, 184}, {8, 9, 5}, {
             212, 5, 208}, {219, 10, 209}}], PolygonBox[CompressedData["
1:eJwt0U0KAUAYxvHx/VVcwMaKe3ACR7CkOAfn4Ay+igVFoVhRKIoFRVEsKPzf
PItfTe/MvDPPTKpQyZe9zrkk/Oijh4vHuSuOjA/YYY8zTqrZ3BRhBDDBAlFE
MEAXHYwwxpCeA9TREBtXUcOXNR+88FaPiM6Y6Q52lw22CLEnCC986mG9iiiJ
jbPIWSbLpgyW5YkHbrjrzJdqT2UK6G2aWnNTD+uVU+80Mmhpre1pu3/N5uJI
IIao7hxSLa5aTBksi73BVxkt6xIrzNXb3nitNx3pz+zvfqpkQj4=
             "]], 
            PolygonBox[{{216, 215, 185, 5, 212}, {205, 8, 204, 186, 187}}]}]}, 
         {RGBColor[
          0.5307724746371721, 0.4701032077172188, 0.8630452388296459], 
          EdgeForm[None], 
          GraphicsGroupBox[{
            PolygonBox[{{212, 12, 216}, {280, 98, 333}, {338, 98, 343}, {343, 
             98, 495}, {311, 98, 280}, {495, 98, 500}, {219, 11, 208}, {232, 
             13, 222}, {333, 98, 338}, {305, 98, 311}}], 
            PolygonBox[CompressedData["
1:eJwt0M8KQUEUx/Hxp6h7xdrOjvfgBTyCLfEePAcvQVGuYkGIYkFRLCiKYkHx
Pd3f4tPUmd/MmTO5SqNcjzrnsohjFHEuQBsdbKn58LDGEgsMEaBEpog8CthT
S+mMna1RqypTUsayaWQw192WX6GHLsaYuPAN9pYmWogjhh97jvXMcsIBR1xx
Uc32Murlwced2k0Zy/raSyAZCXta7z4GLuzZ1Aw2y5vaCw885aE773qTve2D
L2aYaiabLaleMc0S6C+nym70F/aHO93xUU/r/QdFfT0f
             "]], 
            PolygonBox[{{226, 225, 221, 13, 232}, {192, 191, 494, 98, 305}, {
             213, 11, 219, 209, 210}}]}]}, 
         {RGBColor[0.609327421875729, 0.6006818071286268, 0.9105361506002406],
           EdgeForm[None], 
          GraphicsGroupBox[{PolygonBox[{{232, 14, 226}, {249, 18, 240}}], 
            PolygonBox[CompressedData["
1:eJwt0DFLQmEUxvFzQ8HA6tZkozjVZot9gdpquA05N2d9EPsc9iUKCjKoISEp
sKGgQIcCg5QcDPo/3Gf4cV/OfTnnOW/16DQ7WYiIGgrYTCI2kGLVdC5jCVuo
o4FtLKKEAor4pscaUnzhHne4wrXpXHevEecVLOMD+9T2kOEACQJzPn+Rz9Ts
CtaTfEbqHuq1S23HO2iXS2oXzqAsRWcN9+5xfPAd3W1SO8RYu3hGxZmUbcad
X/xggk/P185jvOEVA7xE/mZlv5HeqoVjZ1TWLndunKHnHeeeoVnPeMIj+nj3
W2nfYeRvlDlz05mVfYIpbjUDHZzjDG1naLnWcU3/hu6dere+Zytj1zsNnEnZ
/gFnhEii
             "]], 
            PolygonBox[{{227, 14, 232, 222, 223}, {244, 243, 239, 18, 
             249}}]}]}, 
         {RGBColor[
          0.6791321943642612, 0.7128386531331591, 0.9121274844113415], 
          EdgeForm[None], 
          GraphicsGroupBox[{
            PolygonBox[{{207, 30, 197}, {287, 31, 277}, {231, 30, 236}, {227, 
             30, 231}, {249, 19, 244}, {236, 30, 240}, {30, 20, 19}, {218, 30,
              223}, {374, 99, 402}, {350, 99, 374}, {30, 26, 25}, {371, 99, 
             378}, {30, 25, 23}, {30, 22, 20}, {275, 31, 287}, {30, 28, 26}, {
             30, 23, 22}, {214, 30, 218}, {378, 99, 350}, {197, 30, 211}, {
             211, 30, 214}, {402, 99, 502}, {202, 30, 189}, {189, 30, 207}, {
             223, 30, 227}}], PolygonBox[CompressedData["
1:eJwt0L8OwVAUx/FbYTAYKG00DbHqVgsvoFslGFjt6kV4jnoNBl6nEgODxPeX
nuGTe3Lun3POnRxO66LhnAvRRMtzbsgaoU0cICYeISZ+4oESV3zI9xHghwu5
M44o7ExpOe0NMLb3QuI76w0p8czu6O4SGSL1gxwrLDC3nPa22GCHvVf3ENg8
nlfPoFk0Q8fO6GyFF97kfZtBsyTkpuiiZz2lVlO1K+tdd75WQ7WG9neZ9a43
Eus5tx7Vq/5Q9/UHPvEfkzEe5A==
             "]], 
            PolygonBox[{{274, 273, 269, 28, 278}, {497, 496, 501, 99, 371}, {
             279, 30, 202, 193, 194}}]}]}, 
         {RGBColor[
          0.7489369668527935, 0.8249954991376913, 0.9137188182224423], 
          EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJxNkkkuRGEUhev9dqCdIEoiBgaEShFd9KKn9M2oSMxYjjAgQZWuqnRRC7AA
sQOLsAHfyX8GBifnvP/995z77rvp/GnuJKRSqRFQA8rgAbyClgTA9XCHdTvc
CjrRWbjP+hNMYlSEp+CM9RLc5lr5HYMjdAX+tv6BG32nNokZ0qqTr/yb0Bln
Kb/Zd1T3ZR/5Zcm7QHeF2Id6UC894BI9CPf6ju7OgAp6FR4A1+gJOO073fAC
eELPw3nwht6C10EBvRuir/z7Q8xWrTzGfa78OXCHXoHL7vkcXnSu8jfBI3oZ
PnCu8sfsqd7zrtUsh3i+Qg+HOFOdax4v/pdVMMq7G3gazoF79F6I36ncjRDn
q9k2wLPuQb0cgg/0tuuewbtZveldyWfKKliX/G3q5yyJ+1T9t19V79itfeSn
HpVbcY1qf5P4b3S2r//oPrULdd4B7YJmUHT9Woi+OyHWy0cz+wP7j0+T
             "]], PolygonBox[CompressedData["
1:eJwtkssuBFEURW+d+ANMiFAjEhImIh4hIjSCbq09yqto8+pBCwnfwICZAYln
t2dC+AV+hy+wTs4ZrPSuW/fufe6ujsuVYiYhhC5ogISHO36foR+dhwf0O+yg
m6MQOtEd0I6ehhx0Qw9ss+cjmMcSekXsrHrMoNfgFv0GW2IZmvUFu2Ke6t0G
jegF1h7RNzCKLrCWhxIswzprtWCZmr0Brz5vGd0LF+hLGBfL0Kw6pOimyLI0
M45sJp1NPYvoWXgKNvMi+pQ9J5BBBepQ8zV91wotPmPBZ9RZE50VRvC4Cnan
HDrVzuAADmEIBt1DvY7hyPeknpl559r9H/xCFfadqp/Rs5Ni3WknU2IZmnUG
5/AD334HvUuJPdfsvYcJsW+uXX7Cnlhn2t0LjKFXxd5pR5voAbGu1WMOPS/m
pXceFusg8Zl19ti/t/6n+tD/JhhHvQ==
             "]], 
            PolygonBox[{{403, 402, 502, 100, 429}, {310, 39, 307, 313, 314}, {
             300, 299, 274, 29, 293}}]}]}, 
         {RGBColor[
          0.8130222522242823, 0.8638021398943335, 0.8914557641607668], 
          EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJwtk0tvjVEUhvdZpa51rVuVaJBUJ9VBCaUXQqJxiUPc6tBWtDMmpyM0caki
VHNat2gTfoABIiT9DQaIkQmVppEYmVRRPG/WGrx53v19e+299lp7V7Sfz56z
lFIOFaG5DK7C6fAMeoJvhafQAP4EzGdS2oL/Af+hK/i/sJ1/D/At8BXjLH4Y
XkbN+CHYxr9H+Fp4Ory+LUTd+O/MeY868BNwDt8v4hP8xrgLOwW/oE78KLyT
PM9hnYN5T+ExOMm/PH6G+ZyHyf8tYnwTLofT0CV8sfke2usTcSfN1zsKD5rH
NpvnrZyPw3p0G78f/ibmAn4c3kM78N2wlH/X8ZWRQy8qoJE440fYEGuqHrPN
19F6ylU1V9wbxmfhV9iLWvDvMt4bnf0AzMbZc3GmPjSIxqIOk7Gn1snH3hr/
zHjfCpHfbuKH4C7zfbIRMxHzR6Lmhai7YlQHxawm5i5cCQ/FndHd+RO9Uw/L
GN/Cr4Lz0DX8AriVf5X4TXC+ee5r4E70GH8Y5uLuNcJ1Mb8WVkj4Uvgi6vNS
vYA9yffbaz7eDDfGfMWNR+9+wSrzui2Dhm7gl5pLfgksj5yVe1Octxq+jTv/
Ot6E5us+9UTv1MPi6M0KuI3xBnw9XGue52K4x7y2R8zfod5jifl5dC71fzTu
/4eM3zPdt0H4LPyA6kNMP349rEP38fvgTPP89Hanoi+zzN+q8tc5nseb1dv9
HPnrHNWoBr89aqZ1FK9cOuJeNUaPumBdzFfcf7KUfpA=
             "]], PolygonBox[CompressedData["
1:eJwtlEtvTWEUhvdeaeIetwpCaZ22Wk6b4iCathGKtoL2uLeEnMZlpB0QkpaB
+6Xqrq2SMKyBJib+AhPXoQEi/oCRiIjntdbgSZ+99j7f/r613t2yQk/+hCVJ
0gpFsIOLp/y9qxpenCZJGZ6BEryW2h18AJbif6mdx/thCtdb4Sb+BA7g+2EE
vwc78Uq4gV+GYrwCbuOjsAqfA1fxQViGbzd/l965G18LD/DrUI9Xma/1EGrw
lXANvw/r8Vzc1zub8flwNu5Pxxebv0u1Inyc87yAt/AO1lC7mPiaWrsNhhM/
o876i2eO4sfgG76J2uPoTxPeSG0Fvg4O4pVQAUsgA63QAlmoge9wJPE1P+Iz
4v3nYCY+AU7ifTAZf8UzebwLXuKfUt+LnvmBz4t+aI2F+DS4EP3V2TvNZ/MM
8vhqflOFV0ODzh/X5bAI74c+OASHU6+VRz5y+F7z2StD3Xg7tbpYbwG+zXxW
molm00utJ3qgXjRHPpSHjXhtrP9/D/g+871qBh3mPctGT9XbXea/VaY24F0w
hF+BdvM9VMd69fgkaqcSz/BE/HPqWVYGjevl5r1X/5SFn6nPUjPtxEvMs3hJ
PTDP8GjkTVk/rnlEpsajZ+rdaTgDj2AEhmA49W9qIPZbjb+h9hrG4DmUmmdX
M52F7zH/VnXGAt4U51PPO/APqWdDmfqKN/JMA2yBFpgb+Vcmppp/45mYdyne
DYU4g86Si/v6n1CHzzY/u77JrHmPtXd9A5vxWzwzGDPujTOMRU33fqeeZc3g
D/4l8q9Mv8f/AdQac4Q=
             "]], PolygonBox[CompressedData["
1:eJwt0DtOQkEYBtCRxAXYSmLk0fkAOhEopMEYCiGBghJ6aDSaaFiAjRpE1LAF
Cgu3gSzEzg1wJpni5Jt8/70zc29uOOmOMyGEPXbp7IRQlteyR58TD7zrarJO
g4I+zyFFs1P5x9T6yDxHnmPmurY8o5r6OC/xbHYgb71btb6RDzxyzx0zmmZz
+ZbWK/nJFx8s+OfK7Fsu0zp2Q0ZUnFPmnCezffmrX7Ohq/uRl/oWPV7jt6V7
x/s3edEVZTbd/yLtG/fvp/82iOfFfya3BlMhqg==
             "]]}]}, 
         {RGBColor[
          0.8757116756434026, 0.8847073921857693, 0.8633709586470386], 
          EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJwtk1srplEUx59nUw5DzhnMOHsd37eQCwxTDuUCxZRDyFkO5XXIMUJ8AYWm
4QafgDJKUa5diAvJlEZufQBJ8lvtdfHv93/Ws/d61l5rP2l9/uZx4zhOPQpA
U6gXTaM/ruOUwy3oQ1n4DDiFavG78A614h9gFfLgf8IOVITvhC0oD98Et1EZ
fh4+oU78K2yDY6gd3fPcBS9dG+vWeCaFLsJS+A1N4r/CbLSG98EwNI6Ph16N
58B0Y8/2Qs4CzROjXEArKFnXyNpVx+6V9xOO/Zb05VjPfgo3UQP+L7xybY2P
cBn9wK/DBVSNX3Xt+aUPlXAH1eA3YL32eVDOjbz4Cnike3/DfMfGpb8e7bNX
9mlO6XGv1imzy9R5ydzO0C/8PjyUeeAP4K3Gn+GSzmsG/nftfbiBFdpD6eU5
z434C61HapBvh/JuGAbBfj37HhxAxfghiWnNJRLT/mbBCDSHTzB2rtJvmc87
60bwb/CLsffgAx+MH8WHwGhjZ5MKU5AfHw6NsbP4x/o6rV/OkWHsnL/DRGPn
Xgg9Wo/UFah5JN+89lJ66tf59+ge2ZtkbGxO70gez7MwDsZqTskdZWyeSN23
qP9ZrtYm99enXuo90btxDT8Bn+VWIA==
             "]], PolygonBox[CompressedData["
1:eJwtk0uIzlEYh8973I37/R6NmTSSIhvjVrJgYoEYNfhmQjNoboohhYXLbthN
NmKJoigsRHZuG/d7ETbskVyeX7+zePqec/7ne8/7vuecWS0d69tzSmkF9Idl
kVIdv7WwBO+BxfhCqODzYW7ymnr8GTyFL/AVLsAmvrXCS/wdNOJb4CG+FOYl
x1AsxVTsBXAY74JOWA1rYFE4lxqYjf+EJnwjPMffwGa8DT7jl+Ai9MJpGJSd
i3L6xbg6HEsxa/EP4dz2wiP8AdwvMRSrDVrhClyFt2X9dkjE/st4T3KN//B7
sLuMVft1uAYn4RTsKvWqp834D1iLb4An+E6ox1fCwXBOym0/9MvuqerZCq/w
E3AcbsIt+B3+pjVDWd8U7q323IFPZ+6IYsMU/AZzq/AGeIwPZK4Z79B9yK5R
tarGKvxu6f86uB3OSbm1Q+BTs2N3wwx8Qnb+6lnGR0AP3gXT8FGwL3lO34Zk
928b/NFZMT6KH9L5433h3qhHZ/E74bugnJTbTNZ04gdgJD42+7+quRqflL23
1ozBJ2evVc2qfQ4cS95zXHZNqq0C34g/sYxVcx3+PVyrahjNeHh277R+QDaV
0p9h+PnwWevMz+DjS//UI/Xqcrh29UB36Vz4bHRG3eVO95Y3oreinCol//f4
p/DZqB8f8dfht6E38iJ8RxtL/MHst7y8L73JBvw//Tpsbw==
             "]], PolygonBox[CompressedData["
1:eJwt0LkuRVEUBuBzJZ5BrdFplCi4KHApEI1cCRoaKqV5fAA0xkQrMYspxAOI
CAqdGC8vIKbEt3N38eXfWfucddY6xd0DLf0FSZIUUchBKkma5Kc84ZRGStWy
sopqZpnhmoy7NTlJrfO+XGaFZ/rUfuU7HyxSp7Yjd9mLPUPvQcrcdcgtNrmK
fRfi+6HPH51qG3HGMOsdbWrnsoty53k5zAhHHPJEq7vjOGOY9TLsqbYqJ6h0
7pG9Yf5Ufr+w54OcYppXXvii3d26PKPZ+VHecEuON77jv7iX44yxFL81JBuo
D/+aErW0HKXGeTs+H967IKv2E/vm4n5hzzkq3GXkP4F6Q+8=
             "]]}]}, 
         {RGBColor[0.941176, 0.906538, 0.834043], EdgeForm[None], 
          GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJwtkT0vRGEQhd/Z/SX+AA3ZbdbdVbBrJT5KNCtINCQ6hRBEtBqNxGerUIiE
+G5tKdYKqo0If8IzmVOcPOfeO3femfN2zSxNLOZSSgWUR6NoDNXQraVUhQ/w
Xv4GXqNB/BWsoG58HZ6hcfwvPLXo8Q130RD+GC6jfvwh/LE46xFmsJji2yfP
k/DPos7fHVic7TNcwjXUi2/AFdSHn7N49vfzMJ+LPk2LmXy2DnyS93k78u9w
wWKGTfih9177ZpFLC7Y1s8/+rBqvfdG+dxZ5+ZyeWUv/nsANi5zXLXLxev/v
QvvvwyNUxu/APVTCn8Mp5VxR9p6n1/nePSl2HtHunk1TGX5pxprudVUz+Cx1
9cwssvZ6y0Wt966qd0F3U9L9FHVuQd8HLDhs8b/38ey3tYvvNKuaaYu79D5b
8FV5tpVZWbtl8n7WP4srTIU=
             "]], PolygonBox[CompressedData["
1:eJwtkD2PgVEQRu+I36D3B2gIjX1F4WMj8VGiEiQaQqeQSIhsSaNRodQoRGKT
3URLL7KF37JnMrc4uWdu5p1n7httD+uDkHMuAmHYiXMFzjx84wv4wDOwwQOI
4XHI4V+QxQM44ytfl+CIX8Vm6d0SH0Ha19qrPdpbgzt+gypegRfeEsvSzCY+
gxSehAk+9/P0boq/oeHnPfCuWG8CyvhWbFd90xjfi2XpDgf8JPZWndnHP32+
1rr7r9+3CD/4n1iW7vzEe2JZ+k0Hv4j16j9d4/+gMiYn
             "]]}]}}, {{}, 
         TagBox[
          TooltipBox[
           {GrayLevel[0], Opacity[0.4], 
            LineBox[{458, 427, 400, 369, 330, 322, 319, 331, 321, 347, 348, 
             356, 358, 353, 383, 332, 357, 377, 384, 386, 381, 387, 361, 432, 
             406, 388, 414, 415, 370, 411, 436, 392, 416, 390, 441, 442, 417, 
             401, 438, 444, 447, 448, 445, 446, 468, 486, 419, 418, 471, 472, 
             449, 488, 473, 470, 474, 484, 490, 428, 450, 476, 459, 478, 460, 
             515, 513, 491, 477}]},
           "0.04`"],
          Annotation[#, 0.04, "Tooltip"]& ], 
         TagBox[
          TooltipBox[
           {GrayLevel[0], Opacity[0.4], LineBox[CompressedData["
1:eJwVzjsrxQEYwOE/ud/v9/s5jkvOkWQQR0ZGBpsSiwkDZZAyyGihJL6ARUiU
T2CQkMnikqTs7pfH8PT+6h3et358engqIQiCWVoSg6CJGAPEidJMERE6aSRM
N20UEqKaCjqopIYGXhzIN/PIoYoyCqgjl3JSSKKWbJLJopRWiikhkZv/p81M
fvQvaTqdb/3MFx888UmGXSrv+pEr7rnjjWtOeOWSB45Z5pYLVjhgnyPO2OaQ
c3aZZIItlthjg03WWGSdecZYYI5+RonTTg8jDNFHL12EiREiQpRBZlhlh1P+
AHYpMYc=
             "]]},
           "0.035`"],
          Annotation[#, 0.035, "Tooltip"]& ], 
         TagBox[
          TooltipBox[
           {GrayLevel[0], Opacity[0.4], 
            LineBox[{479, 464, 462, 430, 359, 354, 499, 407, 409, 429, 403, 
             375, 351, 379, 372, 498, 346, 341, 336, 283, 314, 310, 286, 308, 
             304, 289, 276, 285, 288, 290, 293, 300, 328, 367, 398, 425, 
             456}], LineBox[{575, 607, 609, 565, 601, 595, 606, 602, 594, 605,
              600, 593, 586, 587, 604, 599, 611, 608, 591, 585, 598, 610, 603,
              592, 582, 581, 574, 590, 597, 583, 572, 571, 589, 564, 580, 579,
              596, 578, 568, 588, 567, 570, 560, 577, 559, 545, 555, 566, 562,
              576}]},
           "0.03`"],
          Annotation[#, 0.03, "Tooltip"]& ], 
         TagBox[
          TooltipBox[
           {GrayLevel[0], Opacity[0.4], 
            LineBox[{502, 402, 374, 350, 378, 371, 497, 345, 340, 335, 282, 
             313, 307, 194, 279, 277, 287, 275, 284, 278, 274, 299, 327, 366, 
             397, 424, 455}]},
           "0.025`"],
          Annotation[#, 0.025, "Tooltip"]& ], 
         TagBox[
          TooltipBox[
           {GrayLevel[0], Opacity[0.4], 
            LineBox[{454, 423, 396, 365, 326, 298, 273, 269, 265, 261, 257, 
             253, 248, 244, 249, 240, 236, 231, 227, 223, 218, 214, 211, 197, 
             207, 189, 202, 193, 306, 312, 281, 334, 339, 344, 496, 501}]},
           "0.02`"],
          Annotation[#, 0.02, "Tooltip"]& ], 
         TagBox[
          TooltipBox[
           {GrayLevel[0], Opacity[0.4], 
            LineBox[{500, 495, 343, 338, 333, 280, 311, 305, 192, 201, 188, 
             206, 196, 210, 213, 217, 222, 232, 226, 230, 235, 239, 243, 247, 
             252, 256, 260, 264, 268, 272, 297, 325, 364, 395, 422, 453}]},
           "0.015`"],
          Annotation[#, 0.015, "Tooltip"]& ], 
         TagBox[
          TooltipBox[
           {GrayLevel[0], Opacity[0.4], 
            LineBox[{452, 421, 394, 363, 324, 296, 271, 267, 263, 259, 255, 
             251, 246, 242, 238, 234, 229, 225, 221, 216, 212, 208, 219, 209, 
             195, 205, 187, 200, 191, 494}]},
           "0.01`"],
          Annotation[#, 0.01, "Tooltip"]& ], 
         TagBox[
          TooltipBox[
           {GrayLevel[0], Opacity[0.4], 
            LineBox[{493, 190, 199, 186, 204, 203, 183, 198, 184, 185, 215, 
             220, 224, 228, 233, 237, 241, 245, 250, 254, 258, 262, 266, 270, 
             295, 323, 362, 393, 420, 451}]},
           "0.005`"],
          Annotation[#, 0.005, "Tooltip"]& ], {}, {}}, {
         InsetBox["0.005`", 612], InsetBox["0.01`", 613], 
         InsetBox["0.015`", 614], InsetBox["0.02`", 615], 
         InsetBox["0.025`", 616], InsetBox["0.03`", 617], 
         InsetBox["0.03`", 618], InsetBox["0.035`", 619], 
         InsetBox["0.04`", 620]}}],
      AspectRatio->1,
      Frame->True,
      FrameLabel->{
        FormBox["\"Dean\"", TraditionalForm], 
        FormBox[
        "\"\[Kappa]/\\!\\(\\*SqrtBox[\\(Re\\)]\\)\"", TraditionalForm]},
      Method->{},
      PlotLabel->FormBox[
       "\"max \[Psi] \:043f\:0440\:0438 F=\[Epsilon]r\"", TraditionalForm],
      PlotRange->{{0, 250}, All},
      PlotRangeClipping->True,
      PlotRangePadding->{Automatic, Automatic}], 
     GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJyFenc8l2/Uv6RCKpQKJaTMImSlzrH3+JjJyMpKRhlFoqgIkU2y9957ZyQS
IkVSyQgtSqXh53ncX7/Xq/547n+83q5znetc5zrX+5xz3x82c0etM+RkZGQi
68nI/ufvsLpG8cufW3G6mWZUia8ZyP732YHP3ze2HUjshl8fLGyFBplwlD28
y6HlOWgbDkucVKXCCxJJ6i8EQv/BWV+i77qP0xE4CW6ni/TnTzNgrv4nV2Wl
LEKekRgvgibqfWTtintwm5Ki+fbjZbBqDwshX/UPHinM21Ray4qKVjEBV3Xr
iPXYCH1N/+Arrfv5pH+wY7OUy7NvIi3E/jiI9VqhbK61dvIHB5po7pk7LNNO
2HuAWO8BzNGX1JY8OohLJq3LZzQewqGW8D7aHE5i/W7wsN0cW3yFC6PO2W+/
Z9hD7I+bWL+X2B8fsd4AaFrFdmVv50HGE7e2zwj1gdni0sui97x4TOGJd1Dt
E5izDHjqcIcXbeRM7m2QeEL4n4ewvx84PH9STElyYn+zYOiZgVJiP4dxeHEg
RedGExxfoA6Z3CeMdeyqJ2MaHq35+7W+VV/lxA3Cn4eJ8y4m5gsT511H2HMM
mWqFN32f6iLWlyDOvxMU7/QdPmsshFUs12dJVQXEfHGMi/2fpxqMXV+yYRvi
5qFUp+PUHWv+z1+YTKAvuUbYL4q+5059YN6cR8w/gTFFSfLRJpX/YN5fWcbX
HJCQr4NOMclM2XlZXLqYXbyxsx1S+g7fC2qUQlEGapVew//2L4v7++/P61C2
/YNX7ZEm7Gn567x8CP+cWIvXVXtk1+Jz1T8qxHndJ+JFbi0+V/2lvBZvq/Gi
sBavq+sprcUn53yokkMiP76kWNYIXrxM+FcG02WWf76rSifWV0Jqi2XSbqYS
+P3cKPC2CwkXrRr3nMhoJvytiXXnly8XKjf9g+fVW+Wfm6sQ+sqJ9TSI9eqg
quT7hsgINUSO5fRa/ep/1lv1lyC26n+wu+nkQZyfAhF/qcR56KDnce7rYXua
iPnqRDwWEf7XIeKxntCnReirIc5Xcy2eV8+ThA+DQr3c2Cthepu30CN2Ecza
TVfo5HHxH7xseWDEfI8KXulX9R0wTIHIaOb7S44ncctTI13xwXrY4yz6K8hD
H+uPLbQ2BNSu2udDwn6TwWGa2AJCnx6hrwpGez/uiuHVJvSVwJSSWWVPmQ6G
fz0cy362nDg/ceI+uf2DV+NHnbhfyUS8GBL3iVifTIe4b3lEvJwi7lf1P+Or
+g0I/RX/jK/Glz6+DRIfIqMqI+JRd+1+12cclR53lcQPaj7bPaNcwTC+Tib/
HAnPE/w8Yh/69Dm/yVr8rsobEfLlhL/00NbM9Bnjr5x/8HmJ9lmtxFMoIEtb
nDteAujhFXQ//SShv4iIN8DLOwoUXnu4/IP7P3td0zWSJ7DfWryu8svttXhd
HY/4B1dZbW/yzCcR/BNL3B9tYn7CP7h/JLozcUYHV8DKf5Jh+xiD/ISEGWqt
ChD26BH604j7ZErwWeU/4/NjsE9Z1RTvf+UyCmn5736dJsbL4F45X2VYpT4x
PxOeyagvGyeYoLDQ/zylxP0zJuz5j48NiP1k/5/j/5f8qj8N1/g6MzrBbt9V
I0xbsWYotQhecVbYmYqdQp4V679y5f0j/zf+2/5OFresy5ZS2PWH8cn4jQsg
cmOSkVtNF/n/ZNTpKt8DtTKXk+HnzTHthJda07dyQt6MkC8F70iG0FlZU/zc
UHFy005ifz6G6HXlVUe8TdY/OG3/5nUf95kQ+vP/4vPzBD/pE/kinuAfS4L/
y//Bq/PNifklBP+YEfmkiPCvCZGPMv9PvMpnpmv5Tciur3DTbVkU/dl6UmPR
GeicaD+l8Rlg30XODe6f4+CQYHKb+KMzeC9uVIbxaBkhb0nIF0PrFsWcQxIW
mFh5coTasXB1PTRFConFw+MXMsDPqltiyyMzQl8OwWfyWEhX+5Raw/kfvMqX
hng9brd06GIswY/W+PZC2JG5i6WEvBUhX0zwnyV+Nun4pqVM5HsfM2R6ahv0
KCWd4EsLQl82JPxvvCvgYtBvrq4qJ5gzkGhnpTFGR+3L9QIMsUBT9EjwFact
RpzYe/vt4xKgvuHR6shvhXkVtTctZPJX9TeZo9AnyYXfk2kgcmz7V/ZblsT8
7L/ypxPBt//xVwzBp3ZE/i0h+NGayL95/+DV87Mk8nsawZ9n1vI/5Tr/hr2v
lVE/lOHbUTtHeMsmqN7jaopSfJqXskKiYfbQUuKNa/Z4hO3XqYbcYtD8k/ey
mMMWVV4Kin28nAtT204ViilYE/JEvOAZFPE4V2OWkkrwrSpefTjanHjTgeBn
M3z1v3wfRfCzwxqfr/KtHQrQpXTmVvzHx1YYmsDz/P6OVIJ/bYj5GXBedbwt
i1odP1rPevBWnoO+nQriQWfMcSFYIN5UKQq6cg9uOTTqiG52HK6UlUUQ6Tb2
fYHRHj8tBW+WJyP0N1njV9YnfJ5hKRD7NslWncKOmJ/xVz1h/w/+jy//q2/+
45PVeuT6Gl+ujgcRfG5G1B9hBH9bEPKRBN86Ie/XPxyLbQX/4FV9joS+PILv
LYn6JpbgLwcM3bHswcGZS9hnRcjHE/xojwtCy71a/pkEn54j5mcTfG5N1FdJ
xH7OrtVrq3xqhye1lw9efZdKxJctsZ+Uf+Q/qCROMsZp4pl53+QXMvbQuNmI
Q1nXEru+sl+aEIz8B498oNsuss0Rd7tobzGrJfgR7dDbff6tbU4yqFRP7bds
tifk0wm+JeH3mtRL3vfOEvx8BiW6Je7uq4gg+NcJY2Ucbz3m/o9fHYjxNCK+
zuKIzsY8R+nkf+RTP6vajR3WQg89ip9M5Gchn8x5G6WcFY6gjGSEVAQRP/ZI
U/HmhebrpL/qPzuCr62J+i+c8JcDUT8mQdzX60ttwjYYkHeQd/AcMY6Oa/3l
33iVX23xnfGh6ye2hIP/TNyEL4cd5v0vv4etyr9yQtdZn9JOrkSCD88S9V4Y
uI0V9krtsEeV6DiXndSEPOt5vELK29VLmwDudJInntnTIwVGvmaPKgOageWX
mbQ8mNR5PoZCLx5EZQ1PhYTy4udJf6u2pSIwL6sYdKM9hJ7MXzOoXtXAlhbG
ENMlRqTr8nveLncX5JP5pCj4abEg2OfTYmsN1Hyclzp2ZhdO2uRt/Bg8AEbS
QjT+VKy4w2Udl9TzMuhWz6IZH9yJvDcfjj7ZttIv0pYWGQluRd5j8nEtBxvg
RSbdkIQm40p9Rj6g39gPX0v867aH7cCUw5EF9tHpsMC3Gyupd+FwpmPN2I6U
tf6QMtL3fIb5PXjx6ksMBR8TCnrdSe+y6YWxh+bdXM+YMeehKENCTjvkp37V
3H6TEY8fMdx752kx7KDXJgm6MyFz8HF+rdYnsO70hzE7JSacU/ThVTSIA1HW
SGVmHRaMvKq4gaOvHIwLdOTenWFH6f6FyGW5ElDPGJRqytmLLj1O5/s1Ktb6
xfKHgWmeK/r/wzNDO54WdjVDjcCWHYNh7BjON8r1KL4Vmt9eXJww349V2zru
kOUVA+V8Qef4yH7cvDwdxpLQDJuHLpJZDrIh45fjPXz+PeB/66Dzy9L9GOb0
c3t+cTF0eRhRxgZw4MmN5onCac3gfsoswamTHR2qt/A8GG0GG6k769gvsaHI
p+iK4ek+oLhD/cVLiQ0hxUirJPgJtDIMz7IJseFpJlfT+fwBkOPK2LNLmQsL
k80uMlF0wZvi5sfqh9mwwDtmUcFnEChnFU9QmHBisqSmR8i6R5Cz8cRr+gPc
2JZg6BDhlgPkd9xT5Z9xocfmCUOW8GYwYC4+4xHIhbL8QvHR/t1gyu3s9laE
DacNN20fYnsKdm5h1uUunOgxr2vwlLd3rZ996iaTwH48dw1b30rOHTjw//td
JtGSQtPLj6DCXEz7oxknCi22CMzmdkHwVS6/FBU2fFnEeqo65Slk/D5aF5DL
iYyqee3XffpAesxgw1knbgwoa6r7JpYHEa+fXVms4MZyVcaW6bEWmBjX/371
Nzcq2ZNHhhf3wF5V99I33OyYzvCdxLU8BF1iMnIbv3FjyO3zr4IZB+GDY5SK
PN0RZIKmy6R7ffBAS6rvT8h+9L6i+aSW5hkUnDDST8k+hIy6McNOxwdBObL2
Q8prISzlffX6gEM/SG7uLHb5IIZxFJr95ccfg8mw78GKt4gNwlZ6y82dQDnc
w3HOng0fn/Vg2btlCNrGKvNEybmQI9bDuTG2H6KT6ERawrjR9XfU92ynfDi9
OzvLdQ8PnqmfDxBrvw+cocjMncGDlaNjyvt394KsKyPHn99seK4Rby+MDIGp
ehczmS83ehfu/eVVNwDtHO1hy0NsOFiSUSJWOQR6GGJ+h4Ubh2vDPlkZDoBo
G0egdhwb9pVm0jRYD0HcafXdQZ5c2KLwMVEj4An4P3rqWFDGjbpbPghqfCoA
rjf5+VU+PNimUkZf8roVOhb9ZltUeZH5lh5f1vo+mJK4EdHby4HOzFTDBp2p
8Efw69zE3EG0cxndLRxUAmOXf4YfT+NEOcshq3GDLhCS2qd+0UgQz1KGb0nT
7IdO8XRNP2MxlLR6drSW8zGQ3XNus7nBhhKR6+pMD5QCcEaE9WVz4WTH78Nd
1AnwpkT728+znFhXvWHB53gJ5BU10L5jF8T7VB7nfmS3QtClxALfICHMk/6e
8GxzDbS8ONy2jVIEuXSMTOPiu6EkoVjBu+QAfmHIeZdI9wwkBi1t9mYewYeK
jCEmyoPAPPKJ76eLGCZ5+gvv9e2Hn68uf34mDThn9LG00v0xOF6gMDSklMGo
lkd/hN91gt/nxj8pASLI2WuRQ3/oEXy4dv9l9Pej6MNf/bteuwNkX1rMJYfx
49aNY6xHGP0hrSJAm0WRH134T/+u2ZAGG0IKa+J+H8YydZnnEeTFcC6+r+7z
TSFM+UyewDtQAiw0UxSRIIRMefK57e8KQHxI/ErCHSH8TB8uYBjSCLopQd8y
x4Vwxrr5+ruBDtjJaZy26CiOxhLjJmXj0RCW1G6p2yeOmdlH9pFblMAWJoED
ZYISWOWXc3DXowYICI+doI+QwPFCul1Rd9vgBwNFpYOFJHrWe/L/vBMEicbO
N8cXjyFTSobPy5V+TS79pf7JW8fQr9v4rld5PczOqXA92nsM3TypDW9btEEC
75hWW/tR/Hljx7B8RyZ0fvzczMJ3FCWOPRrdrVoPX0opjly8I4yXGRU5FU51
wPzNUZYqUS5s4CvbZLj+GXhcYPMb/ymMrh4MFRkcg7DEPvB9ZuQ48j1ws5yX
W7lvtvdFfhjL4APeogOXe3rgd9Oez78eKaBIx/lr2+k6gT3t3XonBMxvsn1n
tLETbOJUg6ev86Nk2C+ugcFg+DAd/FHj82Hc8cP3++2efLgg+phUaXQYH1lZ
XhjYXgN+BSH0x3pZMUJz9poHmx9spdL76KcghidBrcN+tAzcxze2gbgQVt3b
oLfVOQm2PmxcmPAVwnZvhR+CrYWQVnSRPahn5TyKZHtyAythq9YF2WVGIVx3
w0D3gH8MTDX/NhBAIRx5K9R2qCoDUrWDdZ9sEMeC7gk4M+MPVtPZyTRyYogm
X07ajSYAt1f7ezk/Udwxu0TZl5IFm6g/P9yofQK/Jsx9ZLhQDVFGRvR1jpKo
F/3osrnHbfAKaSoIVJFEg8ZZjl8KJWDRwqFiyCmJbydYfuuaNoHyV/8pnvWS
yDTXMZUf3wGTO/fdK3JArAn++sItuAViZaOSnZMB99TY6NcdcQflPQlXRd4B
fjlbXJv0+x78+dFf5LUbsUinVcB2Vy4MTTxlNZVELPkxtG5dTCkU9g2HSpsi
butUO6uWVg3VIh8bwzvV0HpnCXZHt0AQFc82b5TBN3tbK5Ovl0DpZEffIWkp
ZH0us9OmLR2Ujld47NojhWqNhiEB98phLDxt/7pFRIrOhwH8fE3gOhPWPfMY
0aJkSiUuoA2Kzv9yFY6RwZNUBnrbVMogSU46dMH8CBb+cTRydUkGl9u/Kj/S
8eO3ANqNzD+LQP4a/y47QxE00aXkyD0QCuyjzgpBNSI44v91ssw7CZZFy9wL
GEVx09TksYi5LOBql/RU2IvYs2sjU2VeBch2l0iyN0njx5sXYmQy74KbXMm6
S5ek8WBH1LU/VHmQ3VDc/lhQGrknLsUfYi2HEdHiwINzUthilfXN8FgdiH/8
GLF8XxZ7OgyyzWbC4KjfEr/7Fjn8pRwTWSqfCkcYN3R90JPDrSW+eiK78+FQ
wTYrqyQ5DAuqDHzhUgrMr8TeZnrK4tTD298dexMhYC/53TRzWfSmcr+YisXw
/VQXKVlJFmVMH87zBNeAVUwEZYKALF4fuS3yfK4Z4qqPO/IkyuLPc3b7uVYO
mu+tz74rFbJotN6+JIS2FBq3tj7ueySLVY/ZtQNt6oEkvsnnwIQs0vTMXZJ5
dR+UX8gmyYICyshyz9xPSoNomt0RsvcUcCh6n0EZXw2I3Oua6DiijP5+fZQj
5S1QpF40nKWmguy+jdPPRlsgoyE9aI5CATkSWootRZqgLWzwct9lJTw1MpbD
fzMSnnWOxj7oU8Kmz9MvLjPkwCzZZEXjQWWcXhKYLyotgz+iH55UeCrjwuX3
rqlGdUDnuPgpv1cZvZYHfj0kb4HuPRKTRoWK+KzghWC/bxlcVBkyXiegiOUT
etlVY80wNFq068xueYTztF81K6vAZJpOtYJWCZfn8I2WRDnsrr1z/V3DUdz1
edMF75lYMHAcld+66yheE7zy5mR0PsTt56YUchRGSZG6DdV7KmG+1Zaa7oYk
BkmbuQZvvAYGitH1YhOSyDsr/9xDIQGaulqdTGWPo3/cB8+htmzg1Jjf7596
HOvG4tu+C5XAvI9YIluIDG7i3Cf9xyUXantoP38QkEJbDSqJ0yZ34fjDQIvS
b4jfTTveR/DkQGPbxqfuDYh7tsjt+61VCth8VVHy+kq9YZvRURhavfZ+Iju+
MDhEJHwNl4kWK3et9OP/YX9NOWvO3SVrWGyDILdtfdUanqxmmc0xbwQG8ScJ
dsIK+HqBm+N9YBoo5MYuL5zVxI1e5mP7ZVtgs7lFK/VDFZRuuOV9zqV57f3p
U3OGLf1Jd9fwHOP1PbRSuWtYuBliR06WwUdG5ZsWFarI80ZtST6hBexKlTN5
nivj8N5HZBkr+sT+8Pd1gCqO/spwyDBqAbKsU5ttvVSw4JL77dsa6RDH4xl9
t1IFW0Kk34ZGVYOo0EGh9oAj6NHc8OFBpCeEndgVviwrjsrzNVQDW25D2Ptk
jxkBcZTea+5yWyINwuP5zAf3iOOPBp6FJxeLIFylUqmJUhw1HDnyTAcqYIlL
3zO/XAGR8rn9Be9wyKWU7XhZooA77c+7lO1KB8Npge20RQpIwSMZOyRaBDQP
9p6WyldAMhb4PjBeDnWZ1LnncxRwiU5avz+kFhbnJDnnVOUxrTHNmKY/EjTY
9uRr88pjUP8ZctWVfj9L96dgLZU8pqf8mnmwvQSszVJ7KRIAreT2fSP76Qq+
8aaV+WcBzz+ZP2v3MgwSh/Ym6IkDts1sVaPelwQ19CN+yxthpd7ksBzryYCj
soyXFnu0sbXqcfp4fBOkJye49+mqYBl3Eu6xLl17X1LCusnqwYe8NXzRhspi
20I1vOv9Fn+LWRf31Ab8OMfXCBKvqgseDOngTuUzVNLvGuEaI2WVzyUN3NMv
6jInWQWnO3becrIi4bTxjT/nBCLg6J6y059tSThPdfvpAHM2bHYmHT1/joRu
5+f0qreVweu2D9QLTiRcHLsj7X+nFiqZgl5dcCFhTQZzdG5AM+iz6k3rruAo
Z1K1nEgzRDLIy71j00IyGxH9et9AeOWq1D9LrYWsJzx2jDAkAe9T1dMfFkgI
bw4+aVfOBjcRzblPL0h45P47xedQDE1R2pcW2kiIDMilMVwOjg0bBuWjJPGB
45UlMbgCFWENem06K/WG0s0OMZUI+G3l/kxm+wkU8hTNIvkmgewxgVMtfSew
h5Q7t/F1Bjjxmb3eriaLw8UPVd9HB0CZ3nq7rC8yeFkjauEeUwx890mfl4yX
wQ2pFkkpZcmQSR4nMWupiucuXPc+QR4N9j1hBuHyqkib8/X5ppw8OBIXePEY
lyoKqe2QuPiuAhbP+EWPU6mieduhm3NejaCo63kYXinjBbYw4UuBQXDr2onr
10eV8fPLA6cmDDKhu3Ddi65hZWyOCxdye1AKW0ZbBemfKSON/I6aH+O1oEHt
H3ByUBlzLionNSw3w2mmyPbpBBJK7G+yG4nJhaK44KQOVxJG37LEdr1mSDel
oKkJ18cG8qatlKGVwFY7bW9dTMLnY/L7jtGmQU+q5Lh7HQnJmM0NRhTKIIDN
Lp9hqzoG0EvEFu0oguIWT9V3Qvo4/yNbrmO6Bq7fO3vC1puE1G7NT33ZC2DC
+rxL5Hsd3H5iW4G2VSNwoXDN02QS2lp8DlAyTIYK5wzyJZ8Ve+CBnphoAXBo
XjhTK6aLtziqv5rO1sKD8Jcdpxl00EXU+cDzjCqIeSzNFuUmhQMG5W9k5+5B
epcURcEtKbQjf1Ry5UUelHTgVFuCFC7k7vM4Z1YOjffh4WiJFJY9fRZ3V6cO
TMbsL7IkaGIfueKWQwW3oWE6ISo0UxO3R208HRiUDnvne8vIizWxMtK4vq2i
GLx+kj9xqdFEm1eiXXKZVfCC4ujnyfuauJOX/nlbdCP0yTXwvY9SxQU2lTez
e2+DJlXQmXX9quhNPSiVG5EMj7sNEhi2qOEV1V2BI8m5oBHKOcStqIZSHXwz
14dKoEf767YTvit4+tFWlpeVcFnZvYL1jxom75OXUOQKgmdf2IMDJ9Tw02T9
lLtwMggn9lgsdqvhotxM06hJLoQqeUiYlamhj9bmR8mtJTC3cICu+64akl9L
rh54XgkzUt5M4mY6yFw4wfiTrQRuUz3c1LFFB8XUPpMkimqh7Ln1t5FWfZT3
DX0ealQObs8COyYFtTG5QDjp7cMiUPh6+Jj5SpfJRO+s+5G5HGpoNklLNeqg
zf1mq5/LJbCbmf9Kzg151HNYsJAKC4HzI+4U82/ksedJEM/U2F2QPJx1ol5e
C3/dUs3imbwNlwLhFL2zFj6lEzPJdkiBiumnrtZ3tXCOzJj+wf58WJBzuFPX
poXk39HiwlwpCKRuyKf7pIXBjtr15ArVcKSm4VP+Vk38/ZT1d81UOnx9UVNB
ZaSJW8dUWI1ZSuDPlQg+1ihNbEq9UJ0+7geVb2mDOoI0cd2odK1rcRw4KQfP
OvhqIu2XCdWgi+nAXUSlstNDE1Mu8dQZx+TDG4YbOfVOmhjjXRm560UJTMZE
/Vjm0cPzEVNVmy5UAAe7ufEdOX2cKh6XHn6YCt4B5FkOUwp4eWtlZ/+JIGi5
Ph9HOqyIScpC9vg8HiiuvQkWdlXE5Rtt1YGd6aBwpd9nV50iFts4H3c/+P+/
L9HQ7GI2j0hYw4PD5r4vNQrXcN+ue7/acirXsESLf2V8fiOcOQY5B+XlkafL
qV5syBtMpW/McKmrIOvJgRaf5EjIG+e3HGBVQcrFDD3HwmQ4Hz4y/DpJAa2r
OXd5Xr4O942O0sl7K2BvwwbyFLcI2HEwRCHHWAHnktwvbuRPAPelTaoZk8oY
o6pk8mbBE2h5K6v/fFNGAU+p4ZjIUMg2tOLUp1JB8dRPe8QPx4F0EENkIZMK
pk48LrQfT4agi4mx3vQauHtfv1K9SBKUWmo1BLdp4A7rwkc0dgEQbXn1Z/36
Ff83G1+nsI+Hwajnu8o5NHFk6jPpKl0GbO88Ipwnp4nTH4TNyN7nA+lngGaq
lSb+WDpWBW9LwN2/8ZE7lTrqUQjaXT99HUR8BoLZNqnjlktTB3YYx8AX93dq
XRTq+O3bqS7BDalQ6vhniyu5OtoJtfiOjGSDs/X2HhYydTxXuYNF2qAIBsvn
gxz51NGDR/XFzDofkBftLSp2UEeOyDmxZbtQqKzKH1goUkdKhtL1VIMxwCkR
+P3ogjpefChpHZCYBFHfq30GrEloEVT1dOCjH0TcO/D9yUo+bIm2+uG3daVf
l77j+OQCCbNcqu6H9CdD6NSvyf5LJHS+V089ujcLQoJsTPpX+FOsvYXEY1uw
lq/9zpN9Co66vIZb9rlc+O11aw2zrnf5ZnAyfO39d7vWR/bZnSFrmH5RM/6r
e8oadt416SjAk7+G7eLrk49+KF3DTIf8N2uv3DetakfHOBIJtX5KuuV6h4G0
wYxZNT8JG/Xle080ZoDgD0udZ1tI+G535bz2vhJgix2T/zariV83qHhRjlUB
nfgp8Z0PNfHP/MtN9QmNEKR1fe6uoi6mMzJ1RO5PBrWIYN8AHT00+V1z0+Rm
OPS9PqtxQVYPdU22KY05ZYAevzKzsbAekiWyZm4KKYbhy1xT8hx6OHC7Ojtx
ohKipSbLBGW0Mbv106ZARR8oT9K7fK5VGyV878WcjgmFJ8vtMllyOsiSJp1/
iSYW5k1EN4+36+C1NwuvlJqSoJZFqeuumR7S5Jjz+KgFgfuujAYvez2cOsPK
PWQTD0K060tOu+uhde1NFnfddDiavOFXUY4+ZtAyxFGmlYIlP390lI4uyg7P
Ue7iS4Rhwa1DgeO6+JI1982250UQl8Mtxmhthkv2NQ7XjhZC6/qMeYm9+rg/
blvGlyNJ8OWZ8Uvm4pMo8KFm71BqEoT2/HQW9DHBAuESqw0rfOHS5zXVQGGI
fI2n38Z3ZANj2IY/c5sN0MHfV4FyWwqobcPfL/X10VRJZIl5XRI0DF3LbVw4
hRL8zv7rqNNB7kG8kM8jI/ztdLY1WyMbwl/wfbQJM0SR/J8ytkUZMG+hfLa3
wxA/3VCVLqYsh5+mhSq2ngZYU15l/edhMqhsYKebETHEj7f4eWazUsE0sEZz
WcgA/U8o7tj5faW+/rn0WZZWBq99IX26zh0IaXqSsbV8K/2/zTCXbmwMVBR7
oaCSDDbNtuUt9CSDRdSA8CwXotNuty175Fyg+LiXo62qHmKmwPF2qxDQOTQe
GMKrhydkaOxnwpPg2x6lrHJqPSwy6lbcr54Nd2kKW0fe6eK2Y+30hymKwaT9
ISn8uC5KSF+V9ddOgFzq7/f4qLRx8YFkE3f6Fbj1nLf/N4c2nj/G4z0ZdBts
s05vfIzaKETFvC1+PAoU3cMlkoy0sehL0stWnwT4HcM8bR5oiZ2Z6qWHqEog
O8VWtaH9FHYF7c96UJACZKPRM57Kxsg+whV4RCATmgVKTCwemqAAS+q3R1Q5
oPWGSVzeTRZ9Hvu631O4AxXJmb4fdVfqx1LmZ4onk4HJTLgn5qgsznu7fmmh
yYErrM27pRlkcWOGtX+CafHa98wslScvrJIC1vCzq6/4/DVi1vCnglxXh6lk
OJBNqVi9pIcJjtRdrgduQr9R/H0/qZPIEsjls9k3Aj73BgRS7TNAngkJva28
yRC8tNs2UMkMZ7SSAzK+lIA0C9u5EC8z9L2x/77w4UwYLTzLV9pjhEGHVL0a
ytJBdpfoQdN2Q+y+dTS/UTwBDirZC7GJGKHDXDg95a9s6Fg6rSh60wy7EuJ6
Zt9mwE6+Q9tcV/rvt9UyD3OfRcCpBwuDbjTyuOEjNe/j5VRIsKyJv0gmjzvX
fXFSDF/Jt2RXLTy+yGFUgMOIaXgpXH53xC+b+xT6ue7aW9EcvvY9d4b3R8i+
C/FrOOW47VMPxixwrLaNPj9jiZvuWLLkp5WBzQl6idqX5phh9mc0oCkf5ikV
I30TzPGQhNdJidGCte/B9OmUJMaYxDXsQjZnKfOnEFSprC3GdE5jz7OdWxf6
cyEiJJ1OK8sUr0lmnrzSVQS99cqVbvwWGPc64NJBu1xwDBoqKt1vgQfWUzLI
NedCN6vC16FFeRTjOTLZwncFrkQGdcSLGSL1EsfjkXfhsOT9x3kyyxjTv90c
CvFJhcRFauseMwvsT4pJey+QD0EHbty4yGSJfI7vg7r5SuHhkQ87l3+ZYqty
hhitRjG8f996YaTIDJn2mMkvf4qDnb+/PzerM8M8zndvbtzJg1/sUQnpTqaI
/eQF5gqZUOQS9OXVGXP8sChx88NCNNx9yi825Wi+kv9e7WmMK4HKGMFbc6aW
2GTTKxUVmQgXhMOXq6WVcO5mkuwLUgDQTrnwvDyihI3F05bmzXchP1ZPl5xN
aaUfb9KetU8HZVUxn4O0SpjVTuN64EcezHf/fNOqZoL+j74cFplKhcxTZbJD
5wwxZijc2oIvFir1TL4f9jBE/x8GWuKJaVDq5dWyRdoEGzcPyjkwRkBdw9O6
p2JWWM4RzzP9PAVMXw1kyZuZo9jg9sifvNGw9dO9sYkxMyxY2M8U/TsLjEPm
xCZSzLCjU+g63WI0qB9l2y5qYIE067IWdJPj4PaT6LxGSQvcxPPlxfSHfHh9
3nRBd6V+yb1PRVK45Q4c+t/jf0mqYHrhJrvZzf4Q6FAq0HvsNM6x7IP1LhHw
xGL5fb+CKcY9OE2RMJkGfbY5HjOeFph68URkwPFY2Pp2A+s3ZUvcme9pwlmY
BJdt3t8ZZbdEB9MT37K5ysDv7Xxaj6wFshwKiS16EQOV51k+WkxbImv85vO8
PXFwPCxfvoFPFftfp39yD/SE/bTfm+ezVfBN6eNYxyZ/qFyKbX00eRod2iYN
kg/GwOEDPC8WREzxtceLGSaJdCj6rH1sww9TDJ/hTlOWiYRec7cbj/IcsV6I
kyS0sl+LkTH39Ty2eGX5ljvFpmxw5dMh63E6gwqXK0YGq1KArq2OcdukJYrq
jW0+4xcHK1WN5PQnS6xZd+3sLpM4GOiXtvtwXQPff+U7KNrvA9NJft8GDDQw
4IbY0qviUPjt0O5Xe0gDmcJOmWUsxQDdcUr6lHUaOKR+4m15chIEG8ndPGBr
jk2eG2sO0UZDdplB97FSB2RTHFEiheYCeZr2jvdzdnhFQld5+mQufHnQahbo
dwY1GOYv8KQkQMvRzndZw9Zoy3DDtzMoCczHdEvfnCFhIm1lleRZb2Dj2Uh7
xoaEddPzTPNXQ2DMpcJ+yo6EYRxtc+yZ0ZDQaNVpu1J/PRyg7VYNXsnP6R82
9utZ4DHhtJ/jVbEgU7P14nSpGdJRUe3xNI+FXw9ae4c7zTCs6GZjHFs2ZNEf
G8njtMXdQp1bPzWlQcZWtu/DM9a4QBultjU1Fa7dqti6zsYKxT+TQgVfJcCn
ZuYq9YN6WBFUtMFL9iZERr6PeFqhi298HnjcKYkA9vnImQOBeti79xZDLOdN
2D7Z4V83q4cRN4LrSTci4CtVfICAMwlluZTErcW9wNfieuXSTRJi2YsrVM5B
QFfvMNG60s8ftrtVVMgeCQXPoqbfuZ7C08NPzvlb+MH8DrMG70tGGL9h4tr7
QxHgzNiwnVneFNvLyzX2fImA9zWTDjcum+HwXkFZ6geRECFoGcVlbokB/G0i
ORgPt9VZj2896IRY/u32xZFC6AoCl256J3Qxvla8LTAfHLl3FxtHOyBVyUmG
7ru5IPjpt/BjSUv8RqcW6li7Ei9XU448k7TCyGDe9vdmyWD1jtzxqY4jXqkO
Or0nLxf4uoePlCucwe91z385WsWDd5VI2Tlpa7zEadROLZ4Mn9O/XKbTt8Yt
G2V3XJLMgMyPz0UZvOyxXfeJn8ufDEj7c2sjH5cDCr01vV3YmgtpTxSCo6rs
MXUmYuPbQ5mw92v+3UI2B2x8S+VMQ58Pb6cLrI+3WmGKM/cC961EyEvQNQ1r
ssZnp3e+00lNhE0pE+X2tmfxJeOW6SOVaWA3xJ3T13MWZR/KMe+vS4dTk6q8
DzTs8EK0vsAEdyrQvXRb93TQFk/Ncy66BaTCi0vM3OSidvhpt12PEH8q8PP0
kv26YoPSdjQPLpxOgSa3vYzYa4PU8c7pboUpUMSrUcuxWwvJ4mq8alm8wOd0
D+XAx5V4vXdqud4mCDTD1fR8O0hI92123za2SAjdKEoSk7RDeorYx3c6UoDv
Ps2lXGo7tDf9pPq1JhU6Wft+0J4+i/V/TsoE0aRDxO4c8U6Rcyg/bREX6ZMJ
G69vvhibYo9p04t30suz4b3VrgndZS3M+JFUuz/wJoRc7vj8ZaVempfyrB27
EwcCYe5/wndo48314d07C9OgP5Nzs9A+bdxtZVN7nCEPLtQP7ern1kbttyy6
JfXFwFd209eJxQrHk6zCzDcnAeNU4D5uj3PYLm/y46JyFuQI3nhncsUO315S
W9exJQMGl9q2Wfvb412bnYUH72fAyf2pDHtPaWP/EabGQ3uvwOGhyq+W63Ww
qtypmb4/GCgCuwfz8nRQhjuH1KEcBd8C9audDa2w+35Zm1NyPLw1N45gYbTH
X0M7djL4ZYIfff2LewnnUH3Rfd+IXxac7D2/06VZB8maH76o8nGF2fnCbbb5
1jid+ePL6xuJ8Jqrgd93vS2qd4+SG59LBm4tD76EhpXzFFK/6qad8c/vZ/7+
vcnf35v/ft/xdz/y9336u57++33Z399T/u4v/h8I38Ix
       "], {{
         {RGBColor[0.293416, 0.0574044, 0.529412], EdgeForm[None], 
          GraphicsGroupBox[{
            PolygonBox[{{244, 6, 255}, {260, 31, 248}, {256, 31, 257}, {4, 31,
              6}, {262, 31, 362}, {257, 31, 260}, {248, 31, 262}, {249, 6, 
             244}}], PolygonBox[{{253, 4, 6, 249}, {255, 6, 31, 256}}]}]}, 
         {RGBColor[
          0.4323578354083948, 0.2989867284481259, 0.7247115578784967], 
          EdgeForm[None], 
          GraphicsGroupBox[{
            PolygonBox[{{281, 49, 286}, {272, 39, 317}, {264, 39, 266}, {322, 
             39, 264}, {256, 7, 255}, {269, 39, 272}, {314, 49, 245}, {286, 
             49, 292}, {335, 57, 454}, {249, 1, 253}, {251, 39, 322}, {323, 
             49, 281}, {305, 49, 314}, {292, 49, 305}, {259, 9, 265}, {266, 
             39, 269}, {359, 57, 335}}], 
            PolygonBox[{{257, 8, 7, 256}, {317, 39, 49, 323}, {254, 7, 8, 
             258}, {250, 1, 2, 252}, {244, 2, 1, 249}, {255, 7, 2, 244}, {245,
              49, 57, 359}, {252, 2, 7, 254}}], 
            PolygonBox[{{263, 262, 362, 39, 251}, {261, 260, 248, 9, 259}, {
             265, 9, 248, 262, 263}, {258, 8, 257, 260, 261}}]}]}, 
         {RGBColor[
          0.5249857256806579, 0.4600416140802098, 0.8549112631308279], 
          EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJwtUL8KQXEY/X33JtGVAVkspJTFopvdomzIYCAWi9wMFqNBnkV5Dg/gKbwC
knP6znA6p/P7/pzv19xkk30UQmgDMfABikDeQuiYe31wXboGbkjTuwMr6Be4
LD8xr6OugivSfP9qzxvIyY/APemWeQ81+5bAGPpqnoN+Ck40h1m78pk3kv5p
FjXzptID8AGYQT/M7+SMAngKDKEz8BPYQp/MZ7GX2Re692jezzlz8zrWnyPf
wXredFN+3rGWPwJftIs7Y/n8j5E0b8pUszPfx73875Ly8A/+k24drQ==
             "]], PolygonBox[CompressedData["
1:eJwt0D0OAUEYxvEZq/CxNlY0FESyDkBJbIFOQUQUGolmFULcwllcxykcgEbj
/2Te4pd5dmbnnXlncLptryXnXBtlxN65iLGBFvnL+EFBPhvlNTYYY4QJplhi
gQ66mCNmfw0/VHyorTmtPbAi73An55hZDdXa+7B2xIGcomn/5HaGzuqhj4v2
ulDzaXNayzBEovOtRmpzmfWgXqo+3FVvEJHr+rY9ifWoXvUmepu3D3cr8CL/
Ab1fFuw=
             "]], 
            PolygonBox[{{274, 13, 264, 266, 267}, {336, 335, 454, 67, 
             390}}]}]}, 
         {RGBColor[
          0.6033709825899957, 0.5911114665933133, 0.9104003621306098], 
          EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJw1kSFLg1EUhu+9woIThlMMwzJWNBkMwmAKY2BZGMLAsrKypj9BFgSDgkFw
SVwxGcTBQBBMlhmXDM4yxSIY9gN8Xs5ZeHmfc79zzznfucX28cFRCiFsoAU5
wTu+iP/FEJ7gHNxCn/CEswo8gEd4njgHL+Fl4jv4Df72/IZyKPwFTznPer7u
rcvRMvolvsYvyR8n66v+Nc/bxfec16LlKf8KPkcX8HayWOe9aL01wwzvoB+4
xCxDvt3D/WixzjfxR+JTuButlmqeJJtb8xfhW3QD7+AFv3sGf6BXuJlM4ir+
nKyXeq7CL/A+fujzqIb+acV3od1ph1vJ6ipHs8+i7Vy77813Fa2WatbxB9+/
3qHr/5JJ9mbag97kH85TPhA=
             "]], PolygonBox[CompressedData["
1:eJwt0ksohFEUwPH7XbJAhjEijxjCxII8ZogoK8oCI0RMrCiPoViwsPIqys5O
bCy8UlZKWYlsx8ZCVgplN7H1P+5Z/Op89/Xdc84NTi0MzFtjTBipiHnGTGAb
O0gy+cb4O/wpxtTxfUJ8jlviFdYs4wKX6GLsnrkXhIjHGBvVNbK2H33YxBae
kcAq1jCHWZziDF/41DWydp0z9zj7AN98L2ERD3jEvufmDnHE2jRsGLdnl7l0
6+4mOY0TB63L7QMj1t1J7hbFIIpQiFKUIUewNhtZxEHkEhejk7gVLahDPSII
65jMyR7Z60MGcQB+487I0xwklyEMI44Frcmc9mRbc5bcjz3Xi2skidvRhh++
fzFDPK01l9pHrKuN9PCKeIqxSXSjR/85pD0b0x6c6puI6RpZW4NadHgud6mJ
1MbHmTfEdwgQ52q9JEfJtRENesd2fTMX2uMvrbHUuhJVaEaT1jCiNZXalqNC
7yB3qUYIvdb9W97gq3Vj1XqGnPVkXa3kjgnrzpCzilHiuZpJ7aRmUrtMz/Xq
v2f6JqLak7jukb35KNA7V2qOkqtP+y01kFr8AQ6YVmI=
             "]], 
            PolygonBox[{{280, 279, 277, 19, 289}, {379, 378, 642, 133, 434}, {
             278, 28, 324, 282, 283}}]}]}, 
         {RGBColor[0.671473915282604, 0.700533929587756, 0.9119528992361017], 
          EdgeForm[None], 
          GraphicsGroupBox[{
            PolygonBox[{{320, 23, 297}, {752, 199, 643}, {660, 199, 619}, {
             643, 199, 611}, {32, 23, 29}, {619, 199, 754}, {283, 21, 278}, {
             326, 36, 338}, {688, 105, 567}, {25, 29, 23}, {464, 105, 543}, {
             754, 199, 663}, {663, 199, 759}, {25, 26, 29}, {391, 32, 337}, {
             289, 20, 280}, {361, 29, 247}, {611, 199, 660}, {319, 20, 289}}],
             PolygonBox[CompressedData["
1:eJwtk01IVGEYhe+9RoIuklIzhwHHiVAMHJhC+rHACFMSNMgftElsUS1SULBF
QdbKiQKFhNxlW8MgITe1r2yXLbVNGShJgeK25/CdxcOcud/ve97zZUbGro0m
URR1wAGoi6Oomt8qSKHfwhJswTYswzt4DE/8TWNr8B1aoJa1x+A0uhM6oAlO
wldYhWYOzcEQehAm4T70QB1r03AXPQcv4CXMQwVrDkElVMFzvj2DPPoUFOAG
bPDtB2RdTw3k0I2MNUAZlMNv2IRu6IHPzPkEfdAfhxpUy1Fo0Po4aN3xsvaO
g1eVcBF9Ig5nVdvLnP+n4Az6vP3R/7x848xv8Bf9Lw5zNKY58jLv/9pDe0/A
uO+oux4piaLD8BP9C2bZayYJns3Z00n3UL08x9jZJPRAvZhCP4I/6B3X3Oee
qDcDjPVDLWek4A76NmTRx6ELfRXW5bl7ot60wxWdA19co2rVHtprGl30nHbv
0eVMKBsf4GMSeqhebrpXe7CbhJpVey/6OrTBpSR4IC8y6HqoiUNv1KM0+jUs
wC7swUN44Ewv+5vGWll7wZnK26Mp75mxJ/JGnsk7eT7rO7Q5Y432ZN137HXm
ypzRgjPX7ZpU2wp7vfcdddd9vwXlQdkZhptQhKdx8Eheac2KvxWdEWXlFoz4
DXb6ja65ZtVeytqDSXhDekvqybR7rF7P++3NKFt+83r7WqO1aedfec96jua+
YmwhCZlWtvVmK+xpqzOhbIwydg8W4Y1ZdI2q9T87wICS
             "]], 
            PolygonBox[{{300, 299, 296, 23, 320}, {543, 105, 688, 570, 571}, {
             804, 803, 809, 199, 752}, {341, 340, 368, 36, 326}, {338, 36, 
             368, 365, 366}, {325, 32, 391, 340, 341}, {673, 672, 567, 105, 
             464}}]}]}, 
         {RGBColor[
          0.7395768479752125, 0.8099563925821985, 0.9135054363415936], 
          EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJwtk7tOVFEUhg97Q0BQgYJbgxkLUOABfAGZxASKSXgBSoqhoOMReAc7bYyN
DQkxMRogXDMDBGOUgTAMlzADZ0ZsBBL0W1l/sfL9e5211/n3Ovtkpmdz+ZAk
yRsiEh9YbMDvsIfEIfoJrLD+je5Dv0LPoL80JckJrBI7xE/yKXxKzUeeZdB5
GFgfo38Fr7siStpvfVZg0Z4nXjfOehBOwc/B8/dwNHr/a/S2fJrfRWITXQvu
5Up+viae3yJeq+dL+CJ6XVv02gZRJrrV395jwzgHQ/CH+t/BVtZH6H7tLegs
DzrbCVxTvfnqpa6O7tQ7L4gbzdf838Lh6LkW1dzoDMuqsbOW9S7Lb8tvQzO1
mZ0G31dJ/Dv909yKsJm+l+gR+J71Ovpb8POYT/NbVL3NezX47JbgSvA52Dw6
ovd/DM/I19ApfKuef+Hz6GccgBOaeRbuBv8OVdgefa/1GIvu1+7XJ/Uxj1Ge
zfu69haCezJvZfhM38g8zmuveRlSvo5+pD7W749m19C9tPuZa/JZ2F7r8U7a
vKQ6Y1d03+bBvGR1rkm4r39hC+4Fv8el4Hc01T8xpXq7gweqsdo5u4voBfgf
C8uT0A==
             "]], PolygonBox[CompressedData["
1:eJwtlElI11EQx39LpaWVUlpR5FLRgoFBnZIWjLAiIQ9taEV6SIw62sGg0otB
gWKL3dJrYFBQlyKIIMtMD1mUuZVaKW6hFK2fLzOHD//vf968efPmzfyyTp4t
OhMFQVAMs2BZHATD/PZAAjoRvqEHYA46C8bRk5CDXgBjgdnSY/ORbwf8JfBP
aEW/gLfoJbHt/QRJ6NPYKmAKvsMKbMuhFn0Z1qBXwwR6EjI9P+W0Dt2O7SX6
PfxDl8OpyPZo7x90P2tt8Bs9DkPorzCX9c/87wvMlsH/2TAV2BnZ6A2x+Y7A
PHRKbFp3TkXPh49+f9XmHfHaAztTZw9EVotuCFk/yv8jkd1Rd02OrRY6c21s
PvJVDMXKhAzYCnnKNQyCXhhGf4Fq9CVIQCfCNWjwmqq2qZACaZAOhfiuVO2g
An0OKqEF7kKNYkIplMEqyPaclftDfB5AEzTDKIzAG+iCIRgMbY/2XkVfgc3o
LXrT0M5WDifQndAR2h111y6PVQXnYWlsvaj30Nt34/M6sDeL+L8Pn72QAxtD
i6nYWXAntJ5Sb92Am/ADngfWk0/RmyAXHsFjKAptr2LsRtdDHdxmrUl1QB+G
YiiBF9DqNq0V4rMfeqA3spyU2w7YCTPYpmERuS9WL0U2G0/gGXqhz5d6Kk39
h209JEFyZHu0d9Brnee90YZ+FZqPfI/BcZjBNg3b0NvhV2Szohp+8DfR21yA
i7AHCvwOuks91KmviHE9tBqpVuoB9UIR+oDfSXdr9t7QmTpbNVPtOvyt070X
C/wsxVTsRrgFh7AdhHzY5TkptzHWxkPr+WE/U2eX+FtUei+XQan3hHpD34wJ
7+kaj5nvNVVtVTPVLtd7YUp7QpuZVK+haqmZ6/MZafGeH/WcG71H1CtlPjsN
Pov6htX6N6ncZ1SzqpnQbPRH9vb6hnWi72O75zNd7TNQ5Tat9XpvqUaqlWqi
2tT5W/0HoiXFww==
             "]], 
            PolygonBox[{{452, 106, 724, 497, 498}, {321, 320, 297, 30, 333}, {
             575, 574, 715, 106, 568}, {664, 663, 759, 200, 676}, {363, 40, 
             371, 457, 458}}]}]}, 
         {RGBColor[
          0.8030878625485323, 0.8604892856486579, 0.8959063618329721], 
          EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJwtk09IVUEUxu+dS6WVpZBaq9TQQsqFS2kjuNVFuxZuXLSRkrK0ByW1SBeR
bn0ppP3BZ6Wi+Up6FflnFRSYzyxqU7gMpE0kWvY7nG/x8ftm5t6ZM+ecqWzr
OHMhRFHUihK0gLJoEsVMzMMffHAJ9ePr4BqaxW/CUXgfvUZpNKPxXdZewouw
hH3e4IvhMOMxfAoGxnP4b/hD+PP438HPsLO6YSqOonr8bXiV8Qj+SvD97Owp
lJG3uTv6xr5d1Fl/4Bf+b8fX4J+hafxs8Lgt3nHUzjfVsAW2omP4s/Bv8Dx8
hsvoMf47rCTmV/iixGOyc6/Dk5q3ddv/heJ7r7zNwd2s5fAFcB9axZfDMrSE
PwDTfDeI74Fv0QT+MtyTeI2OwCnGj6xe8BfqxVcz36l/u+CnyOOxmlax9hHu
gnXcrQp/Du5lnMfXwn7lbQY+sFqiJ6hQ99lg/qH2H4SliZ9xMPEzrB5Lyte8
+uho4r2xzlyb4uyAO6rFB9iseBrhBmrA32R+M/be2IYV7LOCP5x4v1l81kPj
qksGDihXT+3u6p+fscc4qdjW0HPF2qO7XIO3dO507Hundf8bmrf1rN6J5TGr
Prd+b1T8p2Kvd179mVI+La/HE/93P3ynfrO+W1Bsq+qVtPoyx1oTHIang/sK
uK3cWm+eUE4sN0NWG/y94HfM6F18DV7DLfW89fsyCsFzaznO6e2vqM8sh5bL
Rd0jr961Hp6w+wZ/U/a2/gX/3/q6T/W1Oncpt9bL/wFrHZ8Y
             "]], PolygonBox[CompressedData["
1:eJwtlGtoz1EYx3//c8jGXKZsFMnmunlDEa94QTJMzSsklzZFLoly98a8mVtN
hi1iGxtrxtpsc9nYhRJqY5NLuTMMRVlR8vn2nBef/t//Oef3nOc85/ucMWs2
Z21yURSthj4Qz584OBKLoqNwAgqgEIqgiblGqEc3QAe6hO8q4AW6ibFGaIU2
OMZYvrMYivUDfYu17TDeR9FweIyuhX7ob8xfQz+FdP5vVy7ok7AVvYMYKehU
WIEuZ+wS+jxUoefFbE5rFqGXhv/j4D76HWsuo2/CZOLvcRb7LBxG72PNXqiB
WvCsqYss53hvZ9bZS6AUHsFDmMK3U2Ggt9hdMAx9hblJIR/lnsxYZ2Q5KJeZ
MMNZzZrCntp7P+RCAuubI/tmgLeaqrY/4RdsC/Gnwk7lRaxiaNfdQA5kwwJY
CH+Yu87aGtUYfQHOwx1ohjrVH75CD/Rlz47IcpjgzRPyxjTmpsNcmANpkA6r
YCW8Zs0bSOObJ3x7Tv5CR3CRn2JoDXtorza4C7NhVqiJavNWubH2BvxDP4Py
yDwir1Q6O4vOVIuukB+gE7qgGsqYq4TbzjwsL+fLm7CYsUx4pZyhl7HfMctB
ueSGu1BPqDfkSXmzERLRGYzNDzEU6zN0QxYsgcHevNAKSejljC2DkehRkIxO
CjEyQg1VywR5yZnHSkJOveHOdfeJzA2FT+iP8jh6rLOeUm+pxqq11iSGPbRX
T8y8Is/Im/omNeSk3ArgOGyAjSGHhHCnutsDqglkQw5sCX4qhSL0X2dvQaHu
DP3FWW+qR9vDN9lhD+01yFttdKe628yY9ap6Vr181VlvqkdL0WtD/yt/eV8e
kpeqYTSxvvO/Ct0CH4Kn5e1dsFu9Hvpdb8ov9D1nuesM6o1DznI/BWXBk/Jm
g84ZYijWaTgDcd68qTdsojdPyVvqQfXie2e5Kd5z9EHIg3Ww3tmbobdDb6re
VuWs3NUz/Yn3wJl35eEW9BBv3tMZdVb1lHpLb5QPnpK38sJeI7y9rerhFG89
qd7sDl5VTsqtHhzzL51pvel62/8DlvzUJQ==
             "]], PolygonBox[CompressedData["
1:eJwt0c0rBHEYB/CZ3fwHyhXFjYPiIBfFidM6uLt53XJfUV4O5MBN6+XgJa+1
2Yj9A1B2vZS94kK5SEqU4jPNHj59n/k+08yvmbqBdGosEQRBDVVkXGzInNxi
m0aGdf2yi26Oor3uTV5yxW8YBKO66mQQvJhfWddv6i7kCae00coU7XaT7sub
c+Y/ecMtvfoemqi3aw7jPtoXWNEtyAMOzddyj336SPGViM+UiJ4fxu97l0uu
lyvnjs5fqrz/WJZ54Ie8rijTzJo/5DQznHPGc/Reu10579kt5rLMMMGafpVv
duyy8l5/R230TXUFczaM5w5d0VyKvqd5hE8W7cblEIM0JOMzzZmfeEzE/yj6
V53yHypqRd4=
             "]]}]}, 
         {RGBColor[
          0.8642489183252297, 0.8808848680561436, 0.8685062636534293], 
          EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJwtk89L1FEUxb/vVov+hKKNmzbVIJWCtLFFu0oITAc3zoQuArU0NaV0XKU2
ITrQZsYMBC00pVKCfpAWBS2CaFFBBULbdu3Dz/WexeGc73vvvnfvufdbV+y7
1GtZlrWCfaAbXATD4AAb7fAhOIFz6F8py6roSfR1OAcfB0fBgxR6GW7RPR7z
j+/T8Af4HbiA/pHiLt//Dr/RmQX4D+hEZ9y/hD6DfAwPWOQ1DN/x98EcWOd7
Fn5ksVYAA6ANjINpj1fMS3gFDKFX4TKYQX+BR1LUcQOu6J6RLPY91t8YzCJ2
yu9WztvwT9Wyn3v+oy+jf8Mz4AT6IOvPQRX9Cf7KegN60cIv9+0hvAmOocfg
EqhHN3LmI5hH/7VYy8nzDjAB8mDTou4nFnv+br08mlcN3pNRxX3mXA3+5t6A
a+irvgZK3k/4COhFH7ao0+t9n8Lbojx6rXX3I683/P5+Yq7APRZrefXkrIU/
O/CWhdfPLHxxf9bgV/LHfXKPXFdS5DulHozJq7sp+j6pWsvgpnKrEHsKfsqZ
txazdBJuspjDZoue3tfMVNVv77XX7Z60678YVW0l1e615NS78ynmxn3vTvF2
UfPj+dY0O/cs+nXLIsch5VmQHlQ/u+TXC4uaFpRnTbnu1aZad+Rni/8vFjN/
22KmvZYNzUVB9y9rvayzbXprF6mRe5I=
             "]], PolygonBox[CompressedData["
1:eJwtk8tvzVEUhc/Zl4EBAwaKVCKhBqWRePwHNShpEyRIDfQ2twOJW1puvVWi
KoobmlTobRkgFa94NB4jMTDDTIIREwbmlEp9y96DL12/c0/P2XvtdZYVu7eU
LaXUArPgMR/D/D0MF9EH4HzytVfoGzmlVej1MIGusNaF7oNe9H3oRY/Ac/Q8
mAu7oQPqYCG0wCZYDT3s7YR69EpogGbYCH+4oy3OV6FDfDeiG1Qjuqi96H0w
iN5jrsswhD4K29Hn4DX6EJTQp+AC+pi5bocT6JcwiB6DN+hb3HETfsIvOJ39
btUwmd0jeVVUPbobumEAzsjL7F7Js1F0VTUk91TeDrDWhF4D/ehHsDb5mn47
yJ6dyWtW7YvNe9sBs9HXYH9yzyfRV+I8nTHMd5+5d/KwybxH9XoErpqvtYX/
PeYeyauTcBt9HS6jz6p+9DbYCgYF8xlr1jV4az7Dzrhvhlp+wxRMw1/YG79r
5iPhkbwqKUe6jz3rwq9x9NKYp2ac0R/M76rAXfR39nyD5egVcNy8dnkm7+Yo
Y5EXze4TfMyeMWXtKVTVGzxBT8Cl5Bm4gx6H/uQZUpbK4WcrLEFvjvegmkvo
H+bZkWfPzDOhbOiMmvn/tIY/yvYCvufHm6iLHtRLO+xSHtnzIjKoLHbEW/qC
/gobzLOjHqvZZ6rZ6k1WYkaa1VTM4oF5r+rxobJjPltlSFm6Z+6tMqqszsT7
k/+f1StrjfGm9bZHo39lTtkbgxq8g/fZe1Av9QVmWfAMTMfMNLuueE//z8j+
5pvjDt21yDzryoCy8A9NVYkW
             "]], 
            PolygonBox[{{587, 586, 591, 86, 510}, {477, 86, 577, 473, 474}, {
             516, 69, 610, 623, 624}, {463, 462, 562, 59, 422}, {451, 52, 499,
              530, 531}, {448, 447, 453, 52, 445}, {425, 59, 703, 441, 442}, {
             504, 503, 576, 77, 450}, {512, 96, 745, 595, 596}, {472, 77, 569,
              447, 448}, {424, 53, 443, 412, 413}, {482, 481, 745, 96, 483}, {
             798, 797, 651, 110, 540}, {614, 613, 662, 114, 557}}]}]}, 
         {RGBColor[
          0.9411759999999999, 0.9065379999999998, 0.8340430000000001], 
          EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJwtkTFOgkEQhXdXbW1sRITEwmghrVJggAYBG0VLJcHCUjwFt0BpJHgFExMD
B7AlGhptOIIJUfxeZoqX7/3szuybYeem27pLIYR9tIKqqIYq+ubgDF7C7xhC
Cf8FP6Kdz+BGspoJ/g2V8VP4gor4Z/iOjvB9WON+A78H6/AkWN9Pzs7hEh74
Hd3toTb+HmbRNV6B/6LlPMXnktUW4Fqynlswjy7wmWRnunObrJd6rsIOOsav
wyvPtAtffRbNNEdN/C/c9Hk199Iz6/2+zziCQ/eaO3oGZRnzfYj/gYtos2Q9
r95t+a618wC3k/2W54958NrHaHm1/4bXaX9N34t6qvfIMwyivafaJ/gPLNAx
tQ==
             "]], PolygonBox[CompressedData["
1:eJwtkL9uwVEYhs85WM3VNBJDYzFj0GBBWZRVmjAYuQSby8Ci0lto2gEXUdFa
WHoNTSp93nxnePN73vP9/+VG094kOOcyKIkcpsungi7euVdUhkvoBe4Qb8B1
dANnUB9uohS8iflFtIDveWvBbfSDX3nrpRzlfnurVQ9P7glfczbjCo95e4Kf
0RzOo0dnOUfie2+7yG/htbfZ6v8Gz9BDvOcd/vO2i/wvfBtsfg/dBeuhXqpR
rXKUq3+SIH6OXvEhfhnnVdEHfPDGetvB6WC52rkAf8Z6zdTtyWC36cYvfDZh
u+ifDYj9A0dFKjg=
             "]]}]}}, {{}, 
         TagBox[
          TooltipBox[
           {GrayLevel[0], Opacity[0.4], 
            LineBox[{444, 383, 449, 451, 531, 536, 587, 510, 477, 474, 551, 
             582, 556, 526, 609, 482, 483, 512, 596, 515, 506, 509, 488, 549, 
             604, 798, 540, 538, 517, 537, 542, 513, 476, 471}], 
            LineBox[{423, 416, 424, 413, 463, 422, 425, 442, 421, 504, 450, 
             472, 448, 445, 415, 414, 423}], 
            LineBox[{516, 475, 511, 541, 557, 614, 646, 624, 516}], 
            LineBox[{507, 539, 622, 507}]},
           "0.04`"],
          Annotation[#, 0.04, "Tooltip"]& ], 
         TagBox[
          TooltipBox[
           {GrayLevel[0], Opacity[0.4], LineBox[CompressedData["
1:eJwV0D0ohHEcB/DHmQwWi8mgZFE3GJSNwSKlGC26OoPics7LhcvgMngbFHEX
A3nJW14ubwMpykAyKBuTlM0gZfB5hk/f7/f3TM+/MpZo6y0KgiBJXGkhShcp
0kyRocAEJZEgmJN1clxmOWTeXpS5sLNmP8tL8jxS63bFub7ODw12fXjXb/mm
zC6nmVbeaOTVt2rZRA2ldPLu/inbifBr//FBld1BRbF/kd1MEiNBljgL9JAk
yhD9DLJEhlFmGGaAMTa4YYQV8qSZ5YhrUuGbscsOLzxwxh4FlukjxyqnfHHH
BdtsccA+9xxzwhPTbPIPqOxBGg==
             "]]},
           "0.035`"],
          Annotation[#, 0.035, "Tooltip"]& ], 
         TagBox[
          TooltipBox[
           {GrayLevel[0], Opacity[0.4], LineBox[CompressedData["
1:eJwV0E9Ik3EAx+HXrXLWSge5DAI3xT+YHTwIHgIJAhFph11EIYLYJZK8RuBB
9OTBw2AhQZfMS6eCCCUQRMUIKwqy1KC0P4iVQ4NRaeazw8Pn+/ttg71v8mp/
+kZJEAQ59kJB8I/3lISDYF33OWJHaCRBFaWcpobDNBDlGKf47HfNmuQ4lZQT
5wTLPv/JWTtGBVvOXzlqN3GIMGXk3ddrwJxdrV90hZD9Qd+wyi5PecV/XvKM
TV6zxhTzfOcJC/zlHX94ywMWmeU3d7nFDBM84j5j/KKPHBmG2abOf7umI5yx
e7WWb176SeeCnWaDT+6uaJQmLtLNR1J0EifGju/OMU2bczsFe5zJ4r1zCy/s
85ooPrt9T7N6h9tknfM6qK2M2hEd0scMsMQPHnKTy/TwnOuk6OASFzhHFxkO
AMs6Tio=
             "]]},
           "0.03`"],
          Annotation[#, 0.03, "Tooltip"]& ], 
         TagBox[
          TooltipBox[
           {GrayLevel[0], Opacity[0.4], LineBox[CompressedData["
1:eJwV0LFLAnEcxuFfNTS0BNLkEEWL4ODQFkgghQgOHhgKEaJLEOTQ4OIgNhU0
CEY02hw0ODj1B4QNDrbWFA2CVHC49jQ8fN7vcdxwW/VmdL4UQiiyWA7hjl/O
6NPgkm92VkI41SuSdlW3+fSBhDu2S3zx4dmJrpEixxHvFMmzwTo/3p3qmCyx
+4ERz+4Mr/aebjKxB9rTe27puefa0V1u7FXt6pA2b8x4osUxFV644Joaj/z/
lIhDyhyQYp80BRr8Ae3PKGU=
             "]]},
           "0.025`"],
          Annotation[#, 0.025, "Tooltip"]& ], 
         TagBox[
          TooltipBox[
           {GrayLevel[0], Opacity[0.4], LineBox[CompressedData["
1:eJwN0L9LglEUgOFbQUNLEBGRCH4IojQkSEhRBC4hNKhYBhGCSzT0gwYXh2iq
oMGhobHmIMKhqT9AcszVpmgQggah1Wd4eM853OlGjbPK6UQIYY/MVAhJjiZD
uGHJvK8R3x7N2UfmEj98uR3qDGkK7DJgh23mmeXP20/9YJOR/Yk33u0r9Mzr
+kqeR9puD9zTtv/qpea4M0/rlXZo0WfIC00OqNHlglvqPHPCOVWuKXPMv7/Y
0BwpEsRYYIuIReIkybJGnlXSLFOkwRgIECb8
             "]]},
           "0.02`"],
          Annotation[#, 0.02, "Tooltip"]& ], 
         TagBox[
          TooltipBox[
           {GrayLevel[0], Opacity[0.4], 
            LineBox[{642, 378, 467, 489, 429, 373, 346, 342, 455, 369, 392, 
             350, 426, 364, 367, 339, 390, 336, 360, 246, 315, 306, 293, 287, 
             282, 324, 318, 273, 270, 267, 274, 268, 271, 275, 276, 277, 279, 
             284, 290, 303, 312, 310, 308, 295, 298, 328, 353}]},
           "0.015`"],
          Annotation[#, 0.015, "Tooltip"]& ], 
         TagBox[
          TooltipBox[
           {GrayLevel[0], Opacity[0.4], 
            LineBox[{250, 252, 254, 258, 261, 259, 265, 263, 251, 322, 264, 
             266, 269, 272, 317, 323, 281, 286, 292, 305, 314, 245, 359, 335, 
             454}]},
           "0.01`"],
          Annotation[#, 0.01, "Tooltip"]& ], 
         TagBox[
          TooltipBox[
           {GrayLevel[0], Opacity[0.4], 
            LineBox[{253, 249, 244, 255, 256, 257, 260, 248, 262, 362}]},
           "0.005`"],
          Annotation[#, 0.005, "Tooltip"]& ], {}, {}}, {
         InsetBox["0.005`", 813], InsetBox["0.01`", 814], 
         InsetBox["0.015`", 815], InsetBox["0.02`", 816], 
         InsetBox["0.025`", 817], InsetBox["0.03`", 818], 
         InsetBox["0.035`", 819], InsetBox["0.04`", 820], 
         InsetBox["0.04`", 821], InsetBox["0.04`", 822]}}],
      AspectRatio->1,
      Frame->True,
      FrameLabel->{
        FormBox["\"Dean\"", TraditionalForm], 
        FormBox[
        "\"\[Kappa]/\\!\\(\\*SqrtBox[\\(Re\\)]\\)\"", TraditionalForm]},
      Method->{},
      PlotLabel->FormBox[
       "\"max \[Psi] \:043f\:0440\:0438 F=const\"", TraditionalForm],
      PlotRange->{{0, 250}, All},
      PlotRangeClipping->True,
      PlotRangePadding->{Automatic, Automatic}], 
     GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJzNWXc812/X1y5N0SBlFlEyQoRzjOwtvvbekV0RIaMlO6usr5G9SZkVGshM
ZbTM5KcfRUs87p9P3+f15L5f97/P5w9eb9d1nc851+e83+dcFxZzJ02rlVRU
VJGLP/71+8/n1V91jfuT+yEh/l/PXfgTb1WQN6cVHyLwk2W49bivdVLKCCxZ
a/9/j+Vd4cuFJ2Mg8M/TtQwvxT9BxPdqGV6y8zfx++0y7Br4zX0qeIqwN0js
1xdi/QewmFY7aXh2Blpb/vVMANsd0RPTm2fB+p9nEkg3+3vdJqcJ/Nvv//xo
GfSK6ipvQDfRFNV+3nD4E2d9ib15dpCGwCn/FYdmCHXmj+3AXNLfHooKWYQ9
emK86L/iemomqiZ5RlyKuwx6VdWKX//cR9ir/K+4rzBvXWkVM8pbx13x164m
/GMh7NfDhQa2Q1LfWfG+pPvLr0IPlo3/iZd2iZ3wpwHKJhqqRr6zo7E64wSP
dBMR737i/Y+Xzf8TT2wvqSppPYA/jBsWrNSewuEHUR3bcjgIf1vAy25jfPEF
ToxxdKBNNHhG7M9Bwp/2Ze9Tt45vzqblQnqJq7TjAh0wN2lhJ/Cci4ivcxme
sLzSczqCG21PGCeuEe1alh+/v8c7knXHneFgyn4s4RiKP0s4k9h/Hhy7v2lA
4VAxYe8oLuX97/3nI+ZXLBtf8k8UB1ijmk8/eEKMi+Bv/fj3WSuBcUUpsrHG
dyjfM//zSNL2kovwk4h3CUcS4/wEJgP7+Z+rR8WEMcBRf3LPxjxivigxXgJ/
2v8Ti3+mDhthkkG2zofTJ9c3Lo37SSJDj11IK7n8P+zn7+/nR9mP/8svvj/4
J0Lh0594ab8lKPxaeosMhS9L9iQpfPpzfGm/FSn5/+f4UjyyGJ7E9eohXemy
eH7zc5fwAqRzk4BjOlzhdPIRfL16Qe36rDd0Tvlc1DYUInAIMQ4EvgXyER08
p4ykMUN64eeHygzCvgJSWyxo7GYoIdbLEvPzwMjjNQs2qmO164J3oWL9svnT
qg2yr8yVCHvE/vspYd/JtXlOUsXL/P+dDw2kSftLzl6U77+ErxL5IkXgBCJf
5LDzPn+4VXcaYU8Ve2e7ySeDi4j1isT8HCI/TmI1q7JuXG3Nsvn/QFTH3qmU
yzX1hcv8G9vqK9DKKoRZu2kKnb3Owf4JBXUaVSDw5WV4ab4sgeNgwXJ/nzmj
El7oVA7oNiAT+6GBncbPezfFFxDr1Yj5WcDoIjwX4kXCmuOfG2qvVC2bP9D+
aVcctxZhj+BHvSYeqRxZ7xqW/x/yXYTg+xlKPv7Wk6VxBYqeLOWzKqEfqYS9
k4Q+5BH5qk/ow13CngZFf/6c/yde0kttij4t6S0Jh0JEXlBtIPIdtXE338dI
04bcZfHUZApKDXqI4aSKH+35GA8K/5dwECyNKxP4BhjcqpbOd9RAV4KvS/up
g3Zmpi/p53KgzyG859URY0q9+p0vS+szls3/t7iehPG2/dS90jn/tb4v8fUQ
zmVPdaqYq1P46E1XIPfOy30Z/s2/JRy4DP/mW+W+oI8alaHEejViPHoZrrSm
rT+fr0HoeTzBfy1ifRJ09sU+SR4/iYtg8S+py8f/eb8OYS8dEssP3Ym8Q8KN
L9KcxalvE/HrEfazl+El/TAl5t9ZhqffAJOisik+nOE0DHtQDm85KuxNj+kj
1yKa4cwj4jEh3l9GxG9A+FcAL6VVF4ySjPHoP/1aKdyOTbJn8jfE9EXrL9KK
oLLk25ob0UZEfMXL4vlv/i/lpz7GOtWlZv3Mgif7zmR5W0pi8zx912CwGwgF
j9AfVNHGI/OZ1dqKiaBS5q4b5WqO6RI+KvVff+uhAfpcePvolm3Wv8f1hlh+
19ND+s1tiv4t1UNXQv9IRL28ReSrJVH/ypfhJf+NiXp5GwTsOwrXhcqg8M8G
XbVZF6Bx3vZ3+iE97DjHsebsVAIc5k9tFGm1wsSEAWl6wd98NMXVorM8g26Z
FH0rpKnqoVZzIfTNAIMSdkuFz8YT+mWDQ26RfBPniHrlZ0bU4wzYJr/LL1pI
EFnPm285cV8Rkv7JHzmcDfnF2VzpDBN6ok3Mm4zQScu7hndHPGwqauV/y2GH
0RJ7Q4fafuudOQr8Lfb510g6oVe/+RtH6JM9UU9/9w+WRD1NhyEWftVnHqYo
eUjdMyssFj4e/pEcfNEB+Vjm9GtzifqEVijk5XjPjJxG6IcZviX0cUkvTv/f
/srPmqjPadCxU04kxMocP1/nvWWqEAPNuQc2Hx5wwjP27B7r7xD1pt4GZ5i7
Dp2PJBP9tRhRv+UofF2qtw7L8O98/V3ff+f/Ur0NovDjd71f4rsZUZ8jCT5b
EPNvwK9XhtdC3V1w1rqOUSKzmOC/JSL7QkYVKZ7gpzNR74sIfjoj98w8+2xj
AeGPNaWfWHq/E6VfWOLjaQynW/Bi58gl9MKGsJdC8NGReF82wVcH/Cyw0K55
+bee2BH+k4l4T1H6lSV9sEddrYUD/h/Sls3/0/9JpeQR+gR1tJoOSO2XdoC6
jYbsitqW2DzD6jnMfwOeRx+s+XDTBUucywR1W4h+AO3R9+z0kF1OKsF3Dfx2
L83TN/EUwXcrFG0RvclUEU3w3RVJ/C9tj9AQ6/1OEf1PKqRNKdu/4dFEL53V
PxlWnoJ8Kpet609YYx9Ki0VLRkNjV91nMQU3VHhnqW9sXkDw3Ybod6IgYSbo
R+NRW7ySd4D7uWMUXIfJaq+dh/Dd+uPDVvLlwNVKop1o5Eb5dyqmbOebYaRC
pttWjhkj2cY0e3lLYM8lxd5VLnswhSs+r8WoGb5GFtOCKQvmHNUn118shAor
UxEWOXoskLBpq+vooZw3dvcox2SL58P3DXQpK1T2YsRmGXvph+XwWiEiMaFu
F96yMXnBuXEA1H7cS3/jyoqfZPrqd78pgrYH2bLpiTvRum7I5EzjW8r54BP7
eX4xLILvr65kHbu/A8e8w4W0zr4HPg5r20AdtkV/zapb6wqhJnnLeOCuHRhs
6yBq83gQ4vea6Mu0syH39+x7e1kL4YDDO8fHj/ejxpQJE53qI5Bu+xJfFU2H
732pEgO7h8DvOj1Tp/B+PCAV92KiuRnu7q4X8X3LiWbNwmefs2bAy6K/5YrZ
OHDG3ktFf7QJHC7NkIf56FCn49hryB8GkzVHflTWsmPYhWN0Bzd1wqBEfoka
z0FUclNlecibARbSa5RcSjhRNwIl+b83QcDTyuK33vsxRahCw8zkEcQd7b5V
OU6LLZn9bw2MR+DKPd6qABt2dLUg9XA7P4fid8d6LBf9ydlfX1F4+wG0BUXW
fKimxV+bnpf0fxoBzs2bHCyOsOOal/ueyIm8pJz3qraQM67aPYA3NRJXt2bR
YkcS31FWm1Foj/Bp69nBjjpDDTTd/r3wxZfVMzX9IHJ3GYnkOj4Apj6mH635
tOhZe2jd5UejwJOs4/GWkR2/G7TWnNDvB4bgAZsLZly4deszR9OLjbCCWU4w
tZMWpWrsjSO3j8GkyCTbggI7/nwYqr/x6QC8yapn9UBuPPYxvOPmeBOEXH98
P5GZDqd7ZcYk5cbg+Cojckg2O8aZXYiVbHkN4hNdJxwk+LCEi0dW+FoHiMWG
7duz8SAWVPAkDe9a/B5dbC4b5jkwr2WNE+lVE2gmhVvIZO3DE97mjRaW5ZTz
syzjjkP6G5rgdZ1IBddNNqzvqMm+pFkIQckZZb3Wi/vzmNws1J4B98W7ini7
F7/XOdbd5xofgUV+GrSziKEMr1TxKckYcHH53pRVfBy3X77eAFvLwVdQTdVf
8jhSS1mpbpd7AOLPmnJH7+zGD9QJq93efQBTDmG9CAUunM0sHlTWGoQOtxOn
Y/ccxfXBkUEqV18BO9XNS2W5x5E2Y9yl78wTynlSZ0eatFxWBtC4app2r2DC
TRvfP6aTG4f8649vb13gxRm+Dgk95SHovuAtnCMuitXFfnbH0/phXjjOgrVW
EkMXjLUb8tvhYcyklBMDB8bvtIjq1RwH1Uterq2qoriL5e9AfrshuPWuNpXv
sgxyk35M0C30Q6QvXp0bU8IDDnTtDdwdkDl/kwsKjqKiaQXjttFacGHOSLLv
O4p/J1V8ucZQDTVnJrqO5XJiwM5bpHHtDDC7OjNXtP0AilhmrGrmfAQTCe7a
PdRK2H6X/sGJ/lqIcnWsjvIRx6vBQ6WNw1UAPyemOOPE0IsuN8x68j58DHDg
qC05joXDFifGPzRS8nefSOkgU2sUBNFdzlgZewRHE7eXbm0LBNEk3oAexiP4
aLP65D6OPEjyCDRNOSWEd49qFPCXF8OF5OqLGQ+P4K6w3l8fRAKBmyGyMmSM
F8lCjZwvhrKBZMu8Kf0hPzaVXaRRyUyBx18HqV53CmJF8ZvbZolkcGpxyxv2
EcDtGn017ZcLgLG7yJq6QQSdxz27rLXKwSOkT6iDXgxvWDGrXn+dBa/2+Jfm
uR/HXtLI/Tuc9bAmrol/9qAIijwgxfPMFELPmvIghRci6P10+Aep6DbcqerS
X8nAhutlXseLGo5D7WT7XIqNIM6frX7I7TcE7Qt7rJlTEcdIgn0i8gMgdblN
xTlUFrvrpngYwzvAwr1/TWqQOPodM1P/2dMAn03KzRceSaDbp23fgP4OxNFL
8Y3QIsbtm/0um1wBQgEHi1seIlar9P1U2V8BXRPb+ErdFs933vW/TuYu9s/z
zDTWclxoKTCqyllznXL/EhyRWX2yOQUyN7Mk6Aguxp8r/bbOMRXud7jTc20X
QRmFH5+9X5XCuXbq5LBDh3GzRvinfq1YcGFQ5bCP58H2a1e904LzwUmxZK8/
jwQyp3WWflEqBxoxCFD1k0AVI6FjoYv9ROnhlrE9nRL4heeop9rKPJj1/dHV
fEUIpVr9yV6jMWB4cS97jpAw/mi34zxyNhdi89+W/AoBrFz/lO3ioWTKfUDJ
1Y9Pv1Vdp+D+Vh3tZ1pZ0Fiw6+d7Fwmcj527uce1CGS4D2sKiwKa+3TybqOJ
gPGUtey1IIlfOB3DNriVQbTv4xHNEmnMs303ue9dNcz7Hd7R2w64/5b8qRvM
KbBQ/rrD0EoSN2wYobpbVwZDNrE5pXclcSLmAL2vTwZcYHtr3xggiT+aNY/G
TJSB+Ua+BuFYaVwIEN8VyFoGWhxrFtCPG6kt919XEh0HxSmfU4IlgA++3hNc
fXgI3G9Xc+/vlMfZnanVntAPrNwD7bHD6mgt0bL5I/siv91GmsPpeFE0VYg7
ocUP5O2TjDbu5saEdWf4L6wPAyGfq/dF/Y6h0Rf42i4UD62ppbUH5YWR+ehm
hfP+uUAfXBZwo0IU6Uc7r7A4XofqxvwC9VFEqa1+0bJZl2GDFVNtRbE0jnQw
20m5FoKXkoHuoykZjN3HVt9lVwUXX0T95ccghRXeOhovb+RBzK8fBfY+cqjz
4ZbYEHcm7Hkm7QJ0MrijO9+SRogMl2pHnG1XyWDZZJ2ZqVEJnD083rxvrxxG
eIXlL3zI/N/z+WdvWRO6AgouP2RD9cWpHniDxFdfYufF145RSmr043Cv0ZLd
9ZEUplf6JB3pH4S+xzlNKd4q2LO2/T2TRB/MW50rG919EhuOKdDcv9QKj1b9
Rcp7oIVzalXzGtZ3QceMV2A8VhnNYn16dTVL4fV+u9UbnZVQgP3inbbSUjja
fHnuprISGg8MCXo8LIaxto08hvsF0S+zN+T8oTz4K+ZIHA0vH369EzVqPHAe
VPd/WadgzI8+g27lr9LOgm5IZUc8PeDpflZ2tjup0E9NX5DQII2zKwU0NjIl
gPWbxEkrW1lcW7Qib0opBegZPa13ecnisfiGvQy6RfDzrNpsGrUiqhxwZ5mL
K4Nzz2qMmOQW+W8rvJWuJRO4U89lFLEo47UZG64tT9NhtJzaoCxJCU9vMblm
wV0C7tN7P44MKWEeKXbPxcdZ4LzCwPYaowJSPWqwrJzOodwH2FAHWyifjaLg
TiafK0fcb1PwscSbzoYxJdC1MeLV3H5FfJ14xOFTfRq8yp0rDavix+xjkQ13
pj/AvPW0Q9fnE3jn18/RRJ9BWCf22feTjAaGBDXvXE/TC2EyjgozYSRUY5Ko
ylJ5ClvH8x7SFusgz3B50FlSBeW+dFND8Mr0wSiQPtLSZPn9KG6JWv9zQCQW
shTpB7M8jmLBSepPt/qKITTJXv7vbkEMm0wJZQxwodxXuXPVVw/Rp1Awf4Ot
JJNfPhj2DPibsYrjKSWGVM3vGVCxy0f60FsJZFcqc6yzC4ac+Uodbn8ZvPFN
+1hQYizsqubO9NWXQb7b7ZH35cog0DNppktABpnHGj9uO3mfcr8yd7B3QfBG
PAWrR8tsfk6dBYmjjEp2HVIYqej1lloxDvaMK/WseC6H7ZVXZXfEBkJNaC8N
SUMeVwz/HBvYSgZTATuVvFZ5bNuj7Tf7vQCApYNug74KnhCRnT6Vfxu+X6dr
y4zVQPsXAnJCFVVgukZ7A4uLGm7niNlUSSKDzrm0oi3quhj6d5h+b1ARuB56
qGYapoUKep5ndpTkQNgvpzNlPzVxjcQJPrqGItjRdlPu83VhDLzX1L6bwRHG
HT9Y2DGJoRMDZ0XEJ39gOU2eIGUdR/HRYfIlvRTQO23gIct3HAceSb7kEs4D
HQYGugvUi/pwaIt0clEwREaGhqwVkcatuvqHvQwSKfdTbfl5lwseXoUX/Ksu
77WTxAJ3ybqIpEh4Pnm2jdtdEg0fkr7F3MmGzpyJnaK+i9/L+tLl6cX+Svup
heuRHDmcobWqes3gB7v7Y6TJLnI4eaah7rJtHKygyXYR3qmE2ST+dDUZMny4
x7yWt0oW70T9un0tJwacyPHVQjvU0UHiltjh0NuAP/d5R1spYdCKnj1ZFtHw
kZ7e//lZJUy4CKv4qHLhNL3UELuOFpaIzF9x8iJDv1F6+NAxLfT6limptboQ
Oj/Zm38dPomFO2uEdylVQsR5dmaam1q4qUqQ2tsiHczLxobyEtUxk4k39Pb2
ENjp9spiIVcdmzxJ9z9tzYOnfE/fa9xTx06PiLaE65VQJmjDOcehiRU0Xt05
VD5Qc0teRWmzJsrGuNVPSMcs6hWXa8K0Bm47OWT1Im3x/D+j4/Jwnw4eifio
sOFOIYgV2H/+eJWEtW5Dnl8/V4J+rK43dTkJR8xeZrZFF8Gtsar+hJcnsaZ9
qNYuMQMu7n7GdTRHG/VWKTc+HisEB62HH02Hj6PS2tbtKOMMvNJu+omGYjg3
J6fVdtwa3j4scEoyADTWXjenvycY5riuvEtUlsKtbRFd9Q3+8HynBZ0CvyxS
STXOu2ZEU+6fTOOcuM7vDqTg7c+M7j8NjQN53uDPSr2qyNiUoWD/IgW8X8Zu
qNdTwonkunbOfZFwm7x2wxTjot7u6TSQlyWDLutGl0fX1fD95RGz9trzIH36
u/NOWTX8+vxHkqVNNBy+N+psNa+KfatrI69+SoHB6qfkbTYaSDUjfjz3rj/I
8bFeFnfRQL6ukclJ4STIzfB0tD+vgdPau5gDn2RD1ujU/MEYDSwR3uD5dCID
PEHtLilODed/+Uqmyl0A9qzWX9fPq2GCxfZG01ux0LZNWarBWA37LN7fcuhK
A+/kDdvf2GrjjhL+/g4OMthy07nZNGlj2UrGgc0rCqD7bNiWxM6TWOrxY2+V
PhmgaHfyiSIS8uaP0doxFcE5psOa7Le0MNPlzbCecSpUd4zfW/PtJEbsyCQz
nU2Dm+P0w1ubNFBFfrKrzCoVtgtd+6tTWwClH0rOTZefgQzxR1TeK8UxEdpG
z4yfAslJKY1di/WGi4d19spIMMxQFZQ5Z4ijR+furEo2SxAPF5FecUcSJ2P3
0tgrX4QPgmEO6wdl8Kvle0UpU39Q66tVS3l/Aisbiw8fVrsBv1SejLRIyGLe
IeV3aR3eQEOTM6h9VxG7r81zMdRHQAKP+OzGssV6OTOr+oI/Ag6Wf9ZzZJPD
pjjrFXTbzsMb9tnisVxVvDsVl+C81hNCLvsHNJWqoXpeNofJrovQlni3WGCV
OhZvY7vhRZcMemdLWAIPqWNSxrFmcmgOuLOZ6O5jU8PuhJLqa4GeEGFb5XGc
SwVb+KrjWm5EgEz36Ws9EeoYdyPy8K9tF0E7Xo36nrM6sox+Yo/engzWxrxX
EtXUsVry2quTi/aUBpXM38VqYogET2AO23moKTgb2cJzEnMa2rXC56OARcDE
cwW7FlpQlyZTXU2Hg+J6r5+IaSKro32utIs/fPJ+8rLCVRP3kDdISTglQlm1
SFdaliZ2rz1C+mt7NhTSm8z4W2ngJt52vy3ZXnCc66vSFTsNTPmo//kv3Sho
Eg0jhztqYPIwsrWsSgEvywpH3Q06ePole9Z3xwL4VmVZYCynjaMWJfxip9Lh
GrnuQ0koCT1+bir/sT4dVhU4+k5qknDd7XlL9uI8qP8uKbxzQAf1RDNZWuLS
QUVIM2DcRgcjJfNTNOxjwHt/RcwbTx38YsI0l/ktEyac3EyqOXRx05RLaOvB
dPjVu1P47X1jPPnRvrHGMQ+KXg/aBjzUw1UB/pEZdRkgPcRd4/pDHw8I2prW
6RcC9yOme0ijh286h/UqP6SD8kXmr2qVgCYdb4Q3rDOD4sfB83sTpFH40wXZ
e+v8ID2y0fF2rzbKtzxwW/8kAj7cfC8eLq2DYzfdd89YR4Pn4TQ3zr06SHPD
NNnNJh3W11lk189qI09/cInDzQJw2SgoUipjgJYW0ZcMWG6DjZvQjaZ3ehje
38QOGzPg/aeGdpsEA3R8bnQjO/cGwGUxXUspQ+S/mHHc/nAu5b5zePrn7p1P
oylYX/SUfKxNNpxr1ZroPSmDB9h2F6lt9oX5/cd0dXQQE13avS32mELtavuI
44H6uJozxdBJJoNyn6qY0M/X91cUBb95ZKS0pjUNktb7rv7RRUJhMXixEBAB
vbQuZocNjfCWaWZKhGAOiI2Eq7i0GmKMqrgAzZsMaHTZl+CpZ4oHgj9EylYW
Ue7Lp6QFlIvP+1Hw0W1SCeLHbsDkmWSBgVh9FPI1O2qbEg7Goh1xpSUGyMOa
uOmDUhSEPpp4diDdEN3tN5lWWGcu6htpmsxhjdR/19kLpuQDbdAjtkN2lvhd
JeWX3FAZZPnqFRZZmGBl3sA9GacCyn1wLIMglc6BaAoOzH+ltcuvCLLsSoqo
Z+Sw9uFOCYNd3nBgQ5B88Td5NH5xyt1rXRQwHFV+kC1ngFK9R2y3FYUDiV1q
pb6XEZ7dPe96xikVTA4/vvKSxRaZ18R/nTaOh5vPXivnFZhioMesQghXCXws
Ovfy05QpKspPlLO5lsDcA/7e1GhzJLVwh7dFlEJ4QH3P/SeiGCRhpjT+3A5C
/jLK2Bsoj/bXezbVe3gBlfLmku6Lxqipf/9X/ZVU2CMesFnZzgA1PZoynktG
ATt3kHeztwF2pkqvcdHMhPYgKjYlOhNcv0ubd1VlOMRrpTfu1TPHd+cuisxU
lMJjSbY3Cc7mePq+1duX3qWgKvfgXMQ5E9TmWbiX3RYOL77u5NTRNcXp1Cde
3CmpcCDM5/GFVxYo6cJ9+NJqMlzZz3DjaqIVujByRvwqKQK9n1kNk3ssUYuG
P+BFRRlYbTKf+VZogrVtcjrfF99fWOLPP8SwGP+Zi86DDqnAt4Wv7tc5M1T0
aVkpXrOo/wP3Ga6wW+KhSKGraiVl8KZyiOk0rxV2V4+1qxqRYfPWUy/Kn1ij
8qPrXQ8msuCzjm/QlnRzzEtaOc43mApbgd03oNYGT0gJnKFfmQbsL9UKmb2t
MYN3jchENBlarKZWzE2ao5hb/4HG0VSYsP2bOynUDHNJnb1GsalQ5/Ujv0nd
Fh9duJPT2xcPE9TZZ8TvSGBHgV72/ePmcEJ76AUjSQOLWnuicoVDFvvtUjEt
Vg288PGN/YsdeeBGCki98pc6Pqax+vYutJLy/wrRD+60W0s9KZgqU/z27fYI
qOsZa5VvWdRHmVEqj1sRUOzz3ffdaQ3c+FExfaeDF+RkdhaPLvbD2u0H9l/a
HAVXqS9pidMZ4i2fHVXbmsPhU90Yl/wPE2Tsu/b+12w42B3ZaDFywgy/9s55
cGhEgOqqx9XDzJbIf0Y2hLWmDJpHm316tlti0qlDZzYzkuHuZQaFj5JWuGl1
TtpKeTJ8iv16IVzOGueMM70GBG6Am3vsDm5pG8yhP1e4syoe9nyIcZ6qs8Ho
5NNeV0PJcGqljfPGxfkb2hcu0L6OBmEO+8c3z1vjNYeR1XT2ZIg1sn9D2mOL
mmFPRrvpY2BHjtNRGkNbfF/j7LI/LwYuKAXPM3Hb4tZm5lUhQ9HwM8ag6Gy9
DT7mzZ63vkKGkEB6AU5GTXTdvj6pw9ALLLA5IbVrsV8M+KIktCkKHrF5BpCu
2eJ6jfkRhx/RMKB6Tf6etib6jxR+XHv9PJgpDlcoTWji+angnu8XomEf+dgx
YbTGnQdarEeKYmBnWOiXtVNauKKyqbd7pTuQZ+Stkm5aIZnWe+B4RDT8ehP4
RJfHBsMtmEZWS9yAau8hA5fr1rg/LGisyZEMLiS+uA5tG9ywOv9Y+KkYEFJy
is+3tsWQIt1b+6ajl91H/3k/9Od9/Z98/dPen/n7Jx/+PO//2Q//D4MrRUU=

       "], {{
         {RGBColor[0.293416, 0.0574044, 0.529412], EdgeForm[None], 
          GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJxNk00rhHEUxeeO8cj76zBMPY1MppSFl7JRY6WIkmzYCEU2ZDsLPoGtlbWV
lK/A1lew4XOQc/x/U7M4nfPce//3dWb29Hr/qlgoFA6FLsG6JASYEqrCuJAL
ZWEaXwVfhe9HYVs4EeaEGaEmZPhL5M/Ro9gz8ge2vCN3EXvO91SHP6eXPFKt
qngNvQAHMWXi2+9r9LeqgE/xd5ALewmddfTkHuv4PZ+b89tzcZfeb0h3i4ep
PRjp2/YecYa9JB6ItKsh8ST2MXEfdvur2O0fRPdHgnWvuEkv7T3n9Ftm9nFm
jo4dBDdqMEud2tbuvYHthHhzk3qOyahbwz+L3Xc4Qq+Ln9D3kXLUydNEu+8X
+T7Eb+Id4UB6WbzEHkYifdt+Jn7nXr5bBbvfte/dEC9it39XOJXeE89zr5Vi
urf1r3iT+IlI7/934ruhPVMd7VkniHedLUP6WHwX6T8Q4hvsr8yxwR6/qOs5
gviLSHGOd75nduLd3FO3FamGYy4j9f3Jb9D5neeAvTve/4Nd5nXNc7R3MERP
3nGLeM/6Q13X32Nvt5Hqua5nusX+IP4DX4pC9Q==
             "]], 
            PolygonBox[{{263, 64, 74, 266}, {264, 39, 97, 303}, {407, 156, 
             204, 509}, {272, 74, 84, 326}, {406, 98, 156, 407}, {303, 97, 64,
              259}, {359, 156, 98, 333}, {450, 204, 221, 589}, {355, 84, 156, 
             383}, {260, 26, 39, 264}}]}]}, 
         {RGBColor[
          0.5068609684323628, 0.42852755608802917`, 0.8294347242119154], 
          EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJwtkbtKg0EQhXc2QqKIEBCshIjgBUTF1iqFlWgR9QWMIohJSjtv8RlM5RNY
WlkJIhJBa8HCSrERUmhhoZDvMFMczreb+XfmTCa2W7VmTinNowI64vCHv1pK
O6gBb+JnqAm38Dp+iNpoI84H+A16hld44x2+hLv4MtqCa+bv6v1Raj7hW/gB
v0b3cOZ+GL3BX9yNwb9wDx5HVbiCL6JVeBYvoBl4AT+N+cv4ifmMu+YzabZ1
fCl7L/X8j4wdvBR91b8Ubw7gHzGn5j2OvnXzuXU/Tf2j8sMGF6PXk7nE2k0l
5p/UXFGv7/Yio7J2Yp4LfCp6Kavyq6ZBzQj6gV/M96i8yl0OPsfXsme/o2Y/
cg1m36n421xi/T4Ez8FF/V+cu8qefXd658p8v9qJdtMHqAZGYw==
             "]], PolygonBox[CompressedData["
1:eJwtkjkvhVEQhr/zuZZr35cQ4gZXbLGTIKEhJG4s0VC4QVzEEhoJiQg1HZ2W
QqJXSVBo1DqFxD9QKBSeN2eKJ3kzc86cd+ZM/cre3G4YBEE/RCB0QeAgBRvQ
JYh3Qj56DhbQO7CGHoFhGIBBWIJFiyl3CRdwBMdwB7cWUy4Jy7AJW3DtfG29
cYJOwDTMwCxswyq5czhFl0EptEMHRGnmk9yP/KLHiI2aJ3l7gxtyj6qBvne+
1i6coV/hBXqhz2aQMg8J6+HIaqp2hDfeuPsOmegpYpPWU9Jmotm0QCvkOT9L
zbQAnQlt6FZIR1dAORRDCUzAuPWoXtdD7109BOgM5++qRhSdo1nYf+mtqNVX
TLkd7vyi/zRfdIxYPdRCnXmU1zg0Qw1Umyd5yzf/qpeLboQGqxGzO3GLKZdu
/pohzfk77eY32/5Mf1cJVVAEhdazeo84f1c11GuI59fAz3wI/Wz/dwgPepvY
U+DPdKN77LxiTehE6P9KO5IV+p3T7u3DAVw5X0s7No/+cH6XNLMU553NX/W+
bWa1NiPN6sv5XZKn6dC/+WT7pr/7B51zSEs=
             "]], 
            PolygonBox[{{281, 280, 332, 65, 285}, {291, 65, 332, 306, 307}, {
             340, 109, 509, 428, 429}, {297, 75, 383, 257, 258}, {370, 369, 
             433, 144, 434}, {275, 274, 271, 49, 282}, {282, 49, 305, 272, 
             273}, {367, 110, 482, 451, 452}, {309, 308, 483, 144, 342}, {337,
              336, 382, 85, 315}, {429, 428, 430, 119, 405}, {511, 510, 512, 
             157, 484}, {307, 306, 355, 75, 294}, {342, 144, 433, 329, 330}, {
             434, 144, 483, 510, 511}}]}]}, 
         {RGBColor[
          0.6265631202195472, 0.6283747784830678, 0.9109290714358034], 
          EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJwtkr1KA1EQhXfX3zZYKUgQQU0jEpGAEgsTCYJEjQZ/SolgIUkUEoNaiFFJ
sLKw0EZMKyJYiI9gJ3kDFbXwHSR+wz3F4Tu7OzN3du4MbBYy+cDzvCRqQ4Hv
eXEYgXP2AW7BKd/FLMEausRfwCPFWOwjPOXxBeZRDl+CJ2gVfw+fUAW/B69Q
Av8AD1WnDqvKfYUTPL/jw4GLtR7mUc53zMBZ1VnwXS3zK7CJ7vCd5GbRJz4R
uBr2jzOopX6srxSK4kNwjLgP/CI8Ry18Ge6onxicVkwBltAfvgJHFBOBGzq3
GLizzdu7sGKs3pd6sF6KitmFGXnrvar6ds6ozrXzU/LWb10zPIbRwN3RMPzW
vfiB+x+LtxpxeasRUT827y50i2+H3YGbYRoeqL7deVJzttk3NOem3sV1T2XN
rQavtTO2O2nfzX4b/iq3oT3ztAs3vuvhDZ7p320GHerH8rLaq3X4rHjL+5G3
d8vqyXZtHE3iB+Gacq3GvuZj+9unHeiB/SiG74VDyrUaIcVY7D9031vG
             "]], PolygonBox[CompressedData["
1:eJwtk89LlFEUhr/72cZQQ20oQXFUJopikECbHEfIxgIToSFqMS0qyhF1HJei
oU0LaZXb/oPa26bW/mhha0U3KUItlALbij6v5yweeLnfPec75z3ndryqFKbj
KIqycAGehSh6CsPwCFqhl/M70B4M6Qx0oo/gEI7hPyySbAF20LtQQe9xdx8K
6K+crUCMroFL0ABbnG3DT9iEb/AdPsEssa9hGj0AOcjAXViDVehRnaqNXL8i
+2cuth7Uywt4CY8hz7dBGEWPB9M5iNEfiDlFR+g5tMwpe0/q7S3n83BPcfAE
7nN9RDWiq/AO3sCYeyJvJoidjC1GsUV4DoVgsaopi56RZ96TeksG81qet6HL
MOX/qLpH8mqI3A8gIS+4exseoq9ydgX+ov8Fq0G11MJFGIeS3zm/6/GauWZ/
K5g36jGP7g62K31wDf2emCo0QpPnrPWZarbL3Pnonsm7tO+T/qFaW3yfdJb2
Gfb4DmoXr/v/VMPNYDuj3clCP/wIthvakQN0V7Da5FnSPS76zmh3Uv5dOZU7
QY7L3oN6+cLZZ6952XdGuzMh7+CG+6F4edHp81HOlHssr8u+O7NwEtlOLaHr
oS62N6O38wd+wzps+JvR21FNqk1vQm+j5LNqDjZb+adZnQGm5V2O
             "]], 
            PolygonBox[{{463, 159, 519, 460, 461}, {363, 362, 370, 120, 
             408}, {395, 145, 562, 435, 436}, {440, 132, 485, 487, 488}, {518,
              161, 520, 524, 525}, {582, 581, 590, 161, 517}, {530, 529, 644, 
             224, 552}, {358, 357, 427, 87, 344}, {345, 87, 386, 367, 368}, {
             335, 67, 339, 364, 365}, {313, 312, 299, 61, 300}, {458, 457, 
             513, 132, 375}, {572, 571, 516, 159, 486}, {373, 100, 387, 457, 
             458}, {455, 454, 551, 145, 409}}]}]}, 
         {RGBColor[
          0.7311840810410196, 0.7964715514311894, 0.9133141071055694], 
          EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJxFk0tvjVEUhr+9hZkJQ5ekVYlBzQQ9YUCkGkWTkvachEbcJlKnwUQnIlHE
0IgEQdRvkEaaTkoM9FDX6ESCaos6JG6tgefNehODN8/al7W/dfsaDlY7j+ei
KMpoAVrFYhSuhb2pKHZhd8BRtBu7D55GR7DPwU/wNfqCXphaX+NsAA7CGvyG
xlE/736GF+E2zlqxm+Ev3/mK2r3fneLNOppHK/EZgSvgJtSvmGEXeo5dgi1o
DHsjvIR/H/aFFD7yXQ7PoDvYSvwtZ3f1vmMYdxxLORuEz9i/6nwfwmXsD2H/
xF6H/Qi7CW523TbADvQUuzFHHIqnLUcOqs+svo1/BV5J/2un/Z3cew8rOeqi
OrSk8FUdFONZ90X9mbXvvGutmo+lqMc79Mo+ded2nrMqPJUiN+U4Aj/Aj8oL
dTrmKhzm7Db2E7jGuS+B7Tne3pfj3brjuOUY1P83jkH5LMyx35pjhjRLFTgF
J9BMEbM04flRHHNFxKW9Kcc3iX6gP2ggxQxch3tzfO9Ajndm7FfzTKmnizm7
DBfB1e6X5r3imnfn6If6cgwezhH/Htjg+/Kb9Hc1g4fsq77dTPH+DVhm/QB7
Cyyz3o59FJ7MEf+JHHVX/V/C7ylm8q9q4h7dSzFbmrFmuD9H/j3wt+dW81vy
/O+A9x3DdIr/R/Oz3nf1rSHHpzu62+hZ3QpLvt+TIibdn4OP/R/V4D/KUqCJ

             "]], PolygonBox[CompressedData["
1:eJwtk0tIlVEUhc9/aGSDJEiKgnRYkCVkjvSGWpZRlhppaZaPMBC18kkJaWSJ
Qo1rZhQ1qkEPaNREwxskStBzVkTvByhpTvwWew8+7rr7nH3+fdbeJ6exo7I9
hhBSsAKq+POR33dQjf6ehPANxuEW9EEv3IcHsIU9E+ydgu3oAWIXoBhKYBeU
sbYbStHn2fMbPQ0t6J0wif4KjegK9uwPlqPci8SW0P9gJFoNqmUGZqGL2GKw
M2rQz4m1oDvgC3olsQxYBZlwOLFadH4N+j/cRt+BBXQPdEMaXsBqcp4G2zOE
7krsbH2jH/0EHsMNuAnr2LMW/qD/JlazateddfdT7ofuOIg+QuwTeh7OoXd4
fQdgIrGaVfsb9FuohzoogpR7XOwxrS0ldhfVvJ68S+6vPLqMvs76Ne+RenWV
2A/W0tCDHiM2Cg/hkc4l9jrYTDRHq0G1tKJPy0+YYe0lVKIbop2lb6q3WyEX
iiAFtYndTXdULz7Ae1jDWhaciDZ78qQJfcbn8RV0ogt83p5BG3pDNK1YjvyD
fNgI2dAPfTAMV6AUSuAoHIPuaLOneuXVcfjsfmm2zkbrjWL16M2wyb+hb+2J
dnd5UBFtZtL+RvRWDhE76B7IixF57h7La72Bafd/LzoPtnmOck+6n+pRL/oe
OXe9h+rlL/gJczCfWE9afQY1i+XRvFMP96HLor1V+VWIXgYt1YWw
             "]], PolygonBox[CompressedData["
1:eJwt0T9IVVEcB/D7rtiQOIluWm4aDjnq8ASVJNwEBQ2MJzQpPkF8qSiC5Hva
2KYiqNicg1koiKuC/6JN58CsqCgnBz+He4cP3y+/cw73vPPqh/I9o3EURbWU
c5qJooXQDb/rN7TrF2a9soNOhsxzDNNvbVyuMa1/k7t84oW9A4zx1VpfOMu1
PiEnmaKNLHlOrbXIO+e39Dn9Ur/iIzuUxcm3FvT//At3Mds0O9AHeaZ3p/cM
973mnVmlfT/1X5T0IgWOrb2Ut+Z7eoPeyBP+mP0mPFa40199lRXOGDN7K/fD
2fDtOHnHDb1JP9K75FOaKaVnTtL94dxr8x9m03KGWbbNP/CZvLWibCNLS/ob
W+Vjex8xwqFZXZz8J+G/GZUTFPjCBQ/i5C3W9Te80pflIkuZ5NvhDs/Td8nJ
80zyvuGdH1JBDdXM895albwHLoZMZw==
             "]]}]}, 
         {RGBColor[0.828346255992845, 0.868912286828609, 0.8845906242047905], 
          EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJxNks9LlFEUhu+9LtsIQRtDcl+LoE1tinARuqhMKjSbmiITIclRS3IEQUdH
pE1NEBHUMomamhkSRoRo4UIQMQgG5h+QIEgQpFr0HM67cPHyvN93fnz3nu90
ZEd6HqQQwiXUgs7EEC7Ds/AkgU/44/ANz8P4bfgW3cPXYS+xOv4KvIrW8f3w
NFqzPjBHXg8+C6uwhCqoldg4PATL8INi8zw34CScgkV0P/hZVlVred/QZ53D
zjMfvcZqs7ANPcX/5f0AfKg+j3jfhLfhT2JP8JvqYXkZxSwnD0eD51jsnPpn
4F20gb8BO3WH83Axeo9XcE7zrMH3wfNtXv3B39tcLia/ywX4WLPagLvR7/9b
/QZUU9UMbL6T6j8G11Aevwe/oEH86+i9S6q7wze24C3Ygd7hjyavG9d8flFT
gDvR51tW/YziRf1LO+dNuHDgn0wp55lm19S8P8KV4Lnr+tfWtxB9FmXYjN77
X/R/XVF+TXdcgmP0+mHfTX6/jGayT+wF/CPmbB/Q4eTnPgJPJT/DieTztfNP
wGV9Zzr4Oc0vK2Y5tr9F1IeftV2i/it+NHney+BzzOvutmdDyX2D/Hb8c/yx
5Ltuc96KvkMN7bvVFNQjq/e2a9d1X7t3Dn3HX4PdyfepSyxppv8BmFuBFA==

             "]], PolygonBox[CompressedData["
1:eJwtk8uLj1EYx885+QOsFCHjsnFJSsJmcllMKM2Q2/gNIcOGzFDEKMX8jCSX
SU0zFhbK/JIZTFHGMFlYKE2JUq7L2ahR7hY+377P4tP7ec/7nvM85znPqdtz
uOlQSSmthUmwnJchniOwAh/PKXXiR2AYPws78EY4gTdABT8J3fhfuIS3w2f8
FrQl/9OHt0BTzF+Jf4Bu/DTU8HdwAD8Gk4lf5X0/vgsu4Eez5zZDJ/4mO5Zi
fsE/QY/Wgqf4x+y1++E3/g+68FPwDZ9R/F05zMTnwnn8ESwtXqMW+WmtKYyd
SV7jPe9Teb+WnPNBfE3kr5w68FWMjeJvYRs+DW5HPO29EvXTHM3ti3ft+Sa+
m//H8MewGd8JL/E7sB5vhhf4oM4Qn8jem3JSbtsjvuZvwK9EvRTvSfaYvinG
3uIaqVaqoWo5qzhX5bwMr4/6K0flXov6ak2dxbziemmNOrwRhvF7sARfVFzb
AZiDL4YHyf/o39XFe7kPs/E/rHkdr6qG2WP69hw24uuKa3FX/YQvLI6lM9RZ
KsZA9INyqy/ubcVU7MuRv/7vV69GvV5rT/hPxn7AfHwBTC/em+aodwaze1E9
fTy751UL5fwLvwGt0e/n8N7sXtbYw+yclbvOcAt+Nfuuqb66Ww3Fex2Ku9lS
3EvKsVLcY+2Rj/aytTh3fdfZf2esI/kOf8U3xXmrh/bhr7Lvru6o7urFOF/d
8a7sHlGvqOdHs8+gGuf9DB/LvquKMYL/B+DDkMk=
             "]], 
            PolygonBox[{{403, 107, 416, 414, 415}, {420, 419, 466, 107, 
             403}, {404, 123, 491, 419, 420}, {481, 142, 539, 502, 503}, {415,
              414, 444, 113, 402}, {555, 554, 566, 168, 538}, {468, 467, 448, 
             115, 401}, {449, 129, 531, 467, 468}}]}]}, 
         {RGBColor[
          0.9411759999999999, 0.9065379999999998, 0.8340430000000001], 
          EdgeForm[None], 
          GraphicsGroupBox[
           PolygonBox[{{449, 128, 445}, {505, 141, 478}, {328, 106, 402}, {
            468, 128, 449}, {401, 128, 468}, {403, 106, 420}, {469, 140, 
            426}, {426, 140, 477}, {402, 106, 415}, {445, 128, 401}, {478, 
            141, 447}, {420, 106, 404}, {503, 140, 481}, {479, 141, 505}, {
            481, 140, 469}, {538, 140, 555}, {415, 106, 403}, {404, 106, 
            328}, {477, 140, 538}, {447, 141, 479}, {555, 140, 503}}]]}}, {{}, 
         TagBox[
          TooltipBox[
           {GrayLevel[0], Opacity[0.4], 
            LineBox[{328, 402, 415, 403, 420, 404, 328}], 
            LineBox[{401, 468, 449, 445, 401}], 
            LineBox[{426, 469, 481, 503, 555, 538, 477, 426}], 
            LineBox[{478, 447, 479, 505, 478}]},
           "0.05`"],
          Annotation[#, 0.05, "Tooltip"]& ], 
         TagBox[
          TooltipBox[
           {GrayLevel[0], Opacity[0.4], LineBox[CompressedData["
1:eJwNyT0oBHAcx+E/q0UpJS85ziKSkrjl4gxCyUte4i4dixLlLrnB5iUy2L1E
MtgsMpDsSqKUMlilFEXC4Bmevp9+v0h6rn82L4Qww7HYYokESeLESJEmwwLX
LHLCKllyLLPOJqessMsZ22ywxjkH7HDEDa8ccsc+e1zwwhufXHJLQX4IhTzq
aVvCu/7gjyeK3Yq411c88MM3z/xS6v9la20zlVRQThkRaqimniai1NFIHw3E
aaWFTnqpop0OxhgiRhfdjDPFAINMMEkPowyTYZ4kKbKM0MY/R7k1FQ==
             "]], LineBox[{609, 637, 631, 609}], 
            LineBox[{576, 607, 647, 633, 610, 576}]},
           "0.04`"],
          Annotation[#, 0.04, "Tooltip"]& ], 
         TagBox[
          TooltipBox[
           {GrayLevel[0], Opacity[0.4], LineBox[CompressedData["
1:eJwVzz1LAlAUgOFrUkMgQiC4RVuBSItFUA59OTQUgqbSUoMImh+DuARRU9DQ
mo1Obi0R0h6BENEWtEcEQUM/oKfh4byHM1zu3FEr34yEEIp0JkJoU2GDAnla
ZEmzxyI51limwSwZFphnhnMSvHvg1Gzyo5NmjTcdN6ep82v/JqaneNUDvpi0
b/Ogn3nhhns+WHWLcqcvuaDPE5+MuKXHmC7/H7+mziE77LPEI23KFChR5Yxj
dtlikxQrZDlgnROuGPIHPWknpA==
             "]], 
            LineBox[{640, 649, 635, 613, 585, 636, 634, 648, 630, 646, 632, 
             629, 643, 645}]},
           "0.03`"],
          Annotation[#, 0.03, "Tooltip"]& ], 
         TagBox[
          TooltipBox[
           {GrayLevel[0], Opacity[0.4], LineBox[CompressedData["
1:eJwV0DtLwnEUBuCff4IKJJCMUAy70I0gRAkCaWiQoEHQosUlIikkE1qF6Da3
9RkaoqUmd4mC9qA5aQkc/AD1NDy87zlnOzMHreppLIRQ4yYKIcElST4dzmWT
vj4pj/jQx+QoDQbmH+L6CGVKdOzeGdaHKBLxbJeXi7zo3/SImd/kNa988csT
ZzTYZ5s91ujS4ooH6lxwwg53PLLLIVWKVChzTMQyORYoMMc0U6RYZYItEqQZ
//8JGbLMMs8SK6yzQY1N2txyzx+aRiQU
             "]]},
           "0.02`"],
          Annotation[#, 0.02, "Tooltip"]& ], 
         TagBox[
          TooltipBox[
           {GrayLevel[0], Opacity[0.4], 
            LineBox[{563, 550, 614, 512, 510, 483, 308, 451, 482, 589, 450, 
             430, 428, 509, 407, 406, 382, 336, 333, 359, 257, 383, 355, 306, 
             332, 280, 301, 276, 326, 272, 305, 270, 268, 266, 263, 261, 259, 
             303, 264, 260, 262, 265, 267, 269, 271, 274, 278, 283, 286, 289, 
             292, 295, 298, 311, 316, 346, 320, 378, 397, 422}], 
            LineBox[{329, 351, 361, 369, 433, 329}]},
           "0.01`"],
          Annotation[#, 0.01, "Tooltip"]& ], {}, {}}, {InsetBox["0.01`", 650],
          InsetBox["0.01`", 651], InsetBox["0.02`", 652], 
         InsetBox["0.03`", 653], InsetBox["0.03`", 654], 
         InsetBox["0.04`", 655], InsetBox["0.04`", 656], 
         InsetBox["0.05`", 657], InsetBox["0.05`", 658]}}],
      AspectRatio->1,
      Frame->True,
      FrameLabel->{
        FormBox["\"Dean\"", TraditionalForm], 
        FormBox[
        "\"\[Kappa]/\\!\\(\\*SqrtBox[\\(Re\\)]\\)\"", TraditionalForm]},
      Method->{},
      PlotLabel->FormBox[
       "\"max \[Psi] \:043f\:0440\:0438 \
F=\\!\\(\\*FractionBox[\\(\[PartialD]p\\), \\(\[PartialD]x\\)]\\)\"", 
        TraditionalForm],
      PlotRange->{{0, 250}, All},
      PlotRangeClipping->True,
      PlotRangePadding->{Automatic, Automatic}]}
   },
   AutoDelete->False,
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Grid"]], "Output",
 CellChangeTimes->{3.6248121495898438`*^9, 3.6248126257041016`*^9, 
  3.624814119904297*^9, 3.624856276399414*^9, 3.6261179051835938`*^9, 
  3.6261180687509766`*^9, 3.6266706871279297`*^9, 3.626677846357422*^9, 
  3.626677922498047*^9, 3.6266785158125*^9, 3.626678958015625*^9, 
  3.62667905103125*^9, 3.6266791925*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"SetDirectory", "[", "\"\<d:\\\\programs\\\\icmm\\\\tor2D\\\\\>\"", 
  "]"}]], "Input",
 CellChangeTimes->{{3.626677979154297*^9, 3.626678008828125*^9}}],

Cell[BoxData["\<\"d:\\\\programs\\\\icmm\\\\tor2D\"\>"], "Output",
 CellChangeTimes->{{3.626677981138672*^9, 3.62667800934375*^9}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Monitor", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Do", "[", 
    RowBox[{
     RowBox[{"Export", "[", 
      RowBox[{
       RowBox[{"\"\<MapDeCh\>\"", "<>", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
          "\"\<shift\>\"", ",", "\"\<maxvx\>\"", ",", "\"\<maxv\>\"", ",", 
           "\"\<psi\>\""}], "}"}], "[", 
         RowBox[{"[", "i", "]"}], "]"}], "<>", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"\"\<eps\>\"", ",", "\"\<const\>\"", ",", "\"\<grad\>\""}], 
          "}"}], "[", 
         RowBox[{"[", "k", "]"}], "]"}], "<>", "\"\<.eps\>\""}], ",", 
       RowBox[{"maps", "[", 
        RowBox[{"[", 
         RowBox[{"1", ",", "i", ",", "k"}], "]"}], "]"}], ",", 
       RowBox[{"ImageSize", "\[Rule]", "200"}], ",", 
       RowBox[{"ImageResolution", "\[Rule]", "72"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"k", ",", "1", ",", "3"}], "}"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"i", ",", "k"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.626677975576172*^9, 3.626677977185547*^9}, {
   3.6266780369375*^9, 3.626678301484375*^9}, {3.62667837746875*^9, 
   3.62667839303125*^9}, 3.626678961828125*^9, {3.626679054125*^9, 
   3.626679055453125*^9}}],

Cell[BoxData[
 RowBox[{"Map", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"ListContourPlot", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"Function", "[", 
          RowBox[{"elem", ",", 
           RowBox[{
            RowBox[{
             RowBox[{"{", 
              RowBox[{"re", ",", "shift", ",", "kappa"}], "}"}], "=", 
             "elem"}], ";", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"re", 
               SqrtBox[
                RowBox[{"2", "kappa"}]]}], ",", 
              FractionBox["kappa", 
               SqrtBox["re"]], ",", "shift"}], "}"}]}]}], "]"}], "/@", 
         RowBox[{"Union", "[", 
          RowBox[{
           RowBox[{"Function", "[", 
            RowBox[{"res", ",", 
             RowBox[{"GetFields", "[", 
              RowBox[{"res", ",", 
               RowBox[{"{", 
                RowBox[{
                "\"\<Re\>\"", ",", "\"\<shift\>\"", ",", "\"\<r/R\>\""}], 
                "}"}]}], "]"}]}], "]"}], "/@", 
           RowBox[{"GetResults", "[", 
            RowBox[{"{", 
             RowBox[{"\"\<F(r)\>\"", "\[Rule]", "#2"}], "}"}], "]"}]}], 
          "]"}]}], ",", 
        RowBox[{"PlotLabel", "\[Rule]", 
         RowBox[{
          RowBox[{"Switch", "[", 
           RowBox[{
           "#1", ",", "\"\<shift\>\"", ",", 
            "\"\<\:0421\:0434\:0432\:0438\:0433\>\"", ",", "\"\<mvx\>\"", 
            ",", "\"\<max \!\(\*SubscriptBox[\(v\), \(x\)]\)\>\"", ",", 
            "\"\<mvy\>\"", ",", 
            "\"\<max \!\(\*SubscriptBox[\(v\), \(y\)]\)\>\"", ",", 
            "\"\<m\[Psi]\>\"", ",", "\"\<max \[Psi]\>\"", ",", "_", ",", 
            "#1"}], "]"}], "<>", "\"\< \:043f\:0440\:0438 F=\>\"", "<>", 
          RowBox[{"Switch", "[", 
           RowBox[{
           "#2", ",", "\"\<r\>\"", ",", "\"\<\[Epsilon]r\>\"", ",", 
            "\"\<1\>\"", ",", "\"\<const\>\"", ",", "\"\<dp\>\"", ",", 
            "\"\<\!\(\*FractionBox[\(\[PartialD]p\), \(\[PartialD]x\)]\)\>\"",
             ",", "_", ",", "#2"}], "]"}]}]}], ",", 
        RowBox[{"PlotRange", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "250"}], "}"}], ",", "All"}], "}"}]}], ",", 
        RowBox[{"FrameLabel", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
          "\"\<Dean\>\"", ",", 
           "\"\<\!\(\*FractionBox[\(Re\), SqrtBox[\(\[Kappa]\)]]\)\>\""}], 
          "}"}]}], ",", 
        RowBox[{"ContourLabels", "->", "All"}]}], "]"}], "&"}], "@@", "#"}], 
    "&"}], ",", 
   RowBox[{"Outer", "[", 
    RowBox[{"List", ",", 
     RowBox[{"{", 
      RowBox[{
      "\"\<shift\>\"", ",", "\"\<mvx\>\"", ",", "\"\<mvy\>\"", ",", 
       "\"\<m\[Psi]\>\""}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"\"\<r\>\"", ",", "\"\<1\>\"", ",", "\"\<dp\>\""}], "}"}]}], 
    "]"}], ",", 
   RowBox[{"{", "2", "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6247927513964844`*^9, 3.6247927815927734`*^9}, {
   3.624792942607422*^9, 3.624792965754883*^9}, {3.6247933874121094`*^9, 
   3.6247934115078125`*^9}, {3.624793447640625*^9, 3.6247935718085938`*^9}, {
   3.624793615196289*^9, 3.6247936997060547`*^9}, {3.624793762352539*^9, 
   3.6247938673691406`*^9}, 3.6247939533046875`*^9, {3.6247943673027344`*^9, 
   3.624794373923828*^9}, {3.6248564182470703`*^9, 3.6248564291914062`*^9}, 
   3.624856500307617*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListContourPlot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"First", "[", "#", "]"}], 
        SqrtBox[
         RowBox[{"2", 
          RowBox[{"Last", "[", "#", "]"}]}]]}], ",", 
       FractionBox[
        RowBox[{"Last", "[", "#", "]"}], 
        SqrtBox[
         RowBox[{"First", "[", "#", "]"}]]], ",", 
       RowBox[{"#", "[", 
        RowBox[{"[", "2", "]"}], "]"}]}], "}"}], "&"}], "/@", 
    RowBox[{"Union", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"GetFields", "[", 
        RowBox[{"#", ",", 
         RowBox[{"{", 
          RowBox[{"\"\<Re\>\"", ",", "\"\<shift\>\"", ",", "\"\<r/R\>\""}], 
          "}"}]}], "]"}], "&"}], "/@", 
      RowBox[{"GetResults", "[", 
       RowBox[{"{", 
        RowBox[{"\"\<F(r)\>\"", "\[Rule]", "\"\<r\>\""}], "}"}], "]"}]}], 
     "]"}]}], ",", 
   RowBox[{
   "PlotLabel", "->", 
    "\"\<\:0421\:0434\:0432\:0438\:0433 \:043f\:0440\:0438 \
F=\!\(\*FractionBox[\(\[PartialD]p\), \(\[PartialD]x\)]\)\>\""}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", "250"}], "}"}], ",", "All"}], "}"}]}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<Dean\>\"", ",", 
      "\"\<\!\(\*FractionBox[\(Re\), SqrtBox[\(\[Kappa]\)]]\)\>\""}], "}"}]}],
    ",", 
   RowBox[{"ContourLabels", "->", "All"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6174392417783046`*^9, 3.617439243188461*^9}, {
   3.6174400039062347`*^9, 3.617440015741195*^9}, {3.617440123241195*^9, 
   3.617440124457992*^9}, {3.6174402811132655`*^9, 3.61744029513475*^9}, {
   3.617440842996078*^9, 3.6174408697587733`*^9}, 3.6174412301376796`*^9, 
   3.6174412694257655`*^9, {3.6174413694033046`*^9, 3.6174413900937347`*^9}, {
   3.6174414252880707`*^9, 3.617441425713852*^9}, {3.6174415201611176`*^9, 
   3.6174415619179535`*^9}, {3.6174416296718593`*^9, 
   3.6174416395107265`*^9}, {3.6174416702978363`*^9, 
   3.6174416732001796`*^9}, {3.6174417070693207`*^9, 
   3.6174417216445155`*^9}, {3.617442291492172*^9, 3.617442305585922*^9}, {
   3.617445541377914*^9, 3.6174455652900233`*^9}, {3.617445597151352*^9, 
   3.6174456027118983`*^9}, {3.623052678040039*^9, 3.6230527045029297`*^9}, {
   3.623052738048828*^9, 3.623052755798828*^9}, {3.6230529596835938`*^9, 
   3.6230529608066406`*^9}, {3.624783781486328*^9, 3.6247837933310547`*^9}, {
   3.624783945736328*^9, 3.6247839934873047`*^9}, {3.624792385859375*^9, 
   3.6247923907509766`*^9}}],

Cell[BoxData[
 GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJxlVnlYzekXj1+WX+WhMQwmjbbBtKik5bac06Y9Svum26pF60RKhSwzhFBU
StqTdulGt3TbSDK3ItLUGEXNT5JQKEwz9/zuH3yf5z73ee/3nPec93yW90p4
BFt7zxUQEOiZ/fzz/chyS8XAtDheth+PMDWpgcI3587vHpTAcMZFy98VG0Dg
30caF5sYeyzVbv5qfSJPtatkRIbyb4F845nOJUVr0dgn5df9tndgm/MjhoP5
etqPCzNjnn4b7/+EHN2fH06pdgFz8sNA+QtZ1DTqjkuo7QZePwo4whHpN5Gr
oH6U8E97n07W02qqr4K9L260yGSyv1rz+tlE+RzqRw2HEjQeCPy3mfrRoP1a
qR8G9kueaQ9qbKN+NHFVrcqCd8PtIB09LTispYbxO53GvhcuhmmKL3n97MI3
lZVUXwdTyi9uPufG+motO1PoeiAIKZ8N2Z0KGQk3dFFtmZAZ17kBYpul5PTe
69F+jaD9Wujksx8MUKqracJmYQu0qWsVGEwY4IfISxXz21ppPjo070Kajy7N
t5zqGxA+VV+tefMx5OPNm48R4cWm+Zjw8efNx5TwaqT5mBFeTWB8qlMhwFUf
8/Q/T/9Vkwddr2IO2LpsxgHBz1uOTxZTfRMU8vxstWJV5VfrCcvmzb0eZpR/
FWoq381LTrJAlP6cV2t/DdZOJJoEZW6h/djgGjEggS1bkR32eW+ZaQN87HU5
duJnK5z0uSGmk88hvIywi6Oc6H0vh/AyxWb7Mf8jIUVU3xIfTd7LtjlcTvhs
pfgrhI8V3k5IjNklySJ8rCn/OuFjg2xJc4eU+jrCxwajtdcfOi3WAJ+9ZPo8
xMwwtss8/p5zNsiMmmwVtdyChStEy0KiCnn191lhl9v9RyKppdDPffldiuw2
iq+EYRMm626VDZ55q5AqGXAVRhbHbeyQtKP8GhALVZtJiLLHOs3XzfW/1kLy
ue+bPgQ74KIeF1uN+3XED0vifxbxw4r4nk/ntyG9FBMfbPl64/HBnvRSRXxw
5OuPxwcn0ss14oMz6aUWnNPZ+iU7rTDsX/5c5M9rzGLf0uizeXR+O/Rjuj9c
OVMEGBWT0JTnQPHlEMZofW6d6YSKBksqLg9WQl3+Jr3BCBfKvwp9gYk9vRvc
+Pzl8W8b1ogfem5Vc4H4Z4d7vy01+jMql87riGmp/zyXiG/OFF9KfHPF2cXs
LxXEt+2UX0V8c0fhBzkh2kIsUD38bOV6C1vc8CmfbWuaAT7j4xHNKQ7Y/mll
9+DhHDqfM8bEPr6ZvqMQcqWE57z8wY3iSyAueVnicwN3fFVf7bBgeQW0ie8q
3OvFpPwrYFH1s8OZMA/M1YmxaJi6Sny2J/9IJz47kV9k0/ncyG8KiM/ufL/i
8ZlJflNOfPbg+xcPHy/ym6sgGrJkPFfOETsj187b/SoNEl/0uGSLuqLadLPD
lsksXj10R0HGpMJgeD4c9LnDWNTBpPgiaF5kXCTP8MRMlkOfUHAZyCtntWh0
eGNGWr/+yk1VpA9nPJS2Qi9xMpX0sR3LRGt7hLbQ/vuYuKrHL6EjO4/04Unx
l0gfXvjK7eaUtWkp6cEXh8JPK41GXoFRR0brGhFXDN62t05xWSofv8mEj+va
ay7y9m/wwI3jWq8/PssFVc2lbyWPelH8JRA6HNUcvMEHi6trj3jql4BIeYfy
47V+mKSz+sTQb5Wkr//zL4X0xSS/pP0FvMhvc0lf3ny/5unLl/y2mPTkT/5a
CUMSypZ3I9xRV27rnsKT52Ai3GpZ2RxPtE9cNrXJP5Pm742qUTuvM7NzYHix
U5m6kS/FF5D+mPj4X72e5eO7/3Y/J/PIBZqvDyZe+Km36dsc0t8Ois+HzuVG
GgneHvj6uGK6u8lZOBLWvFBcxxtf+j6PkmVl0Px88e2abrno09mQOnTRz1LQ
n+LzSY+e5OfJpEcf8u90mo8f+X826TGAf3/cEHaRNrX1wva3knueKifz8fWe
iM/6XZ/y0R/jdk8M+RVlgdm1YSkvTiDF55E+vZFxh3H+h+ok0ucOfHc9Z09c
xnk6fwD22cwvDtbLIn0GUXwulAiELl5o6IN9qK+VpJsEFcFFL6er/TDKTnB6
1dzz8PG4wsCe2GB6n0v69KX74wzp05/uizTQmxNrqfFxLeKxtCvRHlUQ3Cej
GBYqg+ZoFfME2SC32vBUcb4k1nmvO/aaywHtyuvzy/0lse18lWBCCQfsQo2V
AlokMZqd9PI/TziQIS2lFKQuiUfVJ7ZGJ3AgMSPwqbLo7PvDT37Ui+DAk9zY
9QfeSOCjE6N35wRwICJG3lzt3TrsiT5Yqa3OBTnHaW2YlMX8kXWDcn13IMBY
L3T1Uwn8wAm0lwnkgOhdVugMex3WFeWcCmJw4QG3pz0RFfE4Q5kbJ3ET2Ixn
AgLu67HKpsP6likXjm44Z7E6ShUvN6cvjT1VCtM75v/FLVFFdabUgV/iiuFx
bLLCbil5NKyx0PHXageZxpBxyycbkTsacSnfks3//zXup3zldlIL3PpDmxGV
pYaRB3f6Rct2wK7UYckYb1WsXmgnuEaHC6M/ZeSU1Gvg6TknV0xevwkut8L6
xarUsOaj2/253VzQdnssH79XE38zUtv/xr8ZuowOsTzstbHRftXxwgcNsG34
etaFg4DLG99MjD+8BsdKDH+U+g7x0AKrlHaDapjS6xmInEG8a63tGG5bArse
6yT8qaWLTZZuo74SBdASNSLyaYEh6u2A6O8LW2HKqeAbzjITFP8Q6cyRrYaG
ByIsFQFDrF9SYKhS3wp9Lr82BM8zxmDhwPO/q9XBhIZM265PBhhg7nu5oqkV
5j/QN7/5ygRz5E2NxeXKIC4wMeP2PRNkiuo1bZYvgV5b05xuEVM8ZftwZqox
G8JD9+58LmaHS6yiXyjUsWA7U6moTNoWC7e7MbjSdSDn8F7saLkNasiZBh3W
aIALK9TfK7XZ4KFORRbW3YAjtkqlhv+zwYQ1vh9NOuvBSeLagEeLHXJWv2vv
YlbAnnV67ZkCtqjT9+THraZsKFgOm4bW26HbX8NjuteqwXj/XM2ODXbIHlHo
l56ohpcnn2v+MmOHWi2BFsyQbDg2uGDGZ8oO6+McxTXnzfqh2YyjSI8dHt8h
vMHeIh1qVbX6w9v8cSze7V7vngpYtC8Ve5P8cTSZNTxoUQnVOuWRHk3+WBxf
duN0egUwzmy/vO9gIAZavZdSUZ29z6FHnTU2q3/NobQ/Bsv5/hnaZsswk6oA
z7snm7qDA/Fp1lGnb63zwK6uot25IRBHsp42zDubBQGXNVaohARiabywq4xK
7ld6+ZLvX/LjS7y+PP+X/f4NX6wdLQ==
   "], {{
     {RGBColor[0.293416, 0.0574044, 0.529412], EdgeForm[None], 
      GraphicsGroupBox[{
        PolygonBox[{{157, 1, 156}, {154, 1, 153}, {155, 2, 152}, {156, 1, 
         154}, {161, 1, 158}, {158, 1, 157}}], 
        PolygonBox[{{152, 2, 1, 151}, {153, 1, 2, 155}}]}]}, 
     {RGBColor[0.4929635661978001, 0.40436372680408833`, 0.8099002441606625], 
      EdgeForm[None], 
      GraphicsGroupBox[{
        PolygonBox[{{155, 3, 153}, {10, 6, 5}, {10, 5, 3}, {163, 11, 168}, {
         168, 11, 165}, {10, 7, 6}, {151, 10, 152}, {160, 10, 167}}], 
        PolygonBox[{{167, 10, 11, 163}, {164, 7, 10, 160}, {165, 11, 10, 
         166}, {162, 161, 158, 159}, {156, 6, 7, 157}, {153, 3, 5, 154}, {152,
          10, 3, 155}, {154, 5, 6, 156}}], 
        PolygonBox[{{159, 158, 157, 7, 164}}]}]}, 
     {RGBColor[0.6095334429052847, 0.6010128255971616, 0.9105408472451612], 
      EdgeForm[None], 
      GraphicsGroupBox[{
        PolygonBox[{{16, 9, 15}, {177, 28, 178}, {14, 9, 12}, {19, 14, 12}, {
         175, 21, 176}, {20, 16, 19}, {15, 9, 14}, {19, 15, 14}, {19, 16, 
         15}, {171, 9, 170}, {169, 20, 174}, {20, 19, 28}, {173, 9, 171}, {28,
          21, 20}, {160, 8, 164}, {163, 9, 167}, {178, 28, 179}, {166, 19, 
         165}, {164, 8, 159}}], 
        PolygonBox[{{165, 19, 12, 168}, {170, 9, 16, 172}, {174, 20, 21, 
         175}, {167, 9, 8, 160}, {176, 21, 28, 177}, {172, 16, 20, 169}, {159,
          8, 9, 162}, {168, 12, 9, 163}}]}]}, 
     {RGBColor[0.7073425328010521, 0.7581648173909206, 0.9127705932386704], 
      EdgeForm[None], 
      GraphicsGroupBox[{
        PolygonBox[{{25, 18, 24}, {30, 26, 37}, {29, 37, 25}, {32, 33, 27}, {
         24, 18, 23}, {25, 24, 29}, {33, 32, 38}, {27, 30, 32}, {38, 46, 
         33}, {177, 23, 176}, {184, 27, 182}, {30, 27, 26}, {30, 37, 38}, {
         182, 27, 180}, {46, 39, 33}, {37, 26, 25}, {27, 18, 26}, {32, 30, 
         38}, {175, 18, 174}, {24, 23, 29}, {172, 17, 170}, {169, 17, 172}, {
         181, 39, 185}, {185, 39, 186}, {38, 37, 46}, {26, 18, 25}}], 
        PolygonBox[{{178, 29, 23, 177}, {179, 37, 29, 178}, {183, 33, 39, 
         181}, {170, 17, 18, 171}, {180, 27, 33, 183}, {176, 23, 18, 175}, {
         174, 18, 17, 169}, {171, 18, 27, 173}, {186, 39, 46, 187}}]}]}, 
     {RGBColor[0.8008174051017929, 0.8597321485886513, 0.8969235247344804], 
      EdgeForm[None], 
      GraphicsGroupBox[{
        PolygonBox[{{50, 51, 45}, {187, 54, 186}, {36, 41, 42}, {52, 45, 
         51}, {47, 54, 35}, {36, 35, 41}, {34, 47, 35}, {42, 43, 36}, {43, 42,
          48}, {45, 36, 44}, {181, 34, 183}, {44, 36, 43}, {56, 50, 45}, {54, 
         41, 35}, {54, 62, 48}, {52, 51, 57}, {70, 77, 63}, {62, 70, 49}, {55,
          43, 62}, {56, 63, 50}, {189, 65, 188}, {70, 63, 56}, {45, 70, 56}, {
         51, 63, 57}, {71, 52, 64}, {77, 52, 57}, {77, 57, 63}, {49, 55, 
         62}, {45, 44, 70}, {64, 77, 71}, {70, 44, 49}, {77, 84, 71}, {58, 71,
          84}, {183, 34, 180}, {196, 72, 193}, {78, 65, 84}, {63, 51, 50}, {
         48, 42, 54}, {43, 55, 49}, {52, 77, 64}, {193, 72, 197}, {52, 71, 
         58}, {44, 43, 49}, {41, 54, 42}, {62, 43, 48}}], 
        PolygonBox[{{186, 54, 47, 185}, {192, 58, 84, 194}, {197, 72, 78, 
         198}, {180, 34, 35, 182}, {194, 84, 65, 189}, {190, 45, 52, 191}, {
         195, 78, 72, 196}, {182, 35, 36, 184}, {185, 47, 34, 181}, {198, 78, 
         84, 199}, {191, 52, 58, 192}, {188, 65, 78, 195}}]}]}, 
     {RGBColor[0.8886566062355247, 0.8890241816083516, 0.8575716413421426], 
      EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJwNw81umgAAAGCzPckegpNyETgoJAgEFBAFRFDkRxHUgCKgooUGGow+zbY2
7dYdtmyvtH7J90W2SflTrVY7ffz8sYrOLZBuQ3ILBzsITFIY32zAUBvEIdOJ
MmNBWII86QtdrN2HUQyhweah2HYYBJchhEFJzHWxLgSD7pR8q38FG816AwCB
BgLCL8DzK/Dyzv/0Ek6TDHGmcuxwLnL+1JX7bYsYDRRfM7bDMaeQU2ZieWNd
H7KpOpNEVRn0egNqhFqm5ojzIGRtnQ3HQ30mBtLCkNRVdXbipSnts8pZ/3n4
6ytTabWnfFuwXIrs9Sdwbu7MfHMs49DTg3RmbmI1Xe2i27bQFlL2DXj9UX+7
XJe/+HfbD81ot1+l19NyrRXxZXnIiiBJN8d4axy8MDlHzu/7v32aBfOEpWyP
G68dTZS4Z+B7vrvNuQRv0YLbZTkKp+XqFlkoI2AEgY4IDD1dH4tqTTf5Mr89
3J98atCBJ5e4ZDqT4yY/5uXj9X4przLNk0ovOxj/AR4hq/o=
         "]], 
        PolygonBox[{{208, 144, 150, 203}, {188, 59, 53, 189}, {197, 91, 60, 
         193}, {202, 133, 140, 200}, {206, 137, 144, 208}, {200, 140, 150, 
         205}, {193, 60, 59, 196}, {201, 115, 133, 202}, {205, 150, 137, 
         204}}]}]}, 
     {RGBColor[0.941176, 0.906538, 0.834043], EdgeForm[None], 
      GraphicsGroupBox[{
        PolygonBox[{{204, 121, 205}, {200, 121, 202}, {202, 121, 201}, {205, 
         121, 200}, {208, 141, 206}, {203, 141, 208}}], 
        PolygonBox[{{206, 141, 121, 204}, {207, 145, 141, 203}}]}]}}, {{}, 
     TagBox[
      TooltipBox[
       {GrayLevel[0], Opacity[0.4], 
        LineBox[{201, 202, 200, 205, 204, 206, 208, 203, 207}]},
       "0.6`"],
      Annotation[#, 0.6, "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       {GrayLevel[0], Opacity[0.4], 
        LineBox[{190, 191, 192, 194, 189, 188, 195, 196, 193, 197, 198, 199}]},
       "0.5`"],
      Annotation[#, 0.5, "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       {GrayLevel[0], Opacity[0.4], 
        LineBox[{184, 182, 180, 183, 181, 185, 186, 187}]},
       "0.4`"],
      Annotation[#, 0.4, "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       {GrayLevel[0], Opacity[0.4], 
        LineBox[{173, 171, 170, 172, 169, 174, 175, 176, 177, 178, 179}]},
       "0.3`"],
      Annotation[#, 0.3, "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       {GrayLevel[0], Opacity[0.4], 
        LineBox[{162, 159, 164, 160, 167, 163, 168, 165, 166}]},
       "0.2`"],
      Annotation[#, 0.2, "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       {GrayLevel[0], Opacity[0.4], 
        LineBox[{151, 152, 155, 153, 154, 156, 157, 158, 161}]},
       "0.1`"],
      Annotation[#, 0.1, "Tooltip"]& ], {}, {}}, {InsetBox["0.1`", 209], 
     InsetBox["0.2`", 210], InsetBox["0.3`", 211], InsetBox["0.4`", 212], 
     InsetBox["0.5`", 213], InsetBox["0.6`", 214]}}],
  AspectRatio->1,
  Frame->True,
  FrameLabel->{
    FormBox["\"Dean\"", TraditionalForm], 
    FormBox[
    "\"\\!\\(\\*FractionBox[\\(Re\\), SqrtBox[\\(\[Kappa]\\)]]\\)\"", 
     TraditionalForm]},
  Method->{},
  PlotLabel->FormBox[
   "\"\:0421\:0434\:0432\:0438\:0433 \:043f\:0440\:0438 \
F=\\!\\(\\*FractionBox[\\(\[PartialD]p\\), \\(\[PartialD]x\\)]\\)\"", 
    TraditionalForm],
  PlotRange->{{0, 250}, All},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.624783441477539*^9, 3.6247834763652344`*^9, 3.6247835147373047`*^9, {
   3.624783793198242*^9, 3.624783795120117*^9}, 3.624783994580078*^9, {
   3.6247923869345703`*^9, 
   3.624792391828125*^9}},ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztXQmcFcWZL+cd8+YCvI94EDUw3iisx2QhRNcjB4knEkUFjweoBBSMEBRB
JCCCM+BwCoIgjCKCiAyIixLwgAiibhB18IhEI4muJruu6667nf6+qur+6s3X
Xd2vH4bN+n5Q8153V33/+ur4/t9XXd09+g7tf93AvkMHXNO3/bk39x3cf8A1
Q9qfM+hm91BqLyH26u/+79dewHdHCJ047j9nACRwxP59Pf5JuWmzyAv5KcN0
b/d/nWhowauN8yLfLFoa6vBrXR38zYs8noTr1XV1DaLFzdcgxWzAPxWyGHUK
i23Oe2JaGvL4t0xdC6fyzQ6KqmtoEU5Lg6hzRcNZOAbnJtPiU0bxZeoYFAPZ
4a+sWaWHrllVKaB4a+ltpR5QHxK8I1F7ACX4ZiHVpSsaEXxbCRBBafWrJgGw
XmtosQ1KTF40OwXFl4eq/gFbZ0gZneGB6P1rd38/g7SybskueCzt9VGlpDLm
0k54LOcdE0RB5Dou64l4LNMqK0iVSsvKpmld3PGkh9OPvpyK4USfgMeybH5X
vEW6LFGcrvDrHiuvko18quozzXnZlbhrTsJfbdy0xe126rqAa5ljJ3h9zc+e
jiD2eCXWmxXcvtoAf+OITRdmT0WQvJepNz2KdZ2hNK03PRtw1wTpjbuWORam
tzCxMl+Ne64hrkjV1VNG3lQEmQUa0xM6veQf1ACUE5qsDnNdkNK4IpljnNJS
0SRrveGc6PWISFI9vdG8ZdHERuhsnfFXJbEFoZ2pJP2OGe7RpEtVVHuDKaLU
kwqyRZRWoD1uNHfRc3ADMYlf31RXFkP8cfirLRl+YJ4DxYVMmzm+DLhO4igL
0ZhSKmdxzVFMaIpjWJ6T1OQrFeG1Imfigs1eQHar8OO93D65CTDt4cKZ7Fbh
yubGZTffhT/wRXSAJEeOipQi/I7qSa2P5SJeV+q8exKWv+d6ZL/pDt/UI1J3
aJ+g2P0jlrenywhRz2nMsdNLfF2IeEyP3A158MwL8G0fZ+fOlnO9YyGGZAWk
Hb3LoyNaAOkZkPHseBkbIf0hZDwrXsbxkF4KGc+Ml/F2SK+FjN3jZRwC6WDI
WA3fquBbx3hF9JPHUl999VXX9etlxGUKlPOdeOVcA2nG2bLjA/fEmElTnLfe
eg2KEfdBelS8wnpDWq0KmzJngbNp03osbCqk347SzXrKbiaLmPvoE87TTz+J
RUyH9HA4W2bpeudDepAqYslT65zHHmvCImZBemi8Kv0I0sNUYUuf3uAsXvwQ
FjYb0kPiFXaOX1hOTOkl8HPibc/jkS07FrgX/ET8cvFDYsOok3XA7PL5LSAJ
Zc7EFD3Omr/85S9YJjfnhUDALt5eQdgyp7cQvRbgrym9Ooshaz+A77qeKSVu
/uW9xHwTgvPee284kydPzH755ZdxIXSD9GgF4fHbOosL53wgNeDCUdoohLBh
VC8xagOFkMaesebJhc5nH22D//vFQ1Gnjo2tn4oCAcB3SNOEgCpToHZuGOF6
z6gbOVxElasr2aqdR/0zHtm5c7a4XF7jTJs2Wcy7VJ4XV8xwhbuw944H+zQ5
Ulau3+WeGHHX3QXYq20KVaDhg6Ak7ozYOd+t8+XYqd06nAzKFrKeWefFF9eJ
pcO6CdFlmHj5o23i5Ts7iT6LtqUBftt48NFdzgbCr7J1SYlv1Aixwf3biL9q
YLToYYL1ULp3tm9/xXnggZli1dDjAC/AFZ8tukSceucqt1bur5ooM9LJ8K2C
gdxBzgp0ILsqg2PlziMr1zqPP75YQvI0LtU6RcGGrsLBdiE7Ty6dh2p2oSLs
R68QCDsHvyo8bCGz4EnSsrSGfZyazB56fJXT3LwMxU+zaBIgvfHKs+KzjcPE
qUJ/LhGPutAyAKlNvG6ATnSNArd0zXtoeQDW8YHgqrguitNQY2O984d3t6Ce
dDw25pR0LKRtFZ4lq9/WswKLZ7ocFoVDHc+vW7O4DIHIWKq3vNXQsm88RLWQ
7h2CiNrGWWpGhA4/d9Yk55MPXgMQB8UTqZjDUTt27HAWLt+GssMQzFq4xPn1
r9cYCBYunOu89tIaPScXh8C5Zcgyt/QXYiHQVgEox6OLZmgEB8dDcJQkGLNn
7gqAAYqZNH1OIIwZCgZ0zJkzG53fvbkRYIQQBUn8asxFRLwEIkRmjJqe9xeI
UsYSTRkjCqlXWlVr4A0LnAVLXzWqBb/rZ80zqkUJnK7W6tVPOGtXPay1G1Kt
DviHDwGmrOdS/hJKQJXQh8vErBL83rz5eTKM00h4Z0+/Rw+ab9mrxAWdU9Zz
KX9xV1cpA1IOkyZRVmRAvznOw0++UURFUnTsiYO84nMmdm59IRVyTscw6TpD
ilER1iKnapG/dgaO1zi1mKaaA34/PH+q7mEhdN3eHBXsucLgf5oRcag0+rI6
1149FY0Urc7spk3O9PmPGNUZP2WGs23bFt/jUfPA7NnTnHe2Pw/VOSzJgMnx
YXrHC7tnmNKxP1fqcTJ0IuA3agIzHMxgtCYw0YIxoTUpoNshNenoDWF/xsow
x2TfShcGvbnuhdN4dYJaNPKj/fB45uFAeQycL2fi3a8iHq3bxslvO78YOQPx
7BMLVcppanrQ2bpxNQ7dI4qCdMzrr7/u3Dp0eVGQxo8f4/mY9ylFbd260Vk4
d4pu7uJQOddduMi5/ZdrDFQN977h/HLMHAPVjAXPuUNqqQVVCk2qGkpsFC8E
0gHq2Mh+W51rLljg3HHbWlGlIEFbjhy3AMFIWlouRveQPbV24EY8snJ9k+gq
zhc/X7hE0fyU2LJ2lDhReSu1DOwp/NiJiXx/SUpc4O6JK3vc74y98wVDo+Pu
2uR2qyUIsxrTnFh5j+sy9GjCX6N7dBH5Jhwweh6OWoPJZNwAtfzjzlegBpFi
OQbuK348E3FS3FCP8ZOXEdwVYvbALuK8e+Tghjoo9QNuUT9rghhyiryNCFLt
2/oOZMrZ8Oqb6BH46k+h47j5+ZV+r7E5T/vJiyTyXuc1tBrs0Kcn37+GIK/G
DhOAHDSOrq3rmWuV1zKAtbZfe+0lZ/7sBt1fYgZ10dVIh6AfMXy1c9+ctQb6
IL0/sHizM3XeIuWQ9xZTbOjNQRozgriP5C0S+oVnjcMpjEKnnFxDD+rqdKqD
6NqFIMmHvu7l7RCSQdANCvqzz652Vi2fj9CPLjH0mwY9gtr0J5kUnWTcSQWO
ZbFfgb+pe3ZBf1n9wsvojwPgejI6QevKDY6JHENQWT2/9J4IeA3klF7rGXvS
9JUY5aAhhdbQUhh83bRhBWo0Zmy6HaTlIbj6XTfLWdz8loEL5hMIFgXhupf3
ZGJCa0uhDbv6OaS8AKqKocAa2ugJi5zmDS8Z0OD3/PkyqDGJcMZpk8dqjtKh
xNAofdLQbhs7z3l606sGNBo6n6Ra87nn1jrLH52DrWlbscAzBpqbeq/BvkTb
cNb0D51Bt9Yjjn0VGuAsMLFQNPMfW4ltBjgmKkW9887rOIJVt+8g7U341I6R
qlwIIEqaNKDbx010XnrzfQMQsH9Qhw/INDS18ZrNwDXwZyucITctsdKmFes+
RGyUNk1onIX2AxDd4y8YdN68eTMKOiYBrht6PY4zMMVFuZPGxQVrRt1djw0G
iMZCeko8IBisrVBA8hc/jFYsiAVpIOBLg0Jow23c/p5z7713I5A7ID0jARCO
4FJao4FQ91cDeWbzb3HWBiDDIf1eAiB9fjLHGTPquUCWwvF/DWTFuo0YPQAg
N0N6TjwguIpZGUJQKeHQQKbOW4dBTAqEhs1vhPTHCYBc9sNGZ8L4rYH0QQMh
9tYDAr4IcAEA0g/SC+IBqZLHKj///HN0OABRLoSRUW4QZsloTK4vpJdGmYQV
Gufkil7O8GteNNBccvZEnFps9h5G1vJnXjDQ0IBHb0gv80SGzMAazUkVFzsj
rvuNgYbjTZyVhwkHrDpFc889v0LTCWhwOb9vUW3m/Ljbba3a7KfdRzszpv7e
wMWZ+GGjZyGvBETHKlzP/8sOWCpFXBdBmo+Hq1Id+1GbcRqbqAhja4x9H3rb
VMRBcYG9h9AU4PoppNcXh+vcmlHYblRf0K59r5qMiGSQtkoM6iq57tE9N+KR
2TPBoe4tzr+13uPBQiB9F+2YhSuNmy4F4v0eg0qHm/IlGS/PuZ6R6150bcJf
g7p2Eb3GoL41UShTVH7l+o0i32OMmO3+asMsbXHrbudAOiQe/ArSHc6uuR0G
sNcdbrlqHYaQKfyxPbuIbgNlF4GqKPVrPuHDbxLniSvEaAKfmnENny52fB/S
YcXDP6tmOMyGHnxKxyT8auw1HHxKO8B3xU+PprYh9paGm7tBOqJ00H9+2Uqc
xKNoXhEVT/NNY0Reed5a8zS8rOFDR9KBwzpI74gHH6fkMkDvnuhePQQtNe38
lN3JOtQEdn7FcVzwG7HHY/c53uz91MLrwQuTNkzUUInTIB0TxYBZoV/fc6kX
/VSLQnS+EXJJL+uMGrkOPFfUea3wfO+2DBWgiLXz2BnSsVGMnIG4a9XPMeRI
EXPEkeNrlAVwM2AnSCfE6wnlsgYS3D9W3YhgKDgVHzXADb91JbZokEerwVG3
8XhI700A7rtV1yPXp+A4gsnxOnCWgGJTcHTV/BhIJycAd3rldThmKDguzMmR
O+rianDUc+sAaWOJwXHMk+N61Ooeo8CB+wtek8uwxNEAbnoCcKdW9nEGX77K
ANfz3Hud+onbDHA3DJjX6lYEalO5MWoDJ8MW7SKvtwfs5eRWDY06dqm8Eg2a
jd5yi6VAd4Fc0zpS3+goSGcE1zFsLTHt2TL7LiRuKc6oZOfKK5whV661VpJb
QqUmWlcSIs0vvrgOK3kkpDPtleTWeIMqGbI8H1xJcJuAGBqTkIV4c+uSupJ0
BfDbkM6yV5Jbmw+qZOAaP94QkIlTNb0ETqN0epYAhx6icnSWoMsBR3oDMU2M
5dfWaj2+d4dze34LVooLh4YtktbPXO0sWrHGqBoNkmCr3b8HjD/qq4ZVEiZW
iPEGMYtjGPvYHtLZtonUXNKXlYu0NS9wAtWs6YdtxmIj0r7JBWwhxgNEJCg+
oOtG6f8RkM4pwoJpcJzzyIHjYoE0SFDLmNf2uwMcF7oFigddPShSoMHRQCVq
7oEE4M6uGYG23gaOixlSYlLL2MXDIZ2bAJxy6wxwXKzZdoei7nPUWz4M0nkJ
wJ1ZPQyDmjY3YtDARc68JVsNcPS+xWMYO3QopA9awOEZAxLni3GRaI7IAUSI
ZwKYjiRWpuLzRF82Z8sKiXMZON5FrXVH0oQA0537xSEAaWGCJuQ8QS5ODbYW
FncoOOqcanAQI4BB0dy8TBwE4JoSgOM8QeoyhJGBCY3L0fOj4GDCBXDupCsO
AHCPJABXVzXA6X/JYgPcxf90tzOl/i0DHGfOaeyaggOH6513Xhf7AbhHE4Dj
nC1KgytCzDBdeu3ImCrcc/dYAnCnVV6LC4oU3FVX1mMzUnCcHaXWoCMzbbSF
9PEE4DgviSOgnB2l1oADVwPpEyUCp9kVrJ+ANxNkRzlrUMuAw01/TyYAR6l7
GPWjdpRzvTQ4unxSCenK2NaAgwTeIcz+NutJI57cjWg5D1Isa8B5ARxP42wm
dXB0/6I3DZVD+lS8JtRbiuliTtiqP2c4ubmWeicZSJ8uDtcP2tyFi102dsZZ
zzGTHkEcFBd4UStWPKbuj3DTtcXh4igtR8w4w0kDgdRw6rs3cJ/bM8XhOqfm
DjRDQZwszGbeNHwykh2Ki8YA1xUHieOwlJNxllKrit5QQiYG2GaMpZcQEuVk
nH3kYmEK0r4ff/yxJ6NISN+vHorB2iAmxllFbvrEXYDPF4eBo6oc4aLGj6Oq
eO/rC1Gmay25W/Ug5+rzH7SyKc6yUR56tFf7SAsiASSTo0p0uUFLphGLIyHd
VJzeuVUFjhFxdooueXwb0t/EwyBDIdWB4eeOkkqKy46V58WBt4gb+23NhHAj
znbRGMMRkG62wawwTuF/JiKlnuykGa8Y2e8Jce6BF4nLXHSZEIrE2TF6V93h
kG6xYWzXCiO7wcdxYF860hHX1lOMmRCiRE2avv9g+drf441rHsSX40PkwrHu
98Pef/9954TcBUEQOeJErZuGSG9xOxTSV0qmRZhnEeIv+q7nIFIixRk63dD0
HvJvQfpqfIgBW5+woQGi26IcRMqpwgwf3YByCKSvRZlOubim2k3ndK64XIy4
bqkLCM6YI4QyKo2K3t+pUdE49MEeKtstrniqkiFJWhS9d4KbW/HhGb8tYm6t
DGFAnBGjYdoDIH09gVCO46j1fkMoXXrdH9LtCYRyLIYu42uh1FfdD9I3Egjl
eAq1VXpqoEulKPTNBEI5YkJXtrVQGmncF9K3EgjlOAldsdZCqfeIT49pCRYa
d8N16yfy2jdcG5Xg6A29qVFXgt4vszekO4IrYV9h4p7tat9WbQDnOBFdydXA
6V6QdpC+bQcevP7HA+c3T2eNschwI7omq+FSP7Wt11m4RcrgVVfuIbD2XdJ4
B1mOoUka7rT73sOYG506aICwDaTvJtFuTlgevcqtyxm4KXfSuGGMAuWkuGns
sAbS90rXnT3DS557agVOGVWYKaRzNT7N6ne2ySTGImik7c4GbI5l0b0OulvT
iCPCfj8Ytnryzdw+ffqYQ1+k+k+fPt071t4GjuNX1NJrcNRlroJ0Zzxw5fJY
p61bt26vra09f9myZYLbhGqA42gWNc4aHPWliwEnNZfu1dTUtLVTp04AsM/c
uXOPsOHjuBn1ezU+GoishPT38fDJO57T3Z91P927d3+3ffv2gI/bwm/g42gc
xzNoQLIC0g+K0V+mdvv27YPr3c/gwYPh/3mrVq0S3A59AyRH+ziKQB33HKQf
BoN0B3SDxwr86Z0+uDzN1EM+5CADuAH/9P79+0N92r/77ruys6IwAz3HH+lD
QDR6GsPMeV2ABl2AlQj/k/LSfChmrFsZQBUp6MC5L774Ak9wO3cN6BwL5Xxo
GuYsh/QPIYrPEcW7s2fen96V8jNBdSg4xm3oNOBzfJayBX1PMA0BIPyPQuBn
Tfj+5F9eKtiUEevnrcDOFNAy1ToNm1phl/uado1TQ7NPCoBEZEuFnRJhjZ06
4xo7vTMgC+mu0B7j+MaXPATdI/Ml6zGUDucY/sCZE3y05h+D4WcjTi0cYO+Z
Q83NbvvpgS+Hu3Vup2RZV2b8rzYjOaaVodFeW2X0Y9/pG1NEzE5Ey6jL543X
0wTaAm5xNoyN0GBHGtI/hXcw1aHkC0IalB/isdGoHcx7zlIDvaNYktzA9uKW
dsO4DA2ppCD9OGp7ARA1Z7kMPF57pQyPI5A1covCYcSHRrHxiSWfBFeGIxaB
w9w3xNyicBjXoUHrMk+/NCQXC0iYljhuTZmNtlA0zIOQ/rUoLQ0bN25cdHAc
t6bERYJL0/A0/P80HrTjbDA4Ck1JiIZBQtDRYBjasMLgmDJHJmiY+bNgDIG7
z8oZ0hvGAlQAGQtIIo/S1DDLre60SiyPckstjy4OE1Lf7tNPPy1antq/pxfb
Dq17An+P7NcoThEXiW7nNYhrT/XJtNrNpwC1XiBGWP9mweHPPe7UO/IHFwlx
bKNCcaI492dbhXxkUlZTPdxHCJvYYMNsr54bM0GG7c9e6dY3fMg5/5QfyDvH
AYRbdSU4Y/C0sT3HiEEzYe9c6xXhSNUNkA+cLUg+JVpQ6W5dmzz59HamJPKD
65+l3Ailqo2PGcYs4MD+92Ig1EjearY93syvWIynelSBQAh6c6MReS8Gg9oE
TXu+V31FNZRc+XH7XzbIBBUjmlvlDJy/kwjg7DoVgJtVP08ggLXSZOpPLICz
tLEF4BmjWGo59RRLw89tvcFlm1KMYqkl5CwFov2PBOrgTBE1DbtFAHXzEgug
kQfO9dotAqi1wKePfZFAAOfI06VWmwAZNc+FLsG556TZzbAvtOSi/VaM1GGy
YYyyhyvK2yO5+L7Z3xhPvNUT+v7TDpRb88koRVte11gUxlaP4ouAkVtQ0xgt
r0b0dzDiVKSfb8j5xTgdN23ykX0uc4hIuxAl5PLQdwwGKkzD+kXf9bjGG+S7
RVVYcI+qjPoiPytWzkRSrPgWgS9tozloDcz6mrzAkazxwU5xuMctyITb8AVO
Z+kQC1tSAfTxFJwJTyzA5n9WQvpfCQTQJ0JwZr0qqQCbh5lYAH0yA8cbIgnA
M1XyW7CtpWzB17ztti2jWPpYLl0sXfTFYv87njoMAZx5pBwhsYALzrwL+WQQ
R0gsgLNJ1MDjO1u+KrEAGqUsWkBZiO2iVnW3CKDGMbEAzn2jpiMH6f9EHlRl
IRaJ3kGc8/qOzTcxiqUPaeLm+UhowwTYDEliATZDUg7p/yYQYDMkiQXYDEku
qQCbIdktAqghQRU5CQRwwU9qUhIL4GwWNS6RBLQetZzNoiYl62k+1qi1OZtZ
D+1eCXRicxdLI8Xm6+0+KdSuZDwp3C2gNikiZUQpuU2dJRGgw5Dck6pKIkD5
aLtPgDJj7A6TtCeA889CBFSrY7bAZnQBeEYXy5kwuu0kbSrGRmrDiqV2JbE6
uHAmXRHzBXD+ZgQBtsBmYgGcZaT31SYWYAts7hYBdHks5Qng3lRUfGyQ3m8C
vzn4GqMtNhoJoz02mC6MDUZ9r9luwRkcGjTvPAp/U5l+cC5n56mpTJlTRNQb
6zMeBD8OGPX1Y1prNite5kHLFqe1rLrQ24Jmv3leY+McYuDycE9AbGxhbwlj
44JO6FvClNWCfd6aPbAeaSSMseOBke6JVxAP2LVrVyuI1KeNBDHEcqMOdKBI
CkjTVW+v+PIiJskqVR5Z7ilJecROJCqvmrH4iQtTtwXJk1EK8wlJtdnAfhEZ
7zob+dBFqCaMjiKsMLf9znnqqadKU5g7KcDr25IVVoOMH75VfO25q73clV9n
7hpvBHwNufEM5qk0dWXrhAV5qopA+bfMXeHlrv5/lTvn5ba9JTxZbr9f5Uy8
Ns+qBCjLvdwx39/9fzx31ssd8/X1X2tuv2dkzVaONONkvDztikD5t8yd9nLv
vWfmlvy2yuahqg99bop94Ts6ijBPwL+lguyhinZnAI6nMg/APnYAYfedUJVE
vO8kPoCwZ2N7oYHgG0vIs7GrTdltZWOISLeNeFXWO6h2Z5XDbgtxWlrU9hJX
93XxG1/IO5v1sWijIcDb89y6WHd/FAODG9J7WjmYxnyZ6x6VB8+cxlx0OnMs
6nWnyt4fbtNKLZS7LkQ7nFeUi3hdqfPuSVj+nuvxTXf4ph4B3QG+iA5kysJL
BsjvcoNsxt+WDB9lh8t0UXjOv78UPi5RuEmWIK0MRIHkfkyPYEIuoyT1kBGX
4jVIYnMzxZAVMkOLVwlFf7jn1RTklKdI8DiPEI2cCorK+Scjp653nb6MbhSF
jb15F5bKKfcrQgSGMBYtk2pJnhtM5WWE8dwmkO3yHPlSOvGxVpL/LCcobFjr
RnvRK0xv2/cbTb4DQ2zUVSfy5FsaRJN3yufbZcyxg4OLmK/anHYa/9kNElQa
j6UQWLNCKZ9IVeVdS7mVV5arEfpdU9Wg8ypIL4uu8JrACSm+jNOfum6irKF8
u8ChMlvhVn3vd8F3QwMmDL24lhf0e6vrZWX3LThd+N0v2vzNF+8/Tcv3Jswx
JXRTicKHcIyS2phnXE4Z/IGGC+E/6zBIG1LhEoa8pgGXHhvY6zPepBemDvqU
pZyxlMmUz2lDhaPgMSjwyBn4L6oxxWf4eBPSQFMbZJSrCXc/4kQVasDrZAWN
5/ubIqg/JFNAQfFp1flN51I+J2CCrYIH4uzEV5A2MdcNQq43ZqGg3k+UqJxD
+tyPIFn6QWLmVEUaQZaRtnd+qg1v+ZeMH/24PUDXYkx4FV4+OgtRbx+O65sE
qAnU04eElyYTnguzOS+Lz3lZAoqP0eStR3iKNLkjOjHDx5gyy1tNmf4DGxxx
svBNPX0sIYh1bezerUwgTmdDqdXJGndQQM3VDQAnURumrtDNSnXajlRL9yQl
4c+MyVOndmmbwRAlqt/Cc4olfSTsLClFRZDnOAJIg2xZqFKWtUDu6cFmIQGs
SdfGn0ccT1eqBJN36Qp77MmriDpdR3abqRI+oZou5JteA7pzad7jm4ZsnkkN
F4RstWJS6ixlUmKvvwIe+Grb\
\>"]]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{"%36", ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", "250"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6174417631425624`*^9, 3.617441820779281*^9}}],

Cell[BoxData[
 RowBox[{"GraphicsGrid", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"%49", ",", "%50", ",", "%51"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"%57", ",", "%58", ",", "%59"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"%53", ",", "%54", ",", "%55"}], "}"}]}], "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.617441459116195*^9, 3.617441474557602*^9}, {
   3.617441534095688*^9, 3.6174415684179535`*^9}, {3.6174416930068207`*^9, 
   3.6174417258857265`*^9}, {3.6174417790380707`*^9, 3.6174418238788905`*^9}, 
   3.6175232184745936`*^9, 3.6228696849208984`*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {{InsetBox[
      GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJxlWHk8Vev3jkhJpZJKpUhJhswytZahzPN0zA7HMUaJSFdEKCHdUilDxtyK
NGm+ukjDpZR5yJAzIQ7h1o1uP/e6d38/7d/7z/7sz95rPc+71vOcvd4j4R1q
68s7b968dJ558/6+dlpa3eyZFkeVf1YTlE6evxQ5IIEXs/5eHTDvnyWFc9e+
/3efXqz+royz5d/4AZCvPvNW+Ko00v9ZLLBz7dSimMv8m28QZkZ9AlRatmND
/d/rI1D/+NpTMSL7bzwX5vgokPgokfiokvDVCHzy8zk+GiQ+miQ+WiQ+2gQf
qcPTfGwdDYLP9L/v/8hnF4EnO1PqHh+CBJ+Ctwo5qVV6BD75/SO1m+X0/9Qn
+OhOCJ5ibTQk+LzcqXPF8JMhqT67SPXRI/ExJNVnN6k/RqR6mBD45Pi5+piS
6mNG8DE+/VYhyN2A4PNuPCbewW0PiY8Jke+TZe2eDm8zgs/9W1/4M89aEHyk
P2WYhORZEXzcI3ok8Jk1gf+tw+1kergNgU/OP9cvI1K/TEl8LEn9sib1y4bg
M9cfW1J/7En9sSf4fKdt6fJeb0bgb/loYr3c0upH/DgbAv99I3f1BVk7Ap9t
Qr33+o49gc9ZFqvSIOlI4K/frzGTGu1E4GeeX1fzNZRC0oclSR82pP3bk/Th
QNKHE0kfziS/uJD04Ergu2Y/Nijba0Pg/1evH/fvSOBjdExqTTGFwA/Tqhu2
zXMh8J+UqOkPRLgR+F3BGa0dOzwI/Dn92ZH050jarzNJf64k/bmT9OdJ0p8X
gaeexForY+FA4NHHxiJqL1BI+3Ml8Io2L+bhbvQg8GIzV2UMG3oReC/FD5b+
RKMSeBZ3wilnwrwJvDk9O5H07ELanwdJz14kPVNJevYm6ZlG4C3fJzxWJOdM
4GWMtLoVLHf/EQ+9CLxj9HqtJQ1UAq92ifFVeS0fAk9eOf+ZZoMvkX/OH64k
f3iS6kcl+cOH5A8akX/OD35E/o/OWnWbhNyJ/P/174f8T72J/OraK6ckU2hE
fsGk6NrQHXQiv1BFg3KfdACRf85fHiR/UUn9oJH85Uvylx+Rf85PgUR+hoSy
5esILyL/pwM2q27w+JDq70vkZy9zubHTyI/IP+c/Ksl/NFJ96ST/+RPxb0WN
NFN9vYn45LDaheK7fEn18yPisxiXAyz5Aon4OT/6kPxIJ9UngOTHICK+arGb
lKkDjYj/r78/7j+QiDd7wN5M+y2YiJ/zpy/Jn/5E/JwfQ36cF+KCiHxl8/Yv
W7ibTsTfDL3Kna4MIOK/pSn0HDoSSsTP+dOP5M9A4v26075NljFbieeRnV95
m//433xjTctOPysghfZCS+wepLWDyPOeXR5TCqhFf37FS70JuN9yNNRzJXHL
2msGUSu74fBObmPOuAJW7EwR3QpNcF2Rc+90iSQOO/2yoqKkG/apKQkuaFfA
iWMtToKxTeCzM2gjXpZEJ2cr97ctXaDTqFe5/oEk6n6tUXSwfQ/zkwJusgq2
4rpnq7garxjgvOZh1tVmSWQ2PXvlsaYHDnVtjmvq3YpCyguPbitmwomloVfe
pWxFjAvuqHNhQEls5x/jf0qicJW/S/L3HujOMH+GytL4VfXDVGURC9pUdqmc
Et+MdS99TrDqe8Fe3LhXLUEaHwbzm9Qks+HdQtuT3WxZzJikWKyU4ULCVHFx
YYwc3hBtOP6ofwT8Nw4P8HCU0eX9QvoAtR0WqupsTh+QRTnnqlPf13NBvLVX
0yBBjain37mmhkfjsigilVudK8qFjWKDfcKBqliUHvPXhggmbDW9OJi9bic+
PfNySNy1D2putk+LrFJGiuO84zM7OmG8sdzs4ysVPDI/vPPnwUEobJAQLZBQ
w8RHtF3JzH5oNk7JzypXQTR9t/dPz4/E/Jh+bEtcvOwgGFTbBcs+UMFOOb3f
dDaNgv2CS8NyCZoYld+d1rZ4BOrX0uL2tqoQ30uh+8Zi7U80iXsxZi2f5D5N
fD1oJ6XFGIQb7Eehm3r10F/7wIazw10QVtRAu62tjs/v9hsc6Zr1j9vFoqwI
Dczty5BOhD6wWDauK3NGGznOxusY+oNAf/TMxeerJiafvn1FSKQdPvgknwgw
+t/8eMxI/J3fWT2MmwhgaFt3A7MybL15oi4eznFcTzk2ANdTuoLqZ/TQat+L
DercLpjen2i6qWIXCgzedmmpnf19vpt5zOSCATqk8VMa3vWA391NgyXChqje
eedxoNkwnDhYWXl/tQE6yy2Ju68yAoKfSyqd5hkQ+620ELwlbWuAuyj0tuqM
IThYKStbMmaEgb16U0oiTJho3PfYXA7xAmebbUt6H4j9/Pr78FpDxAk/uEYf
Arv6fo2xK4bo1Wio7XxiCFK61okZahvgkThKa/z6Hmgany76dtwI572MlGgN
Y0J1v4nZeYoNeohrS7B42sHjZNBb7pg1ilReM2K9ZUPC+BuroLjdWJ2/mcZj
xIEKWHBfZbsJ7jlwky/RkgkaO8rGJNYaYXjR5xhlDyYo3eBb6xtihr80TAs4
JrYCr/+zcos9Fnjn6o6Qq40MeCt0dDDyuSVW7wtQnZ/NgBgvcc6CWwZ4K1cv
ILK7A1Yeu73Y4YkJmneH3JIbZoJ52ro2Rf/deFbytf6CjDbIWy9k6+dshvkz
+R9WtA3Aqezqo/q2RtgyP5TrrdYOdc6/iikXGqFip46jwgUmMa/X32WOPLzI
gvg0O+fzImbofs4vpsSvDcI7rkQ+ZpuiwkaruC/1bEj2zmxOCDTD6KpEt3fd
s/NXmM2IkLIZStUttmdea4Pxksml98rN8Gn46KOw2xxwkVuekvTYAuPlC/u2
8TOg4inejQ2ZnWenSl+fc2uHTX/xqKeE2WBY64icdA8HxPweLBcRtcOlP/Pd
SOIyweCQ0pn3j4yw41T5/ciGVojoe6mUXLsHBYf+DA/Ob4WkKzyeURRrdD19
RfiCKANGymx4zpSZ4hqvsXipphaY8K87kxRpja/Lz18vVWaAxJAETVTaDBfJ
GFeUb2iFSL0vWxlLrFBT5Gldw4NWUH9qPJ0WY4UHVh/nQxMWWK7y8AlLtEJv
ruLtTQlMcDcJ5HgetsH0c7/93izFAs0ZqcC8mzbIOLzms/N3Bsg3m99u1XTA
x6bbI2S8u8Hot8s8Q/wOGNfScYzn+BDYBlJ2iEU74BqzA6LVmRzYp3Hs15ex
FAw3LPvF4Pow0ECoXPO6GerpM+oiK1pAokDz8zk+M7zqNzqf5dgCKxQa7J80
WOLX3G93nU+2QPbGhKx7aINn1R6V62a2wh2rumbph7YY4nYxZtdNFhT8HhF/
Tc8Ki4oMRWGmBZLKW9t6jthhzrZyoeEoFgQb5QTG5dmj5xFZaLJmQ701x7C+
xgZFr7Hlbxkw4W77/qhXpnYo+M3UsmprB8z/Vfe7pYAdWi92MhdwZYPq8+uS
sivtkRWevfJLBRvGtb2Vo2LtcGztZKbLxw5Q4dYKN321Q2ZwbUTN5kGYTmNY
8Dy2x23CUeqaIWzIbhJMtVzniFMevtoOdRz4PCQ+uP8cBR2vv5Tmv9UFEZeP
e4UcpKCt+vXvEqYfIXfdTZk2DRd0nXI6fDBwBM6LdwqEzJ4nXPiXWQTLc2GB
/4FDhaussHdd1aIW1Raw248FM/ttUCM2L+erWitUdUyrbrGxQ+OeqqTPI23E
eWPE862K8iEOTPHnONyzdMJ3rqllCaeGYDLKefHQGTuk520/mRrTBhecprMy
Tjrh+pj26I3xQ5Ccdk5hj6QD0jZ8mv7LrxNYHxIt/WUccVdz/rDfMAeuHFql
4WblhD89vTIZeasHaKfQ6GaEExqXbtoXbjIMq1OjBSdWUDBuubSegfAwPHLn
lq1Pp6BUqfbl5fwfifn9skemnHR2L+jl3DgQx6VgJS3+0IWpYWj6Kk+hjLni
oHS7JFWRC9EMnUePOK44dPsPNadtXKjRMMtdmWuDQQXbdQKbW8Bi4Yr66C2O
qLVtcv5ynkHI8UjJLSy2RU7UvU+9Vq1g6WjsezLBAV9FN/bxDXVAiYVUxUyL
I3Y2pwYFy3XCALXMxvgYBUd3b6kOgC54pVfl/oDjjGcOv7qxc00fsNTvv3cL
8sQPg35RZUcZYO46dVJh1BUTtPZQFipwQYT3VfjhcVeMurxk+1klLrj5y15p
b7TDXxxtH2R/b4X2pou3aIn2ODT6ZTh/fxu0Hryw7Q3dCXOTrGyXC7yHx1oH
hU7O9jvhnuPhqdl+RzVKFXtcpGDpF8viTPkuuKM92tRVQUF3I96CidVdsOJS
uaPtNxcceFFyNOVrP8RsEc2ut3bHkAqGsWFIP5g8iD9XGuaFWUKqRdWlA1C6
z/a8qQYVt4pkUdM/MyEliar9bZavmkxtmZAyFyRPHtQKVXFEPrcLtjEF7TAZ
KT7vtpAzqoakyLFdu2FF2cbe0joXpFxVSFV60QPs0F/+Co10xIoZz29dTe0A
vs9Fws1dcTm1ynrN1j7Ill/kWMHvga0KvKMZif3wJmHLkweazpi/Yvhtk0of
PDy0+6zzkDtq9CVr7TTth2cCt/gyhTwwTFol7pl+P4hp3s8KSPZAxZWLZvac
YkB5M5o16nuh0FTsOe7sfp5LxGbRFntjxuvvfq8bWZDSXRR1ctwba1L9tiVa
ciDwlM2qJZ1uqLyGLa7t0Q+W1/7YPnnQFe9ebygMbu0B951Hfs8M8EKJbS92
K50dgGZqImX/PTfcIZ1d4Zn7ARwnlASTA9zRX5ilGOP2AZIPsZfdEfXCZN20
tJ7kASiZMX9w9AkVPdIyop4osWDR6MPCDyFU3Cf8PKz2CxMYDyOXrTnkiQ8H
gofyTw9AhAg7dVe0F3ZWbeILoLRA7rlFSzyueaFpbNqB4JMs2JUEJ0KfUtHa
5E5/riILBD2e2OfqeiDL2FEjlt1PnN8W8ggywkqYUJ5XLUUV9kF1g1KL9ggO
yFBuTGy67YN7tif5CDwbhGi1308rzPfByfumHy84csCTunfEI+F/58+cyvQ9
q/NcUTRf2bTxrx5Y2mT14qGDF0oaS3e6KTUDT9Bu3cl0b6xTZHOq1nFAiV/k
6o7Z85j6ifCWwuZmeNjyWl7B2BsbC+oXU5dxYMeie83zvnqj0osJyYnI2fpf
jpJ8ZEHDytJV/Ceah8Cy/LHiRg0amkUKbM+5PQSlyVn9dTGBmCHQ21tjzoTF
DOPD58KoKCLgUn1g9vsX9H2vhVswFblrPWqPv2iDlhc3SsToVJQ8yB/39gUL
NvBJjCaL0ZD3RZ2NTvEQaKTvrQm18cHGMfWXsewu4rznuyJ2leG3TuI+RV5I
p71zCHw2HLzPnh+M7zSm/nBksuDVn6vTRkK90Pn3Pc6yWc0w8byzPi/VGz+/
/w5vH7aDhMb576L+3qgT/2aL981O8FnMXDIV6o2LTB15P41x4P4WU1/FJC/8
kh+ZtyKxGT7ycGV1DGn4yeBuW1BkL0wFF1cck6Jh69J42bLNw7AripcdKuGL
88scLkH2e+J81834SKXLfYC+UbsyJQUqJo+Z3H+SPft9E1kl4xXtScyrCrvF
7SerfLAl9VeO7FQn5PFcWqdv4oOHwlcMCXzphDLNgvWVpVTkZH677OjfCg+8
1RYNzdbL/Z2Y/O2sTmAYh2RuiPPFLy7G/Ea6/bBUSz/PXd8Xn3zcr/fl1nvY
Sbdvr3nohy1iBaMCyf0w8fSVEb85HXsyFl6pMemDNXc1/8wR9Ua6/WSky6o2
cPj0V4bmfhqGFLql+Du/hwMv2s0fxtLwp71P80d/7oGAsc6xhgFvlJB+uUTY
qx0uCe+WlgVf7Mue5xUm9x70dfKKrHb7YcpTvVrt4H4IUOWTP3vGDw2Kt1+2
6eqHYd7uJ12V/lhh0O7Ke+ED7C1+3io9GoD5MQrj27Yz4FLdUp+flvlgraz0
5jWF7aCp+lP8zG1fHBZ7p7+I2Qttv0+/t99Jx3U5CbsrNvXDK7qp/JsjdNTV
tde1eNkLsb0rf04o8kf6nm1L8jM/gH2haedRV398dkxmUdj2D3BDcUR76cZA
bA6+6MnaywAZ+Ynii4IBaGP5cx3NbwCOFvLzyvHTUfBU/cwXnT5I1Qk2inTy
wzPJL/1uyPXDMeVzwk28vsh16HnTXNEL7mexVmJ/ABYub3EVnZ2HtwyzKmjZ
wai0NG7aJYcNbyr5Nq3QDsLQ9FdHnZlM+O0niqppPB0bFmyiGbX3An8aZa9y
LB2bFpy44NXUS/x/Ap6PW5YZz85HuwOucRftxdqFazTu6HHg/wAUGBBl
        "], {{
          {RGBColor[0.293416, 0.0574044, 0.529412], EdgeForm[None], 
           GraphicsGroupBox[{
             PolygonBox[{{167, 1, 165}, {160, 1, 157}, {162, 1, 160}, {165, 1,
               162}, {159, 2, 153}, {157, 1, 155}}], 
             PolygonBox[{{153, 2, 1, 151}, {155, 1, 2, 159}}]}]}, 
          {RGBColor[
           0.46224382192576696`, 0.35095038784282434`, 0.7667199273263993], 
           EdgeForm[None], 
           GraphicsGroupBox[{PolygonBox[{{164, 5, 158}, {159, 3, 155}}], 
             PolygonBox[{{155, 3, 5, 157}, {158, 5, 3, 156}, {154, 153, 151, 
              152}, {166, 165, 162, 163}, {163, 162, 160, 161}, {168, 167, 
              165, 166}}], 
             PolygonBox[{{156, 3, 159, 153, 154}, {161, 160, 157, 5, 
              164}}]}]}, 
          {RGBColor[
           0.5827699069643073, 0.558011270373096, 0.9099307210585241], 
           EdgeForm[None], 
           GraphicsGroupBox[{
             PolygonBox[{{10, 7, 6}, {152, 10, 154}, {170, 11, 177}, {154, 10,
               156}, {164, 6, 161}, {177, 11, 171}, {10, 8, 7}, {156, 10, 
              158}}], PolygonBox[{{172, 8, 10, 174}, {174, 10, 11, 170}, {158,
               10, 6, 164}, {171, 11, 10, 173}, {163, 7, 8, 166}, {161, 6, 7, 
              163}}], PolygonBox[{{169, 168, 166, 8, 172}}]}]}, 
          {RGBColor[
           0.6764015812586955, 0.7084513176736931, 0.9120652348429379], 
           EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJwtkt0uA1EUhc/hyrUn8BCewTWuSEhUiN+WUj+DkmmNMuqvzDugSkQaFxoe
zbez18WXtaaz9j579ulYqTJVHgohjMMwXMM5dOADRuEXfuQHcBRDaKFNdB0S
/CQ6Ib+E7kKKX0Qf0TsoYIfnC/QMXYUcn6AzUMeXo2fbys/xnKEbpspb3UDz
2IwLOnca/UJH4BP68vbbt3xf78y/6wz71ifVWx/7juPoe2igPeW78KZzX1V3
q9quMs9QpaaJpuiJ5t+Mvker/YMX5Xvq01KvCrlTdD76Di7hHkra5z56FTyT
6X2hTK5ZrM8WuRu0ji6rpoauac+z0XNN1dWU2Yt+l4n2uq0+1m8FGvgD2w08
2BzR7zjVjG3NYjPl0ec5jH6enWv3XOh/1tFeMt3zP4YYT3U=
              "]], PolygonBox[CompressedData["
1:eJwtkbtOAmEQRmcIDYkdrQ2vZEVljAnEELIENYpyU5bLiosaQR4CCmJoeTjO
l9niZE92Z/5/vtnabecqKZnZJZThyc2WPL9ggefwi//BJ/7ihcMcH3nUqmaG
H3hW4AKOMC76F/CAf8APvtEdeAZr9cIAf4dvPIO+xww6P4U7PPWozaGuWXUm
voIbjzt1dxVOcM27sUWmpkeNajWDZnmGibLAEG/AKz6CFt72+KYzOqqFqcWM
mjXxqNUZj+r12I1q7vH/Yh7tZKf3HtmUWdlXsLXIoCz7Ynb1qPfNY3faof6F
Miu7etTb89iNdtTFz4N9ONc=
              "]]}]}, 
          {RGBColor[
           0.7692787278856549, 0.8492148401148836, 0.9110528238644725], 
           EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJwtk9trz3EYx7+P38UuUEtTLmaMHHLMMHMaciiHlRaljDTG0rYf22x+GD/H
mdO/4kKuSBlu5WYlKaVWJLtxYeTC693zvnj1fj6n5/N5Dp/GznJ734yiKE5A
CfqhF85BaxTFaXR15LzmhuEA40F0C9oSebYZfYbOhqdQMG7TGP2OroHP8B6W
wDsj+6OR/QmeQx28gtcwH17AX9gHH+AXHIEF+G/wXbpzTuS81v8oBpiChcwf
l1+0Bo5ir0BnRfqsR78oDvgJ4zAX3mrNtt500/m57HfV+93rOd+BzkPvRubp
OrrB9+r+ZudqM7obzmBvRQ9CGXstWutYlqIDzvsN9CJc071oyXu0d5njVdz7
oQt7W2ReNL8OPW//XZExK/aV6CboxF6EvnTtVMNTjCvoA3QnnFT9vFdnFc9h
xn3orsg+UD8s9p7uInNR59iXo0/sc8w50FmdOeb52+hDqGI/QruhB3s0svbK
9RuYGVnTf/DD9ZqGQ8yfRdsiz8tPNbL2rT731fsnVMfIWt6KrLfmtb4x8v07
0L3KHfaeyJ5Tn0zCY79Zbx+zrZxN2M9v567ivdOeV3/dYzyCViL/hupYcp2r
7i29a8D2IGuXlC/nQz2gf6i/pD/1Dfoj+/EK2g4XsLejja51jeOQH/XHKseo
WEftdwi9H3nvHfSq86M8jWiMPey39/qtZcZDaI9602flY9K50t9qck+o1/4D
fZR0FA==
              "]], PolygonBox[CompressedData["
1:eJwtk9tKVlEURteUbiUvDLqwQEUN0qCSUDyUJkKhlqZJVIa/5/78PaSmpaWm
3fQwitiRMtPugh6gJzB6AEm8aHzMeTHYg7X2mmuutb9dnJnoyuWllOrhBPRY
Si94ZqEDb4dhfA4e4KUwg49BK94Ak8nXaO0cPMGnYBZvgcf4ENzAX8E0/gzW
8U2eBXASvsJL87kRmMT7YTD268TvRn3N38I/x/pCeKdzmO81C93ma7RWPWfx
ZZG8h6d4r3mvqqnarfG+9ryON0EOH4BG8x7Vaz58geaYfwg1+EXoxu9DNb7L
syj6+wY/4FSM/YQDuABX4C/swxkog1/xTlGMfZerR57tcBYvN3ftWYEfRq1G
+AfH4VpzBAu8s5T8Dt7itea9635u4q9hQXcDi/jv6EU9/oEq87vIxdlLIKNs
wGX8DvTF/enb1cX309g1fM289ooyg58zv6seKDbPnLKnzLXh583ntMclfCfu
Une4B1cZG41+buvbwXjyM77R2SK/qjmubEW+ldmM+Vg28rukbJlnXWu09jnM
J6+p2jnzbCnT9/BHOq/2gBHzzCqbi/oH8K3IizK6DavmZ1fNafNMFMa8/oVP
8BHewwc4bX63OmMlvhHZU03VnjffS/kdxf8DDn1iXg==
              "]], 
             PolygonBox[{{340, 117, 372, 355, 356}, {356, 355, 354, 112, 
              338}, {302, 94, 339, 327, 328}, {359, 358, 373, 113, 343}, {348,
               118, 367, 350, 351}, {183, 182, 180, 16, 186}, {303, 111, 362, 
              346, 347}, {347, 346, 345, 106, 325}, {328, 327, 357, 111, 
              331}}]}]}, 
          {RGBColor[
           0.8533663262836924, 0.8772558135872248, 0.8733816551357922], 
           EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJwtktkrhVEUR79DlCehDNEVCmUeHszDdc3zPJYh5Y2/TsqDMhSZHlBCKaWM
L5Rktn6d/bBa+557vn323udkLawMLUcFQRCBaJhxQTCPe/ETzoN7uIASuIZ9
Wz+FK8iHG3iEMniGT4u/oYpcgziMP3ApvMOL/oNXuINq+IFfqIEY9i9ZPbO4
DYaIc3AfzBGP4j/cCF8wbvv1XTcME3fgkPN7MnCc8/2m40WYIh5xPpdy1uMe
i3VOv+Ucc555O2cLJ8JG4PvrgW6oVH3qH99av+cwEfh61INyK4/OPoQQHMEJ
ZMIZPEAuXMIxpME2rEICrMMBJMMOdHHeuOaIy1U3cQFOgg7ieJwFYd0ZnrTz
VVOCrSfbjIetnzx+t6sOXGhzSzW36Exocr63Wlzh/Fo2nrX8k3b3mlGR8/2F
rLcG52fW7Hw/6mvN7kw1FKseuyPdVafljTg/D80/RbVY3XojKbauubRan9N4
09Y0sz3bs2tvS3eht/+mWiDW+W/0bYnz70M11OEBvQO9OfwPVYNQAA==
              "]], PolygonBox[CompressedData["
1:eJwtk0kvQ1EUgN8VkSgRKlE11SzGqqlVQ9sgaItqkxo2hh/ArxMRicSQiIWY
BUvCgo1YiIXgO+5ZfDnfe333DPfe1q1vpjdyHMfph1xoMo6TIS5DN/5BDEEE
fiHMuyRxAeJ4BLJ4SnLgQRjD56AHz4EoPglFxiIehh/o5HmemIBR3KvrxyEf
b9bvJUcxXqH1M9rrBfEcnuEFjqAM3HAA21CizzvQaGwtySG5noiPcAO3cAhe
8MCu4tGc+3AKNeCDS8gjR4w4C9W429jZpOcW/IHYrGvuoJZ3U/p9n7F7ltJ5
O/BKY13eufBP4rTup4fnAZ1f9ixkbE3JJTlL8T2dVWbeglY9n4TOHtP5/88M
/yYGIAgFPF9J3+CHeyjXfuLQa2wP0ouckZyVS/vPaq0RWNX7k8YD2p/skQ+v
NzaXrJe78qW1pOYbXOveyp6dQZWxd0/uYCE+BIuSW3LgxzqvnNkJNBj7W1Lv
6rvOJjO+wrCxva3IvspsxvoSTOBdev+lRhSfgTXHzpTE23V+OZM23G/sWlmT
wAeN/W9IfTmrP640R4E=
              "]], PolygonBox[CompressedData["
1:eJwt0E1LAlEUxvFzpyLBwgoN3JSz0cGNtbLcaK1q20fwA9inLCjEdGEJvWlv
KuQbWWkR9D/MWfzmuTNz7+Gc65dPTyqeiGxiCRdIooYznGOKD2w7kQPyE+/Y
xQ/qaOANr1hh3x45wQNymOERbauptVvYQhVXSKOPO9wjRp0jMkXGkXDhea0z
QIBb7Z3vh6RPLiOCjv3XfU94hnP6EFnFPsuuzsy6QG64cEaddYQhonzLk2P8
SXhGzy5g0eh6DSX+edaj9hpYT+vkDbmDudXV+r8o6vzWk/Z2zbKJb9v/Yveg
99FDBpcSzqdzZnHM+xf+AVJFOQw=
              "]]}]}, 
          {RGBColor[0.941176, 0.906538, 0.834043], EdgeForm[None], 
           GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJxNkV8rhEEUxmdef8IFSWj3Tdn2dbF2L7TWFS73C/gIPgDfkojkTyStbERJ
7RJuxHqe5qdc/HrmnJnzzDkzle3drZ0shNASQ+JB1MSlKEQuqqJBXGd/mbjK
mYo4EmWxJ27YuxObYk1siKZYxa+FOj7D51iccs+LWIkhtKVL0kPpoujg9+ex
jrdz7+iIzs/GlJ+S/nB2UuvxmHoqxdSf+7wVPea6YgbPciA+/nl36OFEDJjn
jdj5C7EQU0+jMd3nezPpKz0/4mv/fXHN+52LeXr7FMPUfhM7P6ZcmTcppNPM
6Fkzzrvunv/pUuPauZje0bX2mGCdS2usnatT67d4RvsixvRXX2KGGT1rQa09
StzlOfrU9pgv542e+HP7/QLArTny
              "]], 
             PolygonBox[{{261, 53, 52, 254}, {230, 44, 43, 209}, {271, 60, 59,
               275}, {215, 42, 41, 228}, {283, 69, 61, 265}, {214, 41, 36, 
              227}, {262, 59, 53, 245}, {278, 61, 60, 273}, {236, 43, 42, 
              234}, {212, 32, 27, 210}, {253, 52, 51, 231}, {225, 36, 35, 
              219}, {211, 33, 32, 202}, {199, 26, 27, 200}, {242, 50, 44, 
              241}, {222, 35, 33, 217}, {205, 27, 26, 204}, {251, 51, 50, 
              255}}]}]}}, {{}, 
          TagBox[
           TooltipBox[
            {GrayLevel[0], Opacity[0.4], 
             LineBox[{200, 199, 201, 198, 204, 205, 210, 212, 207, 221, 202, 
              211, 217, 222, 224, 219, 225, 227, 214, 228, 215, 239, 240, 234,
               236, 209, 230, 241, 242, 255, 251, 257, 231, 253, 260, 258, 
              270, 254, 261, 244, 245, 262, 285, 275, 271, 277, 273, 278, 264,
               246, 279, 281, 265, 283, 266, 297, 292, 282, 293, 304}]},
            "0.04`"],
           Annotation[#, 0.04, "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            {GrayLevel[0], Opacity[0.4], LineBox[CompressedData["
1:eJwVzskrhAEYBvBPDg4oaQ4OwmeKyZplxjKYsWZso8lyoNTMlBt/nYRSljkp
uShJKaVM4uJgycHP4ddT73N43jC/n9urCIKgwBGHHHPAKedccsUZJ1xwTYk7
7inzwAuvfPHIG0/c8sk371Qb/ZU/3PBMjVsjTf8PUUsldbTRTj0f6mbZxyAt
RIgRUkUHnfQzRCsDNNBFnBSrTDJBN1MMk2CEBUaJMsc0SdL0MM8ivWwxywwZ
xlijSI5x1llhiWW22WGXTTbI8gfxSyuI
              "]]},
            "0.035`"],
           Annotation[#, 0.035, "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            {GrayLevel[0], Opacity[0.4], 
             LineBox[{192, 191, 176, 189, 188, 179, 175, 178, 180, 182, 184}],
              LineBox[{363, 337, 353, 339, 327, 357, 362, 346, 345, 366, 372, 
              355, 354, 375, 381, 365, 349, 364, 367, 350, 358, 373, 374, 391,
               360, 376, 369, 368, 382, 389, 383, 371, 384, 396, 395, 377, 
              390, 361, 378, 370, 386, 385, 379, 388, 392, 380, 387, 344, 397,
               394, 352, 393, 398}]},
            "0.03`"],
           Annotation[#, 0.03, "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            {GrayLevel[0], Opacity[0.4], 
             LineBox[{169, 172, 174, 170, 177, 171, 173}]},
            "0.025`"],
           Annotation[#, 0.025, "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            {GrayLevel[0], Opacity[0.4], 
             LineBox[{152, 154, 156, 158, 164, 161, 163, 166, 168}]},
            "0.02`"],
           Annotation[#, 0.02, "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            {GrayLevel[0], Opacity[0.4], 
             LineBox[{151, 153, 159, 155, 157, 160, 162, 165, 167}]},
            "0.015`"],
           Annotation[#, 0.015, "Tooltip"]& ], {}, {}}}],
       AspectRatio->1,
       Frame->True,
       FrameLabel->{None, None},
       Method->{},
       PlotLabel->FormBox["\"Centrifugal. m\[Psi]\"", TraditionalForm],
       PlotRange->{{0, 250}, {0, 1}},
       PlotRangeClipping->True,
       PlotRangePadding->{Automatic, Automatic}], {193.5, -193.5}, 
      ImageScaled[{0.5, 0.5}], {360., 360.}], InsetBox[
      GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJxlVgs4lGkbVmv7Sf3ItbUdNk2IRrQ5jaG8LyYZDMYhzAkzYxzDCJ0Uv1q6
ohZlqbRKkr+yDslpO25TSyGyybAOY2qMHDtsuznUryavq/d/r2uu7/qu+Z77
vp/nue9vhsCN8giar6SkJJ35fLwGvp3oKRsxhKafzhiYGuWFmj4hwqbGj2cY
eDI7rXxd1sNTJz+eQWD02/FWjUv6UPDpyMCxCxaPS+R6n+ulQOnT0YWKa9//
3Re/yTm9S0r4jCcGna5u5T2Tqz/XtwGFHmtMjxWmh4zpIWF6zDE9ZpgeM0zP
JkyPMdLTYLn5IuUVBenZ8nrhjzJtCtJzQKSzwe6dHdJT0Gp8Jv2WLdJjOFXM
To6EmB4bTM/c/eTnfmf16O6bVB7YTMLm44zNxwmbDxWbzzZsPlsxPRRMz9y9
Yj622HxskJ5pMSvtWCwd6WHH9RDgPXekR/9VBjUy3w3pqan45+vsEzSk55Wr
yEHMdcb0UDE9c/ePX+5P9mY5ID2Oma3G4Wx7bF9e2L68sH15YPuiY/tyx/S4
YvtxwvazDfFn56y8OxHli/hXCUlT6Xt9EL9cPdG0ae12xD9ADaxurvRC/N0t
Y8tyDT2/5E+iI369Yaq7pqsb4v/A1+virnLG/MHE/MHA/OGH+cMH84c31r8X
5gc65gdXxN8VkdEu3shBfDeKzO2kcSzEF2N1f8gjn4H44N796Xcv+GL9bkd8
s/ub5WPmXbcv2UFHfAq/BWB+88f8xsb8xsT688P8tR3zlyfio1XG+h6P4SK+
htXxxQn8QMSXmP1NxhAlAPEV6qjNG9PmID7B+HicKNcX4Sv6ZSJ+ixTZ8vU0
b8Sn6J+P+ZeL+TcQ828A1h8H8y8D868P4jMyOXeP3BSE+ESLHS8ZWfEQ/iFB
o9XipsAv8WEAws8YaWcVaLIRvma0xnjhBj+Er8hDMMJX+J+P+Z+H+SEQ878/
5n8mwl9U1mTSpx+K8Bem7BVFbRQgfAtrrb/WHuF/iX+bi/Bn/TSLP+xndX/N
IjbCV+QpDOEr8hOM5ScImz8fy08glh8Owh9QZ5RabgvG5huE6l/tpH9TOo+H
6p8RTFyb4wJQvSJPIdj8BFie+FieAlH9yWdnQ12Vw7D5BKP61BiRymqbIFTf
unQbOT2Ii+oV+QrH+g/F8iXA8sVD9c61Azr8OxFY/2GoftY/s/W31Fi6Tt58
VK/IWyTWfziqV+QvBNUr8haE6qePGvfsORCF6sujLo1NVoWi50uUhOoqWwXo
+cnPfvgyT8Hoe4sXzRTiaxu4xK6GcjhvFNys+16knE+EI9vK9FuZw6COeGdS
LZsI888+XP59wDCwrc9J2kkxhtz0tt8TqgfB7p2PiCUxRFh0aaVk6Oww8HU9
Ubw9fgOct/DnbzfsGALwg+butjIX6CGGQ3d6R0EyNf1i6jsiNLEp1RDpzuSX
xhWf2gKgeF34hJ3fCPDiplKCyBAWW36Y/vXlIHiW1LHW9LgpHPdvKCRV9YCl
vQIfXdns7/sYyJs6bz+RRoIOoW2+rA9PQULsksXJHiRY2ydvpFI6wL9H9miU
k22hzfKR4kWE5+CZHj+tpcUCOugWyW+4iIG+2nr+Q3NzeJ7QXeRJ6gIBnZqL
x/5rD9nWEQU8fQn4mrRPX+JiCQcqtNQFy54Arc0rx6nBdvB5skvAnd5+QDDW
0vaqcoEivrO5xlejIMWPbNYTR4OSgd9rlRcOAHmIwSS5Yeb/SXeB0K5FCnya
/sovN7SHdediWUvSJGBi+lrD2k1ktA/K8RcN768yoIhncVdzdBi8uTcutKx2
Qf0mDvK6/rxpD7OceGaGvZ3gn91pMpUrrvDMK5BZ804KDpkuaIhcsRUWOS19
PTDYDuIbH9aV59Cg9Llx1qiFDOincPZrZdJg6+RympWXDEh+JYgKIumQu5de
WWMpBv0Fwv8YxLrBpsMtf4gf9IPQxJBlWXQ69Kptm7pwWgz2XNEz0DNwQHrD
r1VkMVTcod25yguOHb2glrOw0CLEDdbUW8Y8MnkG1OOruPsJ7jAz95hL8Jo+
ELd+l27lNAP1o5Zx0OpqCQOO0VpjI/cOA8DNWjU403+nf8VGYYcc9Dd6eGUa
0KH2+JmkCEEH+MXJamutkA4f6LyvH1rQDiLVvoved4oJ48cTPaIuSwGbU+nD
/JEOE55Ssy//6wn6f+FOjHuXLRoCyg6wb/55Jvz5RpLpKFsCEvtDNkOCP1Qr
CH4QfbATHFgVnWD8lAHVSKosFcowSCUtkCX+Ofd7Lm4UqoYLmTB26YmT909K
wJp7f4fl3eLAoV33NK4e6QG/+AdlvuUwYa7Rzcsll/vBtc6c0uYrLHilPiLN
87YUnOEVPQj8KQRWLeLqHCmXgpNZ8hVO3mzobKx97EB8H6ClvCbkZLBhKpFW
qarfCRy11J0NqznQOldyMM1EDDo828zearChg/DiT4mtHeD2AvJX+y9yoPyH
xdXvE56Cqoo9W94Q/eHRx9a5V7vbwTKVEgGjLASusE2/YTEpBd73paL7M/wv
fWKuT/CkoOL0e3mUw9z72ehU5YrUvBBIti6Zv3WJFKSqqv6Q5x0Km43lxdLm
F8DNlVSsVx0GtdXeCMjhQ6CypL6cdykEulGEi8xVpYCXG9lm1BsBLUsLu3I6
ZWAqLYvvOPO+v76On3z0bT8Y29J++tGmMPjcoKW25rc+QK6rkKe1RsBelsz+
6TU52B1s0aMXvQN2k6gbY7ol4JBk8O8TLaGw1Ld3V1B7NzDJ0dJcJ557/x72
1TkV3bAD3lFq+k6nqw/8Dwi2CNk=
        "], {{
          {RGBColor[0.293416, 0.0574044, 0.529412], EdgeForm[None], 
           GraphicsGroupBox[{
             PolygonBox[{{221, 126, 216}, {214, 126, 206}, {226, 142, 220}, {
              213, 126, 219}, {216, 126, 214}, {218, 130, 222}, {217, 130, 
              218}, {206, 126, 213}, {225, 130, 217}, {222, 130, 225}, {224, 
              142, 226}, {219, 126, 221}}], 
             PolygonBox[{{220, 142, 146, 223}, {227, 146, 142, 224}}]}]}, 
          {RGBColor[
           0.4494621888464721, 0.32872657978969505`, 0.7487537958008281], 
           EdgeForm[None], 
           GraphicsGroupBox[{
             PolygonBox[{{104, 111, 127}, {143, 138, 134}, {138, 143, 149}, {
              137, 119, 99}, {211, 95, 208}, {133, 120, 129}, {140, 122, 
              150}, {133, 124, 113}, {127, 136, 148}, {147, 110, 135}, {136, 
              111, 148}, {223, 116, 220}, {150, 147, 144}, {197, 63, 192}, {
              123, 145, 98}, {129, 114, 125}, {192, 63, 191}, {84, 62, 77}, {
              140, 150, 144}, {224, 149, 227}, {149, 139, 147}, {150, 127, 
              148}, {104, 127, 122}, {134, 149, 143}, {77, 70, 78}, {129, 120,
               107}, {70, 71, 79}, {127, 150, 122}, {137, 141, 128}, {91, 112,
               105}, {79, 95, 70}, {191, 63, 176}, {80, 62, 63}, {62, 71, 
              70}, {70, 77, 62}, {144, 147, 135}, {118, 111, 98}, {137, 128, 
              119}, {105, 141, 145}, {133, 137, 124}, {98, 145, 118}, {105, 
              132, 123}, {136, 127, 111}, {149, 134, 116}, {145, 132, 105}, {
              116, 139, 149}, {140, 144, 131}, {148, 118, 145}, {140, 131, 
              117}, {84, 77, 85}, {149, 147, 150}, {86, 78, 101}, {91, 119, 
              128}, {104, 140, 117}, {70, 95, 87}, {205, 71, 198}, {120, 133, 
              84}, {125, 114, 77}, {118, 148, 111}, {99, 119, 91}, {125, 94, 
              101}, {120, 100, 107}, {99, 106, 137}, {101, 78, 108}, {114, 85,
               77}, {100, 84, 93}, {84, 133, 113}, {91, 141, 112}, {113, 124, 
              92}, {129, 107, 85}, {112, 141, 105}, {129, 85, 114}, {200, 63, 
              197}, {108, 125, 101}, {77, 78, 86}, {106, 92, 124}, {91, 128, 
              141}, {104, 98, 111}, {134, 138, 116}, {123, 132, 145}, {137, 
              106, 124}, {84, 85, 93}, {93, 85, 107}, {94, 125, 77}, {98, 91, 
              105}, {98, 105, 123}, {93, 107, 100}, {102, 79, 71}, {99, 91, 
              92}, {84, 100, 120}, {86, 101, 94}, {92, 106, 99}, {94, 77, 
              86}, {92, 91, 84}, {113, 92, 84}, {104, 122, 140}, {202, 80, 
              204}}], PolygonBox[{{176, 63, 62, 190}, {215, 125, 108, 212}, {
              222, 139, 116, 218}, {209, 87, 95, 211}, {195, 62, 80, 202}, {
              203, 70, 87, 209}, {198, 71, 62, 195}, {220, 116, 138, 226}, {
              199, 78, 70, 203}, {207, 79, 102, 210}, {226, 138, 149, 224}, {
              210, 102, 71, 205}, {218, 116, 110, 217}, {208, 95, 79, 207}, {
              206, 104, 117, 214}, {204, 80, 63, 200}, {219, 135, 110, 213}, {
              216, 131, 144, 221}, {213, 110, 104, 206}, {214, 117, 131, 
              216}, {217, 110, 147, 225}, {225, 147, 139, 222}, {221, 144, 
              135, 219}, {212, 108, 78, 199}}]}]}, 
          {RGBColor[
           0.5911330475618484, 0.5714485102447215, 0.910121374905323], 
           EdgeForm[None], 
           GraphicsGroupBox[{
             PolygonBox[{{74, 55, 56}, {82, 74, 56}, {46, 90, 66}, {83, 75, 
              67}, {195, 89, 198}, {103, 81, 88}, {209, 121, 203}, {90, 75, 
              83}, {81, 64, 54}, {82, 66, 90}, {203, 121, 199}, {68, 83, 
              48}, {97, 82, 90}, {212, 121, 215}, {81, 73, 88}, {55, 97, 
              65}, {74, 82, 97}, {72, 64, 103}, {54, 88, 73}, {58, 48, 83}, {
              57, 47, 75}, {82, 56, 66}, {184, 39, 188}, {200, 109, 204}, {74,
               97, 55}, {189, 50, 187}, {54, 73, 81}, {65, 97, 88}, {88, 54, 
              65}, {75, 90, 57}, {103, 64, 81}, {67, 47, 83}, {103, 88, 97}, {
              55, 65, 54}, {207, 115, 208}, {109, 96, 103}, {96, 72, 103}, {
              83, 47, 58}, {211, 121, 209}, {202, 89, 195}, {55, 54, 46}, {
              205, 115, 210}, {47, 57, 46}, {49, 37, 59}, {46, 56, 55}, {193, 
              50, 189}, {56, 46, 66}, {67, 75, 47}, {181, 40, 182}, {89, 109, 
              115}, {199, 121, 212}, {46, 57, 90}, {188, 39, 179}, {50, 38, 
              39}, {48, 49, 68}, {210, 115, 207}, {49, 48, 37}, {190, 54, 
              176}, {46, 37, 47}, {48, 47, 37}, {68, 49, 59}, {58, 47, 48}, {
              182, 40, 172}}], 
             PolygonBox[{{208, 115, 121, 211}, {192, 72, 96, 197}, {187, 50, 
              39, 184}, {176, 54, 64, 191}, {198, 89, 115, 205}, {201, 83, 68,
               196}, {194, 59, 37, 183}, {204, 109, 89, 202}, {171, 39, 38, 
              157}, {185, 38, 50, 193}, {196, 68, 59, 194}, {157, 38, 37, 
              177}, {172, 40, 39, 171}, {179, 39, 40, 181}, {197, 96, 109, 
              200}, {191, 64, 72, 192}, {183, 37, 38, 185}}]}]}, 
          {RGBColor[
           0.7025253203332807, 0.7504248973588384, 0.9126607756316224], 
           EdgeForm[None], 
           GraphicsGroupBox[{
             PolygonBox[{{51, 61, 69}, {181, 51, 179}, {41, 28, 29}, {171, 28,
               172}, {53, 31, 44}, {157, 28, 171}, {42, 31, 53}, {29, 52, 
              61}, {30, 29, 19}, {61, 41, 29}, {30, 42, 52}, {52, 29, 30}, {
              19, 20, 33}, {185, 76, 183}, {30, 31, 42}, {31, 30, 19}, {165, 
              22, 160}, {33, 44, 32}, {32, 31, 19}, {184, 60, 187}, {52, 42, 
              61}, {174, 21, 170}, {183, 76, 194}, {61, 28, 41}, {44, 31, 
              32}, {33, 32, 19}, {194, 76, 196}, {28, 19, 29}, {173, 22, 
              165}, {177, 28, 157}, {193, 76, 185}, {42, 53, 61}, {196, 76, 
              201}}], PolygonBox[{{189, 69, 76, 193}, {178, 33, 20, 168}, {
              180, 44, 33, 178}, {160, 22, 21, 159}, {159, 21, 20, 151}, {168,
               20, 21, 174}, {170, 21, 22, 173}, {172, 28, 61, 182}, {188, 69,
               60, 184}, {179, 51, 69, 188}, {182, 61, 51, 181}, {187, 60, 69,
               189}, {186, 53, 44, 180}, {151, 20, 19, 162}}]}]}, 
          {RGBColor[0.80868984148385, 0.8623573963535716, 0.8933966802900658],
            EdgeForm[None], 
           GraphicsGroupBox[{
             PolygonBox[{{23, 24, 36}, {174, 45, 168}, {11, 26, 10}, {45, 35, 
              36}, {159, 10, 160}, {24, 23, 10}, {26, 24, 10}, {151, 10, 
              159}, {168, 45, 178}, {167, 15, 161}, {173, 35, 170}, {15, 14, 
              1}, {158, 2, 152}, {162, 10, 151}, {154, 1, 156}, {152, 2, 
              153}, {178, 45, 180}, {13, 12, 1}, {23, 36, 35}, {12, 11, 1}, {
              10, 1, 11}, {12, 26, 11}, {14, 13, 1}, {36, 24, 26}, {180, 45, 
              186}}], PolygonBox[{{165, 23, 35, 173}, {164, 13, 14, 166}, {
              175, 36, 26, 169}, {170, 35, 45, 174}, {161, 15, 1, 154}, {166, 
              14, 15, 167}, {169, 26, 12, 163}, {163, 12, 13, 164}, {153, 2, 
              1, 155}, {156, 1, 2, 158}, {160, 10, 23, 165}}]}]}, 
          {RGBColor[
           0.9411759999999999, 0.9065379999999998, 0.8340430000000001], 
           EdgeForm[None], 
           GraphicsGroupBox[{
             PolygonBox[{{18, 8, 9}, {155, 9, 153}, {158, 18, 156}, {166, 27, 
              164}, {167, 27, 166}, {154, 17, 161}, {9, 6, 5}, {164, 27, 
              163}, {9, 8, 6}, {18, 4, 5}, {9, 4, 3}, {18, 6, 8}, {169, 27, 
              175}, {163, 27, 169}, {27, 17, 18}, {9, 5, 4}, {18, 3, 4}, {18, 
              5, 6}}], 
             PolygonBox[{{161, 17, 27, 167}, {156, 18, 17, 154}, {153, 9, 3, 
              152}, {152, 3, 18, 158}}]}]}}, {{}, 
          TagBox[
           TooltipBox[
            {GrayLevel[0], Opacity[0.4], 
             LineBox[{155, 153, 152, 158, 156, 154, 161, 167, 166, 164, 163, 
              169, 175}]},
            "0.9`"],
           Annotation[#, 0.9, "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            {GrayLevel[0], Opacity[0.4], 
             LineBox[{162, 151, 159, 160, 165, 173, 170, 174, 168, 178, 180, 
              186}]},
            "0.8`"],
           Annotation[#, 0.8, "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            {GrayLevel[0], Opacity[0.4], 
             LineBox[{177, 157, 171, 172, 182, 181, 179, 188, 184, 187, 189, 
              193, 185, 183, 194, 196, 201}]},
            "0.7`"],
           Annotation[#, 0.7, "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            {GrayLevel[0], Opacity[0.4], 
             LineBox[{190, 176, 191, 192, 197, 200, 204, 202, 195, 198, 205, 
              210, 207, 208, 211, 209, 203, 199, 212, 215}]},
            "0.6`"],
           Annotation[#, 0.6, "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            {GrayLevel[0], Opacity[0.4], LineBox[{223, 220, 226, 224, 227}], 
             LineBox[{206, 213, 219, 221, 216, 214, 206}], 
             LineBox[{218, 217, 225, 222, 218}]},
            "0.5`"],
           Annotation[#, 0.5, "Tooltip"]& ], {}, {}}}],
       AspectRatio->1,
       Frame->True,
       FrameLabel->{None, None},
       Method->{},
       PlotLabel->FormBox["\"Centrifugal. mvy\"", TraditionalForm],
       PlotRange->{{0, 250}, {0, 1}},
       PlotRangeClipping->True,
       PlotRangePadding->{Automatic, Automatic}], {580.5, -193.5}, 
      ImageScaled[{0.5, 0.5}], {360., 360.}], InsetBox[
      GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJxlVglQU1cUjRaXaVFB69YGLYEIyCagQALkPSIIAQkiJCaELSFhCSiC4kIR
rKXaYlqxuGFFa0WlKBVtp6CiooAtQiyKQiEIiEjAIEHcJbRVo5fh9c1kMn/y
7znn3nvOzzeVJC2XjaVQKPWvP2++W7iBp9uG5mCnt6cBFT7Z+8P6e6Z4f96b
04wob4851n93/O/6u6PON4t76O/q7yHbK7k3jIoscMzb042CRS1MwVKrd3i9
SNcfHe90ez5W1r05fUj87FVbyUPrd/VapNdjR+hxIPQsJPQsJPQsIvS4EHoY
hB4moccN9Jh/PmSgdncBPUPv7h+th0XoGbm21hWGb1mFQc9PN+zyFZc8QU9G
lZkN+yUb9Hg8/nBH91wv0FPj6n7ca9CLmA+LmI8noceL0DNyrZ+PNzEfH2I+
HGI+fsR8/EGP784bdgnhi0HPzUebtvDClhB6OISeketBbtWSZok/6Ck782Lc
7l0BoMdiMIez6lAg6AlPbTPF1ctAz3Bz2Pbv1gYR+/Ih9uVH6OES+1lG7CeI
2M9yYj8hxH5CgP9fKV0lofoDP72Ps8yYGziaf3MQ8N+p187cZx0M/GqOuPT6
byHA3zMl00lJ4wM/NdlFp0hbAfy7935a+SpJQPiDS/gjiOg/hPADj/DDCsIP
QsIPoYQfRMAvOlC+uHhlEPC/n9fo/vnAj9M2KSqPCoA/hXlVs/xQKPBfOLaI
fS81DPhViTmNzfYRwK/3XzDhPz7Rr5Dwm4jwWzjht0jCb1HA57y1e7ZVAA/4
YgYGUqv2CYj+RMBXYPbRGO3cCODL3D09R+MVBXw1c9YVpkvFwBfw21pBbooE
+PR+XkH4OZToL4LwcxThZzHhZwnhZynwGa82GiiwEQJfzsPGsJ+Mw0fz4Sjg
y4qpY05SioGvapJvkS0zGvhsHQ9XM5QywNfnQ0TkI5KYn5jIRzSRDyng6/MQ
C/h9QubVzwzDAf/9/kbhV0gA39lt2lNathTwP9yaVpVkHwP4hiVKxw6LeMDX
5yuCyJeY2IeUyJeMyFcs4OvzJAf8LlNH7vXUKMAfXBM0/dSYaGL+MsBXTwk9
5eoTC/j6/ImJ/EmJ+cYQ+YuD+hszfBgKmQTqt6VUTZzDkhHzi4X6vK4f47kG
cqjX5zGayGMMMZ94Io8JUH/pozBzP54U6t/vd3T/cqj3P6s2k15OhHp9PmVE
PuOI/hOIfK6C+mJK8pSJ3jFQfzqpSDv0ezzUD39r17YxIwnu1+czlsinHO5n
j8ngMoYt4PckFX1BSjIdp+65+HF7axOyMfHeefIYDZc5TQzItG5FHmfOjS+R
07Cbwcsfsh6rED/Z1yGhmobT5Wpe2pJWlG9u5rDKlYYFj1ZecL+kQjn5ifcd
jWn4Y6XJgaz9KtRZkGG15Ykp7jTKsgzMVqHUTbZLXV5Y4nnbhnReR3uRjXDI
Az2zxu6Z7OA7uWqU4MtONrlvim9GtVKpChUyvl6arCu3xDX9t5TnC3tRU31j
bQ5egIPOzTrwYEMXKmd2UyhRVniekG6050ovyrbfG2CS5ozrvSY2sKi30FDc
+N76YmfotyNjt916M1v8vZr/Ah/tRvQrqwe4nU64pPEvBeVYO7x/ffDVtBfD
Z3vQn+0ezLTDLviItuDvYtlDtC5PTdske4+nRX3z848UX2TgPV7tkg++foA8
Ijpsv0x3w13VyxXZV9Xops9XpZIVHrigL03NuN2FgtXnDh/MQli6+Ykg8Mxd
tL3Ye57ZTIyHF6lD/Fe2o+fsxrYNOowLPzkwcGFBE1rXwVLcdfcE/dVpPYb/
TPDGtSVzK1kzteh56PGpl6dz8GTGOE9OeSeqaDIsXUjxxndbJqRk2WqRKuyb
iqRxvvjirbJdwtlqNMig16z7Z+T9bXzT4qV/POLgZnvq3PJfW1Ezz+9Ig6Ef
8GUm5uRfu8XBeYx625NPW9BGS3btIQoPX6m4ndJQo0GRYoeiU+Y8LBC2nDxy
sQ/ZCF5Ss0tG3j8OznJ96VATgg/OtqKwzvejbTyHX7wfhGC3V6w66uR+tCY5
faWG+vr/sXaasvZxDwo1PdsmqeZjF4PV5anbX+f3i7FuSns+LtKkDF9j96Dj
M9CiLis+jowvO35tXA/S7tC4fa3j4/qtv9TX7WhC2+9N0MU85+Nca4u/Pe1u
I4q/TmjYyId+zju731lTI8eKy6Ixf17ToEmb83DzrpHn3e+skg2SSjlON6YF
OA5pEDM38sTmrERs+UnxuS/jOhEFNbqW9ssxjxWXbjJVA8/LweT+itJlGhR9
fUdlQ9JI/vkXTteKKhLxTiwRntrWgRJOMGYtXJ2IZ5QZiNjSTuQw1aiu51ki
VvzsHEZf247+A8kQcho=
        "], {{
          {RGBColor[0.293416, 0.0574044, 0.529412], EdgeForm[None], 
           GraphicsGroupBox[{
             PolygonBox[{{157, 1, 156}, {161, 1, 158}, {154, 1, 153}, {156, 1,
               154}, {158, 1, 157}, {155, 2, 152}}], 
             PolygonBox[{{153, 1, 2, 155}, {152, 2, 1, 151}}]}]}, 
          {RGBColor[
           0.42012963197583075`, 0.2777251850886828, 0.7075233386714559], 
           EdgeForm[None], 
           GraphicsGroupBox[{
             PolygonBox[{{155, 3, 153}, {10, 6, 5}, {160, 10, 167}, {10, 7, 
              6}, {168, 11, 165}, {10, 5, 3}, {151, 10, 152}, {163, 11, 
              168}}], PolygonBox[{{165, 11, 10, 166}, {164, 7, 10, 160}, {167,
               10, 11, 163}, {162, 161, 158, 159}, {154, 5, 6, 156}, {152, 10,
               3, 155}, {153, 3, 5, 154}, {156, 6, 7, 157}}], 
             PolygonBox[{{159, 158, 157, 7, 164}}]}]}, 
          {RGBColor[
           0.5676302150605224, 0.533685998147793, 0.9095855827140062], 
           EdgeForm[None], 
           GraphicsGroupBox[{
             PolygonBox[{{174, 21, 175}, {15, 9, 14}, {171, 9, 170}, {20, 16, 
              19}, {14, 9, 12}, {169, 20, 173}, {19, 14, 12}, {177, 28, 
              178}, {19, 15, 14}, {19, 28, 20}, {163, 9, 167}, {19, 16, 15}, {
              176, 28, 177}, {16, 9, 15}, {28, 21, 20}, {160, 8, 164}, {164, 
              8, 159}, {166, 19, 165}}], 
             PolygonBox[{{167, 9, 8, 160}, {168, 12, 9, 163}, {165, 19, 12, 
              168}, {172, 16, 20, 169}, {175, 21, 28, 176}, {173, 20, 21, 
              174}, {170, 9, 16, 172}, {159, 8, 9, 162}}]}]}, 
          {RGBColor[0.6770858719462904, 0.709550782402749, 0.912080834562971],
            EdgeForm[None], 
           GraphicsGroupBox[{
             PolygonBox[{{30, 27, 26}, {24, 18, 23}, {30, 37, 38}, {46, 39, 
              33}, {181, 27, 179}, {38, 46, 33}, {24, 23, 29}, {29, 37, 25}, {
              174, 18, 173}, {25, 24, 29}, {25, 18, 24}, {27, 18, 26}, {26, 
              18, 25}, {30, 26, 37}, {176, 23, 175}, {37, 26, 25}, {38, 37, 
              46}, {33, 32, 38}, {32, 30, 38}, {169, 17, 172}, {184, 39, 
              186}, {180, 39, 184}, {183, 27, 181}, {27, 30, 32}, {172, 17, 
              170}, {32, 33, 27}}], 
             PolygonBox[{{179, 27, 33, 182}, {175, 23, 18, 174}, {186, 39, 46,
               185}, {173, 18, 17, 169}, {182, 33, 39, 180}, {178, 37, 29, 
              177}, {177, 29, 23, 176}, {170, 17, 18, 171}}]}]}, 
          {RGBColor[
           0.7841042777243026, 0.8541587659453078, 0.9044109908224172], 
           EdgeForm[None], 
           GraphicsGroupBox[{
             PolygonBox[{{70, 44, 49}, {34, 47, 35}, {52, 45, 51}, {185, 54, 
              186}, {44, 36, 43}, {42, 43, 36}, {180, 34, 182}, {42, 36, 
              54}, {54, 41, 35}, {45, 36, 44}, {36, 41, 54}, {35, 47, 54}, {
              36, 35, 41}, {55, 62, 49}, {57, 51, 77}, {55, 43, 62}, {45, 70, 
              56}, {51, 57, 52}, {63, 50, 56}, {50, 45, 56}, {57, 77, 52}, {
              43, 55, 49}, {71, 58, 52}, {70, 63, 56}, {51, 63, 77}, {45, 44, 
              70}, {62, 70, 49}, {54, 62, 48}, {194, 72, 193}, {52, 77, 64}, {
              84, 58, 71}, {78, 65, 84}, {77, 84, 71}, {64, 77, 71}, {188, 65,
               192}, {182, 34, 179}, {193, 72, 196}, {63, 51, 50}, {42, 48, 
              43}, {50, 51, 45}, {44, 43, 49}, {77, 63, 70}, {62, 43, 48}, {
              71, 52, 64}, {48, 42, 54}}], 
             PolygonBox[{{187, 84, 65, 188}, {186, 54, 47, 184}, {197, 78, 84,
               198}, {195, 78, 72, 194}, {189, 45, 52, 190}, {179, 34, 35, 
              181}, {184, 47, 34, 180}, {190, 52, 58, 191}, {191, 58, 84, 
              187}, {192, 65, 78, 195}, {181, 35, 36, 183}, {196, 72, 78, 
              197}}]}]}, 
          {RGBColor[
           0.8824028864799882, 0.8869387327061441, 0.8603733021884605], 
           EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJwNw81umgAAAGCzPckegpNyETgoJCgEFBAFRFDkRxHUgCKgRQsNNBJ8mW7t
sq47bFmzR1q/5PsiWYT0qVarpR8/f7ysIgnCuWajg8AIybYHMAy1cbD1FXiC
QHypiwxpSdOBkqxRDPlRf9WX6Rv3kwKbkNSmWuAv7s3p8dMOTJDYlO681r+T
CIaAcL0BgEDjCXiBYBBsNHnTYaxAV0V24tJT0+S72ohR5slowhIzeaRNUHMs
e0Nv5swVYdiXFVEYsQwh9zV3YhuqPxdmhLPwBWUtakwgrg+eRcasm4oHfacu
2FiiOFvdzDx5l6v25iqwiz5J9Iekv4ijlXG+hqciCizPT+b6cVecMswhnoFv
f+7/vgDPRz2P3SAytsUlWorpPqyy0za0z+Xdam+EGzU/Rdv0kOyOebY1Dusk
8eM01419Vq4uZnf8+/bexVAH61F4i2FJ2kS1wOWxLtXkaBQZTGFp0CaHXodG
BJEdd1FKwnsYX1Y3OzSqbB9eq/JS2NfzJr+WD3dlUd0e799v/6oiuz2U/wGQ
Z7NR
              "]], 
             PolygonBox[{{204, 150, 137, 203}, {207, 144, 150, 202}, {199, 
              140, 150, 204}, {193, 60, 59, 194}, {196, 91, 60, 193}, {200, 
              115, 133, 201}, {201, 133, 140, 199}, {192, 59, 53, 188}, {205, 
              137, 144, 207}}]}]}, 
          {RGBColor[
           0.9411759999999999, 0.9065379999999998, 0.8340430000000001], 
           EdgeForm[None], 
           GraphicsGroupBox[{
             PolygonBox[{{121, 145, 148}, {202, 141, 207}, {201, 121, 200}, {
              207, 141, 205}, {203, 121, 204}, {121, 141, 145}, {199, 121, 
              201}, {204, 121, 199}}], 
             PolygonBox[{{208, 148, 145, 206}, {205, 141, 121, 203}, {206, 
              145, 141, 202}}]}]}}, {{}, 
          TagBox[
           TooltipBox[
            {GrayLevel[0], Opacity[0.4], 
             LineBox[{200, 201, 199, 204, 203, 205, 207, 202, 206, 208}]},
            "0.6`"],
           Annotation[#, 0.6, "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            {GrayLevel[0], Opacity[0.4], 
             LineBox[{189, 190, 191, 187, 188, 192, 195, 194, 193, 196, 197, 
              198}]},
            "0.5`"],
           Annotation[#, 0.5, "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            {GrayLevel[0], Opacity[0.4], 
             LineBox[{183, 181, 179, 182, 180, 184, 186, 185}]},
            "0.4`"],
           Annotation[#, 0.4, "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            {GrayLevel[0], Opacity[0.4], 
             LineBox[{171, 170, 172, 169, 173, 174, 175, 176, 177, 178}]},
            "0.3`"],
           Annotation[#, 0.3, "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            {GrayLevel[0], Opacity[0.4], 
             LineBox[{162, 159, 164, 160, 167, 163, 168, 165, 166}]},
            "0.2`"],
           Annotation[#, 0.2, "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            {GrayLevel[0], Opacity[0.4], 
             LineBox[{151, 152, 155, 153, 154, 156, 157, 158, 161}]},
            "0.1`"],
           Annotation[#, 0.1, "Tooltip"]& ], {}, {}}}],
       AspectRatio->1,
       Frame->True,
       FrameLabel->{None, None},
       Method->{},
       PlotLabel->FormBox["\"Centrifugal. shift\"", TraditionalForm],
       PlotRange->{{0, 250}, {0, 1}},
       PlotRangeClipping->True,
       PlotRangePadding->{Automatic, Automatic}], {967.5, -193.5}, 
      ImageScaled[{0.5, 0.5}], {360., 360.}]}, {InsetBox[
      GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJx9eXc8l+/bPiWlREWkjIyslEJWcp4k25uysnnbW6UkGRWVSAMNpPERUqLs
ETIyQvbeW1Y7Jfw837fn/jx5Xs/v/sP7dbzu6zqO6zzP6zzu675xk92P2a6i
oqJSW/rzX78dJO1XPXMMKP6fqxGo/nMxI+W3D/5MWzuKN2/Hmur/uiZB16RD
9rgmHUbd/6/rGSR+uxvtNbh5GedA2FPJhuSxrct8Jcvj2ZbvV0LRei6qd6rs
y/x1QNHnJPRX4s6UF2vT8nai3X+ulmU97mW+9v+F/Up5RRR/8Syvt2s5Hj4i
nvTJ0ryRX3zL4/uX17trWW8QJre8zntdw788fwj2FIfXb0oSWNYfgXOOG+6/
8hNc5htbjk9omW98OT6R5fufQMfu/vtnTMLL/BNg9eN3T+rU7mU8A5M2wS1u
t3Yv808v51uYyDefzxzNqJzAivrsJeI59HX9jREuCWI8JX97V4yXIMZT9A8S
+hQ9WWK+6q36vc5m4ivmyxDzzU73cGMZrlif1Irx8sT4lXj3n0Szi25I5LtS
Wi5B6YsSsZ4n9XsfhBYqEPmmxKdE6K3ElHorEvmnxC+/Yj1KK+LXIPQo9T9C
rIeSD3WCn1J/FWI9lHqrEXqUfB1eoadG6M23m4aEeR4l9Cj50yH4v5BKldvJ
GoS+wJebam4PtQn+7NezayIjtAj9lfyU/KsQ+pR86hF6lHGkFftFb0X+jhF6
lProEOuh1OMoob9os6uTzK5B6EXe3VHy2/04ocd+QupP6DlDgv8/sgFHCf0x
Rn/xGh4DQq+7bob13m5dQm9UzSqrNl2P0KPUk0ToUepnsiI+vRV+ZbzCr4wI
vZXjKfU1JPQo+0GfWI9JTP7hZNej//qRy82WdlFzgv9N/AHFwdOmf/MHGPy9
//8HPin7buLYQ2NCD8/5hpY8Pb6i/kD4a8Nn34v6psqEv/69X0pW7JfK/4Up
+1OXWP9K3NB5t/LhRz3CXyl6BoSfUvarJRHvyvsUPQsi/gcZIlm3swxX+K/R
Cj/4vzFlv5sR+Um4G+vEdcGU8OM+gUwnS2ljwr8p+TAh8rcStx0mLZrFmi/z
j4Hk5RE2IS19In6tdM/j4SfJRHyVnGcSz9tYEfH4R269OaFk+Xf/BZisqO+/
OI53A/UMlzmhT+lPQ0KP0n82K/qPTOhR+s1qRb+b/633/8GU/rUk9Dd7bPoU
J2JE6O8Re1wmU2NL6Is71aesDbMh9Es3qibtkbX+Wx8tCf5Au2rZjTVWBD/F
D0wIfkr/2xP8lH63I/gp/W2zIp9WBD/FD6z/fR4byb7bSW9G8NOn1oj1CTgS
/Osvnyt1F7X7m6+ITPBJHmT6znPNhuD727+fLfuLOcFP8Q+nFf5vv6IeNgQ/
xS9sCf4hbjFS7WlLgm9iz++Hly+6EHw6Cy96XvE5EnyjjMYp0ir2xHxKvm0J
for/WK3wHzeCj+InTivyaUfMp/iLA8Ffz6IiE2pLJvjeP+ffuKfbneCLPNM7
+5XNZUU+7Qm++0OPHEk0Tv/H8+rZCn/IWdGPJcv+Y03oU/rddUV+HQk9ynxn
Qq9wgymfur4NMX8l7pzezCTJ6L5i/zoRfBo5o7w2b10IPoof2BLzKf3r9nc9
ApyJ+RQ/8CD4k6lOMK47Yvf387/IhRhP6X/7v+9TuRH3o74H/S6TcPj7Prr/
3d//A1P62ZEYf/Vj1PAlPqe/5/d5EOMp/elM3D/Tm1KnwOzy9/idJ4nxXpvl
5NtctqBHLK3ZmrpKOPQkmGtn+b/nSZvk5+MVjczIcj43i7q7AOyfxDuIk3di
YO06qSyuKmB38zK9aMyPfqLbK884NIDyYxEFGtFNuJA+79O56gPkznxROGjL
ikF1lVpr5kagK1nupVTNLlQO0tXfOtYI1aRE+sFmFuz6eVewTnsYxjelpZqK
MeCj81k1PH/q4NCaFrdZia04sopJ0cDzDdyJ2LlN5jg3Xng3Lfwq7B1c52+Z
/b5VEMM2NElIWddCUHZI++vGvUhKNH3Ys6MRuhI2t8rqsOE/HNd9Bm2G4fvr
q/lMt5mRtv2fLXWb38KXBwd8VJV3Yu01IX/awPdgncSkOGbAjxfpfnCd8m+A
b2m/pib7uLBXvFyhIrwGtGbik5o1+DFkd0+n3+MG6Or7do9GZDt65PsqqAsM
Qm8VuVqwbQduqqk5FRvdBS6suvP8TziRp4jncKVjHXyS+iF7RIofzw2fiBJo
bQBSfLNCURIH1keUXLj7Tz2cG7AL/7OFn8i/XfqTQPGduzDylM8WttxmyN23
kbn5Ng/G36wkPejtgQ2tZ6lsmrnRTqHXVk1yCLyMrWI9Knnw1iB1QQV0gYPC
LWoeb24UfumVJ1o1AjS31n/zVePG2E+rXqe4jEHp1o4JbnFunGib9yaHj8PA
q7cfSHu58V35dNyXkx9h3YSqPI25AI6Z5ncPRY6AwFrZSy8bBHGB1bGpamwY
LIVOnBmS5Mbv9YOeVwUmwOnMbfsMTwFcJTt4Qv7UGKT7iZUPawvhJN+H0uDT
I5BJltadsRLAiaOGx/X6huH6BcHAJxrcaLMjztDk7QTEzx/ID34ugGUkzUcd
dB9hyvVSBhffblQsFOV6fKcDODS90gaEeHDunzB3s4YpeC99+AjtTyH8tHZc
/EDADEy739FQ3rwfOZNDDVzcp6G4a28Z4zpJwu/WddTyubpwY4bCb0dBjUko
6816IbVKEMegVZn9zAQonWbjW5jnxlP3FmQvh02BJen9DqpLQpiiZXC/v3oa
3vG9u73Yyo2Z9GJGnzWnwABvkG9xCqFxSEn6Za5pkCrjC9GN4ib0oixI20J9
BAnce34u/FCcAFqPyEiEZA1Dk3jV1WmGrdivLTJhl5kFUePFj/2W8sHPdbKp
8UkpqOfsXAxiFEQTFpK4p1MNzF31M72+tL8rabeqrWdrhCOC8eys6oK41VX1
udXTYQj1fvjyUqg48qeXi+f6d4G4AhfprKkY/q5uYdR9OwOVMk91As2k0Wd2
pJrbYQbMOy7xZw799/vZDLBtXAD1/H3oXluSl6M/BJ1PH+Yr7Ac0962paF2d
DAHD7Iz5r0WR6XOg5cW2BniRWrBpnEcMAyRymUg3hmCieIpRskgLS2lrH2Q4
T0Pg58KFJ8GSeMM0V7n82hRMXyzpuTt7AGkZeFnKv47CP7tZfxq5AT72aith
i3oOiqQ7uXfuSaPGRMVO+6Ud7BpTn//5ijjueu7xSSO0BXjixld7IOCpYs1k
h/IpYKAzmAlUkcZTC/NFEyUdsMPzqvrGHgmif9q15U7qXgbMjWRgaN32HHoc
Hr3RWCuHY1VUtxc5SmHwAg2d0lVp3DcrnzqUWwfd3Xuj024trUf46g8Zr6X1
PBUkHUw8hDsKrpA7/MohwYWHuqTgIJZnZ/J+ZWyCjRLs6erNMuh/W4jF27IL
1q7/XEWrK48HrH1MuET6QdkW/AJjAEssaR5JSz2H/W+DXyRIAF59eaHJUqIM
ODiaOqqq5dGD50KRd009rPPmpJu2kcco17csJVTt8OzGaq6kffKocrOniSzZ
B2obcu/aPQWcbXhv7LeUrwKj+YechxA9N2Q0UBVXQGsyx7fgBMStt0zWviI1
w2dqedXvmxXQLcb0qZVcD6w3MI+xPK+AI40vuekiByGUTpjRHw9j4m7q4VyP
Lkg9+ee0xL3DuH0yai6utgfsrf6po4kFbB6Vc/NJT4JLMZZZyc6Aph5b0fVy
ETxs5Yg1kAEsjY+Oy7OogtwtnYGLtIAR0zdpgtgbQPCdnI8KByLZ5Hx9+cde
uFWSzK7cqYjnUjrl6LATJrWGPpqtVkZhnV8MVgalIDtz091V4QgaceSBPrkB
rt489O28vxI+vv3rp/f9DlDvUnqkBCp4WH7ilfTbRrhLvy1C6YEKyt8S45If
GQLJB++Hy/erY+8+uveujFOQSkrtSNTSQEOvkLzEpimIL3gaOkmjgrJ9Xke2
+o5B2e3m8/Xn1TDjZ/bNbY0l0FbZfb+iXg0PHt1c5ZvcDBNUI5mF/OqoyTT4
NCu7DxakphszfdRxwfeNXWrUCGx2//EpuU4dX4zdFXh2fhKq2WVHTFNUsVPl
Up7lxX44q9FqRr1PFbuSabV8105Aa3cqq+02ZTR2IZXtvTYI5mObNTM3qWF0
ucaW32wDcGPWt4k5GbC+RQJP3UiCt9k2Eb2ViGKs/TKSdgVw8PS1Aok3CujX
3+hoVFwO6ftTx4JTFTE12qTzvWAdfAmQfsh94zCacfhe5OdohftKdx6feAw4
Nu68PZT8HNTZYy9IjgNuaHwgbPH2HSz8akj13YZYq6+TsFG/EVqHW3Zayi3t
n+KjOc5qnZBS33FT0RJx391nw0Ox/cR5+rx5Xm4CVTGBTSzSks7tbiTwGUa6
s48NuglcZZHCM1T073m8Tco42KtlDLbKNMY6SajgJ86T1e+TG0Hl+f3Fr846
hB9tIFuXrq/SwNM6054enJNAlWi8wdFXA/Wkvhw8m9YIUcI+d6OzNLAyfXto
1MchmGFTv2KdqYnX33t2zK6aBqc09QThdnXMjJU5NZs7AdILovXloInmlvzJ
w75TxPs1f9GgymHmGgIXXVjnVmraTuD0W4wxaawDYDKY8SaOTQ3DYnj9Bc4X
gZHVSc53RUv13TDiUcBcD4a9e/1H7VXRQ02Wx3GiHfTNJnrXMapi4OHycTqr
pfx1JqBwpgqSyCcULaqH4ceknMCkpjKm/9EPWK9XBtrc7Mm6u5VxC1Wab9z3
RkjUnxPLo1PGWuqDeYcVuqEz/JkAf+4R/PnHnpwvWQxSIh92Rx1Xws1XNC/M
rK6FA0ps3j9qdYn8PX0c61Wvr4EixqFh2S79xPmdbg+3q1JHJ4GnRdnUjouM
gmxfzsuKVj0cYG663z48DV/sBIWub9DFQ3W79gUlj8B43c+Yazv0USuY9fGo
xzRcZFuXHeCtjfb+NBIVg8NQzSfiSdOtg00HanwPsH4Ew50GY/qeRzF2cGKB
fGEatu0Q9Uu6rIzRV6O99jx6Cyc7vWi+DCjjvvzXMyK7qoFBQiCEuUgDd8l2
19oO1AL/YM5D41BNZI5QyWaX74JDtzXTHx3XwqtHbipdChqCwbYb1y5GqKFo
5XhRUVEmiJ3rvUHFpI4n/O/ZOrOVwoUdopF+t9RRbXu+05mGaviQ7xf1h1ED
b3fMZBWVNcBTSxr63HBDtNhzOTvFYRyCuZ2StzKQMPOnwJVi1V44T+/ypnDH
Mby1sVPFMXQQPir4b5ex0sNP8VdtFzwG4VWxj+a4uCHK1JT99OSbhDC6qrXl
G/Xw9tXOB6WrJmDY/qRn5JQesrbut/W/Mg1dUUK1nC+OIlVbyuUq00Hg0zll
myetj8XSQp65pRNQEd5TbrFVDz/YSvdfCR+DUxLhizmKanhchWPTHp082DTq
Kdyzfwl3cOYpWVZB8n0D/VXcahhwldVLJrQR1DWlA/iX/KT1n4c3dcbawYH5
CiPG6aAby5xX1J5+sA9TE3zUpYHrTBZuWRi/hwPU0X4nRjXx6/Me55zoFljt
Odmk+EULzYULGA5f64WgB87yjv5HsVAp+U3KnV5Ib7f/2VlqiH6Lrw6S746C
yve9B8lLp6C0VMeekYQRyKVfq6hQqIcLAbEuVTJDcKYtpHxETBdb3j/wK6nq
h/25BZ+SGXSQnWzz1PZrC3zvys2kM9VBFTnGD+sy+2Hk3p1fi8IG2Hdu7lLi
u1HQirh+KVjPAK8ayPTrfq6A+n5n7VNKBnhP2Cv77GIbGIiq7zCTMMDZJsEi
3pIB6DgvOKrMZ4BPmFn4QmjHgY+HbHbriCF2814QnLvXBndadhaO/eAl3l+7
TNZ0tX6TILCl4uWPgiQNLFvTvc6qpQJeDIraNO3UwNDobj7pew1w16A+J8RZ
GxPHKsks+/LA9XRwQN1mbWTz5NFfR1cFhyMUVLZmk3D6l3v+qkONwJb2a6Ox
OQkbckikC6fbYab+VVMsDQnTvPf0LSb3wvxY1UmzTsCjn7+55DMkAfnlNx/G
7UrIUh4Z6ySaAb+HQ+fv2yCxvrPG9XvP/lTFP13GL9XYsoDN6fzsa7Iqxvix
hamEl0Ket0DxVI0KZoetOfLxfg1sPSw+Gtmlhs1pCg+MMtLAwWsiy3HJD8PS
f9eq1RdC6NmH9/23aOPeI4sqV3SW4uNky75epo1XTtoq3Ep7A0qvd/56s3qp
XpLa78W8auBQswRLBp8Oerd/P0da3wKSs6riL47o4Cir0s3VRt0gusNM5x87
HRTaXXmsS3cAmLYpuE0HaSPndQ6dbeWZ0G0m97vJSBt9WOZnVWhKIfEfqct5
e7TR1m6icvXTajg5LrblCbU2CnW61PQ+aSD8KZ6+dRdLczqBHWKPO8SZviWw
b2bZmzekCqB9caw1zEoHnwdx5JxhzIJWo0eSFWZHcU3GFakN9kt6a6cjqY2P
oURCwBYT5Rrwzjj4XdZAF9Oq8880b2mE0GNBk9Gq+qj6Zo/Pgmkz2Nudzkjb
pIN13j4H+9oy4d5VZg/WCzpIf22eLpS9FCqS0oR9PuugqOGhHwnV1fCr+thw
j9VR3H1b/rNVQQNUv64ZW7NRjziPHni85k9qkiG6HWyaC147Ajaionfv6Olj
jMUBxW8cTdAhxtAaMqiPCtxX2lgGBiCPU+19tJUBMtrsv7LPohS8WOMLfF0M
0HrXr26lxXoQ37T6tYWXARbfMzr7ubYdKtKTbCtDbHCY1sBLLWkcSlfHf5Hl
MMSIFN4NUceb4VubWc+OV8eR/kZH9R/LFmC7vWZhcoMR9tPmOAd0tsKcZYqG
o48RBsfqT8iPtYICk3NIkrU5Kj9O2fUy9CPcrJ07IRZgjkNHy2KYFrvhSEWM
eECNKTZsobpAfaQPPOt9RwtoTHCI/klB29desAzJ1VkUN8LvevI15g87ILxL
ZMbhtgkyCwlu6kzphC/W6s515Sao5HXV6dziKDQJ/cwJkDTB95zfPy3qdMBH
a80cORtz5Jc/0Uj3fhj8PzPmfWGzQPKzX3rjpWMwEsZo71ahj8nsXCqp+W/h
SWQttfJdPYyvDPUmT74H05jrMRx2unjs4Lz+eoZGeHXI191R0wAdY1j0LGPK
QG/PYMiN3QZIS46rYRpuhJ/saokZ6w2w8/ShEz/nuiCaPqW0c1wfW5Scr7nS
LZ3X3lUdDT+kjz3xdrOl6Y1Q0HrxeeFXY9T4dlE9M7ATtBhxvsfQEAcm94n7
aTfDXfNC0mE1M8x1kqSxet4DUUlC0mz2Vkiz4aNB1MZh6K4RfczUY47TNdyC
bkvvD/6lbDyLqeYoP+M4H8Q9DPvcjT53e5Fwhmebf+G7NOBQKPyRcVYT7c4m
aTi1FsLnuuAQOi4jHBK15ZtiayW+x3Gu/hZus6uEwPRKP/kSOOsIHHr522J0
UgsosUrxW74zwTYNntsJOU3Ar+Yizi1piv/YuKrURPeBIie36w1fK2w6uevn
VHsfPHviqFnwzhgVjp/2SzvQDuW/LVSlrlihq+unNrrcPnCQ3yKb10PGXX3U
TrQCw8T3wKZwGobopefTf2MphiqToOwe+PR2RzaJ3wBDhhfFfUfeQmTkVERL
pj7u7a0adnWphvu8w2yn//z7/VyTzt66V88C/R6IT50hDUB3irNIWq0pxgnO
r9Zi64Yv61QjL8WSUfC9VYxk8DBE3Hi6+ViiJeY5FxlP1A7Dcab89oUwK1x7
Rnje9WEfuIe2pqbxWqMt/QcdFokh4PkS+XFXiAEa8V5q+s1TDEwj5VfzJwyW
nvdev3J21cBv/4UTI4lm2B8REJ3s2gkPf6y3r7WyxmvBWTf3cw7DH547sU89
LDEy1ld1v3Uf1L1Rzzojao1JTBF3w+iH4Ev13ECpljmm5jCEHKTvAj890bVj
hVY4sFnbwruvH1I9Q7/12ZLR3jeG4atIE0S3iEqPupOxPFzfKKxrDLLuiV2b
tLTB57m1H6aL2+H8+P7AZ0LG+PtZNO2P+hoYO3vBSZPLErfHy5GaW7shwThd
qdXVBNU3XMPBDQ2QZWA+u/ecCc49iOdruNIJ60JE556z2eDvT0GWc5ofodF6
capBxRI3NhSXBvL2QODQl7haJWuMf8zKeVG8GUgHuJmkjKxROH20eQpbIKzx
7otCOWvk6V1Vbes1DN8OPnu1WcMGy24eYmW+3gGFkbr6Frw26Ecqzhe5PgG7
nq1TzfltgI+tDyb0uRZDg2lMSaDCcTTLvNUhsKEWeK0Dr5+sUkFqamYfLfM0
8IsMLY+RNsFswWsPT2TUQtX+aZbFP5aommAu8OPECESI2dwRJNvgoyDzQo6+
VsgvaMlvkbbDM1ZSA3vv9wBKaNjLONmgeCLVh9APbfDrp3HhwLwZru9/leFz
vQ4s+5oSla3IeJbmUsRAfiMwfHrQO9xrhToil7aeWz0ASW89up9muSPtjhlv
p4Jx+Pz02/nNhvZIVRLnWF3YD6dF9KhqPWwxUHJuj8pgN1w3PXJllyMZ+ea2
CYdnNEK9Y9K5jz7WmK8e/af7fjM0XXiyv03ODiWfTX9/N9oF+/900R/rsMDn
3bP0PEb10PF0mrbBwBorx2aecBY0g8z8XPBFdg/sLZBvPWf2Eb5VlFqFBNpi
VGqN9UO6DrjqtGNtMY8t1s46xIvqdoB1Z6/XamFHPMq4epvS/iHYeaCKpeeE
PT5qDS//GtsLJm/CjHgn7fFIECtPkFYfMMjls5jw/Pv/AbFP8xIf5GywQu5Y
R3ZvCxiPaO6u0HZC9u2uSgqM/TA09tL+UKkdKpe6RShbdoJI+pVLHpx2WHFj
OxO/TCckbjnY+ULAES+qzO7uvt8Pq+J0macmnfBFkOCdWLsR+MJsVeDvbYqb
1rxlzyn/APun/3DNs1jhtd+Y7KDXABL1DA3yyrrY+vOe3YlbafCy7c7Y+Glj
DHei8jm9phhEqjv2Z6jYopXPD9bugDZQ2HWNyqPMDc9KdwuEXhqDuEaV63ey
XdDMK2XOIGQInFqFkuprnZGne2ikVnkQRIXrqP74OeCtsxfA80Mv+GdLprsq
2mNLtEWui083vGj+RUcWc0KzVT0SvUt+NrPwTvGJmTNS7/vhoOM7ALRBG87e
f+KC5pp0ooJcI3DxWiYDtYMdXvJ4tTGyqgPiFq7Rigi6oX/4w9uiu8fAbnyV
e4ueO2p+5B9QvDkGEduSZColXXFnZXH+rd9DsLnnDHVLsyNqKdnbxnH3Q/GB
yvHEDnssFVYrG2LqBp05+h49Z2f8vLWjtl5pAKbdkzNz7F1w03hD7B6eMeD4
nhydwu2Gsa3Bs1WrxuHmlESzWaw9vj7g1aCb1QVsoyFcQudckZyRwFwaNQxJ
YpfHzf2ckHPQMJj35wD0CxaIXlrtiElev4L3L/RABmtP3HEVDwwbW2dU8O4j
cHsLkPIFPIj1F53hYMM6B0xw3ce9ZU8fDJHNIjjZXPBTHe+OrstDELjlTdeD
WFc0Suf9dbxmGERK6L2fr3fCQhne8XitfhA6dk4ktsAJv1HxFniKDcL/A8nx
VTQ=
        "], {{
          {RGBColor[0.293416, 0.0574044, 0.529412], EdgeForm[None], 
           GraphicsGroupBox[{
             PolygonBox[{{194, 5, 209}, {199, 5, 194}, {209, 5, 196}, {250, 4,
               401}, {196, 5, 204}}], 
             PolygonBox[{{203, 4, 5, 199}, {204, 5, 4, 250}}]}]}, 
          {RGBColor[
           0.4019869488819605, 0.24617995889219046`, 0.682021602808044], 
           EdgeForm[None], 
           GraphicsGroupBox[{
             PolygonBox[{{218, 8, 216}, {199, 1, 203}, {215, 8, 218}}], 
             PolygonBox[{{212, 7, 6, 210}, {194, 2, 1, 199}, {208, 6, 7, 
              214}, {216, 8, 7, 212}, {200, 1, 2, 202}, {251, 250, 401, 
              402}, {202, 2, 6, 208}, {209, 6, 2, 194}, {197, 196, 204, 
              205}, {205, 204, 250, 251}, {214, 7, 8, 215}}], 
             PolygonBox[{{210, 6, 209, 196, 197}}]}]}, 
          {RGBColor[
           0.4987994371150759, 0.41451073026473945`, 0.8181032667177627], 
           EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJw1j70OAUEURmeMxlJINJotJPsWGs+gVHoA3kc8kGylovEvUUgUGxGt78sc
xck9M/fe+XZH8+V00QohlCKJdgxhplqoNtw9xR7fgX0renhXnPAjO/aHuODu
3/CrOLN/EC/u36LDez5/qQ159po5+4e3Ejl33Dlj/mUV83ck+jW+Yf+fUzDf
Vx3gw5ixVzH37O6XuHMqfBJznn0d89nu2R+6Mye8
              "]], 
             PolygonBox[{{198, 197, 205, 206}, {206, 205, 251, 252}, {201, 11,
               9, 219}, {213, 212, 210, 211}, {221, 3, 12, 223}, {218, 9, 3, 
              215}, {217, 216, 212, 213}, {211, 210, 197, 198}, {220, 12, 11, 
              201}}], PolygonBox[{{219, 9, 218, 216, 217}, {252, 251, 402, 90,
               260}}]}]}, 
          {RGBColor[
           0.5871946489827712, 0.5651205995992054, 0.9100315915481534], 
           EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJxFkDEKwkAQRXfXUlBjKwjWdt7BCwhewAPEC3iINCkFQQQLwcYbCIK1pAhG
rAIWXsAm+Id9YvH4f3ZmPrs7WixnaXDODUVLVN65nTSXltKBuIP5q5iql0kn
0hXezj7MNMyZr9C+SMSF+ob2RBdv2hFzMi27oVeLN/4sXvjfWUJWTW39dog5
ax/JyN7zxoP0iB+HWJvfSk946+d420vJ2fj/Gwrx5O4P9m3eMgpmSv7Ldi3j
C+aaL5I=
              "]], PolygonBox[CompressedData["
1:eJwt0UsOAUEUheFqYUJCewyIkEhYBQO2YAkWwFaMmZjYDhvwJgQh8SYh8d/0
GXzp5PapW7eqSq1Osx1yzuUQxhEHbLHDBHnEMccMCfhY4I4bHnhiiSRSWGHg
OdflO7ReXtDTeq+xUQ9fa2ztD1+bhWwEOWRRRgV79baZPi7IWDaKmBfMYLO8
8EaGWlo9rNdb/y642r7UfGUse6Z20pnsbA1qdRRQRA1V9NDXTGVlGsoUlKlp
pqj2sL2musuE7nKMkc7800wXvYG9xR8mzzUz
              "]], 
             PolygonBox[{{228, 227, 226, 18, 233}, {411, 410, 412, 144, 
              523}, {195, 27, 198, 206, 207}}]}]}, 
          {RGBColor[
           0.6583742294586326, 0.6794863794949839, 0.9116542667468989], 
           EdgeForm[None], 
           GraphicsGroupBox[{
             PolygonBox[{{479, 166, 444}, {207, 30, 195}, {444, 166, 499}, {
              465, 166, 396}, {24, 25, 28}, {268, 34, 271}, {26, 23, 28}, {
              462, 166, 490}, {249, 19, 233}, {349, 91, 298}, {28, 25, 26}, {
              253, 30, 207}, {256, 22, 239}, {396, 166, 479}, {346, 91, 
              361}, {499, 166, 521}, {523, 91, 411}, {261, 30, 253}, {490, 
              166, 465}, {24, 28, 22}, {233, 19, 228}, {255, 34, 268}, {298, 
              91, 346}, {521, 166, 556}}], PolygonBox[CompressedData["
1:eJwt0k0uQ1EYxvFzUJOOcIve3FSQWgBTBiS1AEm7AAvo3QDL0BkhDEiIDmoF
tlEzUgkhkUZqgv+T8wx+SfO+55z343b1sDzoToUQ1jGDWgwhQx053hTDEr5C
iinXxEZMMeVyTPCIBgq8o8eZE1zjBhc4xxBPjil3izs8c2cBGUYhxZS7xBVK
dP2G3hr5rHpUr3vEdtHACl6c05lfHBM7Qgv7+CZWxzLG2CK26Rqla6r2AA8x
zZj7ju5+YtHzTpN/9T5UU7U7xNquqdpnOHWs4x7V6zZ2vJOhd9ZzTdW+R987
b3pGzTob077X8OcZM+/wxz0V/iY6O/as6vnD36hwz+q9GtNbOl/h9zzm/J+o
eWct70i7+gem2T1+
              "]], 
             PolygonBox[{{271, 34, 267, 273, 274}, {317, 316, 411, 91, 349}, {
              432, 431, 555, 166, 462}, {361, 91, 523, 413, 414}}]}]}, 
          {RGBColor[
           0.7295538099344938, 0.7938521593907627, 0.9132769419456443], 
           EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJw1UjlLg1EQfN/GE8RowJuYxDMK8Ua8BUXFwsbayjagv8Hf4B/QyhTB+4gi
Gkt/hI1VOu3FY4Ydi2Fm39vj7e7L7O5v71kIYRWIATfABXACbOCiBF4Cf0ch
FKEboRvM7ys4a4G+g06Dq4ECdDs4BTxCz4FbzXMmWUixr4h9AF8GrxGDnQR/
APPwuQdnwM3y7wQn4NMPHQd3qRZrbsPegd7ivd4zAe5W3Rx4E3iGzoJ/Is/J
PgbMe46b12PdcfCK3j8IngTOoPvM38HYYfCb6h5H/pYjza3WfFacWaN0k3nP
vH8HDykP++sxj02Y98Cc+cj96EPfXuVh7orOOcuEYr8iB3Wbef+cA/dTp9l+
Auuwy+BFc5vn9bg/VF3OMi99AL4Ovqcn8al2Rpt5XsT/97/KWRP5TDnbDnM7
qT3T/yr4Psra/63iSzpb0/y5hxHzujPmOVLB/8GCeZ4x8xqsNQ0eBc6hZ8FV
+if8Lzn9B/7HtOazrLOidpfVP5ky3z3fkNLsC/L5A+w9WZo=
              "]], PolygonBox[CompressedData["
1:eJwtks1Ok0EYhaeTbjBGWfgXFKoomJQEMC3/UIFqq1sXkEBg4U4Xwg3UK6hb
3RUXEH4CpVVb0VB/bgADNwBrWepen5P3XTz5zjfzzsyZM++d5yvPXsUQwggk
YYqfH3ybMIQ+S4RwCofQgpfwAiqwBidwDGV4A4uw4DWqzUIGVmBV/+z5nb0/
wiT6FnxD/4R8tDN1dg0G0BusWYcGNGEw2lp5LKAfwBf0ITxGz0Ar2BlP0Vfg
K/oTPEKPR6tVzRN0G3t2onvgEvpywnQKLmqOmjq6Ab3oHca2YQ+qzp57lNd2
anaDrelC34N9P0/ebsBWsJq76IfwOdgdJqJ5lFdlomyW2XMJ0tAHY9GyUUbT
0TJRNjWoJ8yzvOtO//yOOlseMtHeUG/5B/7CcLS7yUMPOgcH6A/qiWhIV6Ef
PRpNK1NlO+3vpTVFdBo20e+hO5oneTuCX94jZe8p9dY8zEEJXntPVXxMczmY
8gyUxTt462+gtziH396D6sX70AuzkPc76q5teLkQbUxzKbjtno58j3PPOO09
vOg1KfcgL0UoeE9n3XPJxzR3Ezrcg7xcg6s+prnr0bJRDyTR/wH98WbB
              "]], 
             PolygonBox[{{522, 521, 556, 167, 510}, {257, 256, 239, 29, 
              264}, {368, 367, 417, 92, 403}, {270, 37, 274, 277, 278}, {385, 
              92, 477, 406, 407}}]}]}, 
          {RGBColor[
           0.7968495326384064, 0.8584089688498179, 0.8987011280423374], 
           EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJxNkzlMlUEUhf8ZLMAEQkHQAozw0EQTXIK4gxp3S2OriZYWYEeJFKAI7uKO
RKRRSxpi5RKXxBoXCiuXClATRRr1O7mnoDj5zj9vlnvPzGs40Xm4IxdFcQSV
oRvoIbqLlqSiWAnr4CHUhm+Ge1hwH18DB+EjdBON2GtsbY69WuEVOOq9l/F9
FlbDL+zVi38H36Bu/Av42uNv4WnYU8SaSb5PwXG4KUeN7XAFuoffCBehC6od
9sGrrmvca5/A7fz2GL8BPvO5z+EoOoo/DqfQZfx0in20/y20P0c+O2ELGsMf
gI3Ma8WX4L4c/a6Dqzyu3+ucm/Jb4/rVhzJejhqcqeZshrMpevkGS3xfwy/N
kamybMtRq2ruh+Up9kkp+lFfn+DeHBmsz1Grat6aI3flrLyPuc72FD3I70jR
p/rdojrREL4e3i7ibnQvH5g3AH/5vaiPkjNTdmeco/L8Bw+yfhi/C770uPLO
rr8yRX56N7qnS3x3wffwr/tazNrfKTLJ+Iuupcf3Pbjg7POuZY751+F3+BX1
43/Abax/oH5hJbqD/8j4T3QO/wdO+P3oDZbl2Ef7jblOndfotatzZDPk8+fd
o3rVXK0Z9t2oF7393b53vZHaFPlVwRln+yrFXn3OfcT/x5MpfhvwPXx2X+qv
yvtUpMhaZzbBp85Tuf4H7KF7fQ==
              "]], PolygonBox[CompressedData["
1:eJwtlElsDVAUhu+9LFSUqqhQw2tKW1NNJR2oxFRdsHgWJKxsK4aVnarEWK1o
aV9bQ9SQaFcsWCFipRvCQuwMbWhiUcKi5u/POYsv77/n3nfPuf8575XsP5Q9
mEII22Ai5McQMnyWwSz0bDbb0KdhGnohXEXfgjXof5y5iO6CCaxXwXV0J5Sg
F8B5dA7K0RugG92vnMli2huATei50XJXQgW6mNg5dLvqQy+BPs83B/2VM2eD
xX6i64ldQd+FBvRGuOn1ZJLlUC7VuBVdAR3B3tSIHlPdwTyYxH15UOox7eVY
d8MADEZ7o+5Wjjr0ZGhGH4Xv7DfDMWiA7TAWrXbVm8/ZS6w7IQu7oIDYGfYu
wFT0TmI7oAkOwGt4BW3Q7ki/g/dQxHeO891eWI6Oai48Z28I9sBur0m11Sbr
pXqkXm0htlkzoLfJf++HPChCv41WuzwfRn+K1hv16Fu0mlV7C/zxN+vtVbAW
yqP1Vnfq7oz7dwpmopcRWwp7YR9MTzZfrbAYfYTYYfdM3k0hdjKY539Zz2N9
OZgH8kIzq9lVrAx9hzO34QE8dM/k3SN4DCegxXucc8+bPKa9mmSzpRlekcxT
efsBPnoPs94z9W4GZwrhF/q351Tue3Afqtm7EWxmK9HPor1FbxpBj8LnaD1U
L39E80KejMtXYoPBZliz/Cba7OmOp+jVxHrQ12BRsh5UuYfyUp7Le53RWf2m
uvx+ea8Z0ixpJucnq1m1v4CXsDLZb1k1rEc/idZ7+f8FvS5Zbv2H6L/kP8dD
f8M=
              "]], PolygonBox[CompressedData["
1:eJwtz78vQ1EABeD7mhRDp9eBxKIMNMXWEQOT0UKiDEZD281sMCAxdTNIJAyV
mEXix24g/Ae6VCQsIqKV+F7eG76ck3PvS+4rbTVW6rkQQkye3yiEYzlujCnS
sb1S1g+dfegDep4RWrZvW4kx5qnaynIh65uywjQ11tlmztmynMn6iVxljWua
tnf5zAv7bNgu5RnnPLBnK3hLV3/jgnaU3kvun8ofDvTR7O3JP/RtPYb1I2ef
ei77pwk5yBBT9lnbpFxkiSceo/R9yTuvovRu8s2fvmu7k7fc8MWO7V7+A6bJ
K+c=
              "]]}]}, 
          {RGBColor[
           0.860773626939834, 0.8797259509815325, 0.8700631910797645], 
           EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJw1kztPVVEQhfccErGxsrCxIaGAezVAo4YCG6+FIigCkcQE9AIafOUqbxNj
lMIf4C+wtbOiAomljR2hVmNIjK9EA8ZEv5VZFitr7b1n75lZc07H9Xsjd6tS
yghoA++ilEn4FdyE74NWST0DHoBuzmpwB/wUfuT9O2AeDIIjnHXCh+BToBvd
B/dYa6+vpO4BdetOc937J4k7AffDj8Fl9I3IfKpH+Uddn/LOu/5peEKxoOEa
m65zzT2tgmOReU7DK/Cyzx6CRb/dsg+KbyeuFx6GP4Lb6DeRa+1fgs+ALnQX
fN77unfOPV+NfF9vz7lW1fwMvuke1yL7uQXGVA/rC/ACfFE50FORcYpfiYyb
87uj9kc9P3d8yzPR7I5rNlWef4usVTUfhQ+w/wS9pxpcf688Vz/o2cj7dc+r
Ze/11r57+wl/jvRz02/XHN9kPQBPwj/s+yfHSiv3h0jPdyLv6+wgdW2hZ9Hb
kd+BepdnQ57zcMmZDFkfrnLev4n5Ffm2+tNa+9/hF+7rpT1v+P6XSP/fO+eE
z16zHoc3ImtSbVWVng96Xm1Vfpt/iblWcnb/Zyxegr9GevcHXve+/r+zziOP
ZuzVqjywln8Nf9vqcTfy33vr+lW71les5cc/XLNkLA==
              "]], PolygonBox[CompressedData["
1:eJwtk81LlFEUh+8Z287KRRs3agvHUnORIEFuclDIAktJEGQmVLBJUWpyFFyk
FhVoy/wHdG+LMiH6TvxYaV+bIDKlRVpBZSDY8+PcxYPPeN95zzn3/KY0O9Da
nwghnIRDUGIhVPD3CBzG78BtmIU5eAV5zkbhH/4TJvAR2MJfwoXgz6ziz6ED
74Fn+BNox7PwGS+DKrwSUvg7uIjn4Cs+DjfgPszAIjyGddiAIUjH9y/gS3AO
74VP+CQ0Bn9Gz16DFjwDt/C75r2op5v4FcjFmqpdrf7Uk+aAZTjDs1fBEl5T
tVVDtd7Hz6p3D0+a32UKEuY12uN5Hn8DZ4PPrNlfQxt+GXbMe1Svp2AYf2Du
+t9b83ek43l3vBPdzRRMQwHOc9alns13pF0NwSZ+oDn1XfiO/4BL+Bj8xRug
Bj8K5ebItTPtrtR8d8rMafwD9AWfQbOsmb9bmVA2as3vohbqzWfIxP4e4R/N
e1MPSe73i/ld6M519+pJvannIs6z+n7MqLK6D4PBM1nM+Z52iRfgF95pXlsz
HcOvm9dWJkbxZmiCE1AHK8pE8B1pV7/Ns68ZNesL86wqc8recRH3XYNvm9dW
T7vmmUjHvD3FE/Q4HLzHP+aZVXb1m9FvZz72px0+NM+csqeevvH5P8orc2o=

              "]], 
             PolygonBox[{{340, 339, 334, 48, 332}, {460, 118, 453, 474, 
              475}, {358, 75, 418, 353, 354}, {399, 398, 481, 98, 395}, {314, 
              54, 383, 328, 329}, {475, 474, 493, 101, 461}, {352, 68, 404, 
              339, 340}, {423, 422, 439, 83, 384}, {313, 49, 330, 301, 302}, {
              378, 62, 435, 442, 443}, {337, 48, 334, 364, 365}, {409, 408, 
              427, 75, 371}, {310, 309, 369, 68, 336}, {345, 344, 383, 54, 
              311}}]}]}, 
          {RGBColor[
           0.9411759999999999, 0.9065379999999998, 0.8340430000000001], 
           EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJwtkLtOAlEYhM/Kk9hYesPIxcIVC8FYAKGhIyTSwSYK4qUhIUAiBfU+Ac9A
aCmhs/Nl+CY7xeSbPTu7/3/mtJs0BychhDOUQ9sohCb8hjPUwG/gASX4fzhE
j/gvWEM3+DL8QFX8HP6gGD+GF+gafwkfYCFk36c838MpLKE8/gruPWsHz32u
9zufa5dP9IxfwD66wzeibD9l9I+FMyP46t20Y0vz8B345jvqrl1UxvfgizPK
rlEF/+s52lm5gndrw4kza3ejOz6hpeeuYN093MI/96y+584o++5OUvenvmoh
+3fRc3UWe8bG++sebe+jzo5fAC51
              "]], PolygonBox[CompressedData["
1:eJwtkEkOAUEUhuuJxBVsncDUobEwLWgk6AsQ8wYLxLSRsBAbl3Mg38urxZf+
UlX9vyEz28e7hHMuDUnYiHNlviGs8ZSY61kfv0Ib78ALL0EBDyDCp1BxdjYS
e9Px/2v2CXp4A+74Cqp4HQ74F7p4DD98AU1nNY/4U+xtDbZ4Hoq+fihG4Otn
8TdEzjI0ayz2r9Yc4hM/r/Yzx3N+Hp1hgJ/F7jRDs25ivWmPS7Ed6X5a8MA/
Yq75M7EaVb9P3eXc5+kOLnrn+9UZyvgflDwflw==
              "]]}]}}, {{}, 
          TagBox[
           TooltipBox[
            {GrayLevel[0], Opacity[0.4], 
             LineBox[{331, 263, 335, 337, 365, 387, 409, 371, 358, 354, 394, 
              423, 384, 359, 360, 388, 377, 372, 356, 392, 375, 379, 373, 391,
               376, 355, 351}], 
             LineBox[{312, 305, 313, 302, 345, 311, 314, 329, 310, 336, 352, 
              340, 332, 304, 303, 312}], 
             LineBox[{357, 378, 443, 468, 399, 395, 390, 374, 357}], 
             LineBox[{370, 389, 441, 370}], 
             LineBox[{460, 452, 461, 475, 460}]},
            "0.04`"],
           Annotation[#, 0.04, "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            {GrayLevel[0], Opacity[0.4], LineBox[CompressedData["
1:eJwV0KtLw1EcxuGznzAsJoPFMlcUXFy2GMRg0LJgmVkm/gXCmmUYDGaDxaZB
WZg33ESLMKZuYSDeENS5wbwhuMfw8Hn5ctJJLCzN5mIhhAyRMcAQw4wySYIx
RkgywTjzTJMiwwpTpFlmnTlmWCTPBttskmWVLfbY4ZJ9auxSpEqBW0ocssY1
RxzT5IwTHriiwgXPxKIQzvWON8rc0OWbUxq88kef95/6/v8ndl3veaTND4Pu
v9riiQ5fxN0/NNJ+DuwXej1BNnc=
              "]]},
            "0.035`"],
           Annotation[#, 0.035, "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            {GrayLevel[0], Opacity[0.4], LineBox[CompressedData["
1:eJwVzzkvA2Acx/GnQhwRV7SOOlpKHXHXTR1VZbB0MUgMRgSvQOIFmAxGk8Ug
sdi8AJPEKxCTxGKwCfHp8Mn3l/yX50kenBZPIiGEYyJGFV92tdYRI06aHAmy
7DPMHofcsMs5BTKccUWRHY644Jo77rnlkQde+OSVS9544puashD+tFY/Sg/W
Z31n0G6knSF6aOLHrUXLiVNBK71U8lv6ozbQxQgxOumnnjZm6GOSKAlWWCTJ
BHnWSdPNAltMkWKNbQbIsMQ4mywzzRjzrFIgyyyjzNHMBh3k+Ac6KyO6
              "]]},
            "0.03`"],
           Annotation[#, 0.03, "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            {GrayLevel[0], Opacity[0.4], 
             LineBox[{556, 521, 499, 444, 479, 396, 465, 490, 462, 432, 437, 
              420, 429, 425, 406, 477, 417, 367, 307, 326, 381, 342, 414, 361,
               346, 298, 349, 317, 287, 322, 294, 282, 277, 274, 271, 268, 
              255, 262, 259, 239, 256}]},
            "0.025`"],
           Annotation[#, 0.025, "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            {GrayLevel[0], Opacity[0.4], 
             LineBox[{238, 244, 246, 248, 242, 235, 231, 228, 233, 249, 254, 
              229, 232, 236, 195, 207, 253, 261, 267, 273, 276, 281, 293, 321,
               286, 316, 411, 523, 413, 341, 380, 325, 306, 366, 416, 476, 
              405, 424, 428, 419, 436, 431, 555}]},
            "0.02`"],
           Annotation[#, 0.02, "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            {GrayLevel[0], Opacity[0.4], 
             LineBox[{412, 410, 315, 285, 320, 292, 280, 275, 272, 266, 260, 
              252, 206, 198, 211, 213, 217, 219, 201, 220, 223, 221, 222, 224,
               225, 226, 227, 230, 234, 241, 247, 245, 243, 237}]},
            "0.015`"],
           Annotation[#, 0.015, "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            {GrayLevel[0], Opacity[0.4], 
             LineBox[{200, 202, 208, 214, 215, 218, 216, 212, 210, 197, 205, 
              251, 402}]},
            "0.01`"],
           Annotation[#, 0.01, "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            {GrayLevel[0], Opacity[0.4], 
             LineBox[{203, 199, 194, 209, 196, 204, 250, 401}]},
            "0.005`"],
           Annotation[#, 0.005, "Tooltip"]& ], {}, {}}}],
       AspectRatio->1,
       Frame->True,
       FrameLabel->{None, None},
       Method->{},
       PlotLabel->FormBox["\"Constant force. m\[Psi]\"", TraditionalForm],
       PlotRange->{{0, 250}, {0, 1}},
       PlotRangeClipping->True,
       PlotRangePadding->{
         Scaled[0.02], 
         Scaled[0.02]}], {193.5, -580.5}, 
      ImageScaled[{0.5, 0.5}], {360., 360.}], InsetBox[
      GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJx1eHk8VW33PkUDoVJkKJTMlKEMT1nLPE8Zc9A55lkaNCpJUoZClKGURIqS
xvOkwVAPlUqZiYNjnkqlkvL1Psdv99rv57f/8Vmfe93Xtde17mude5NwD9ni
NYeNje0OOxvbf/5Ojnj4qdYJY/Wr/zxDwPbvswxZfxnQbGl1q+0nL6r++7yH
p1xibM+NFWbWPwJtfKKtaFh+Zn0UhjxP1AcnyqP3v88IsPDlCHxr77SX+fxy
M/mDYEtp1nIyl8X0tP88/bDfjzvt1iGZGfw+UCxLrll8TXoGrweGlhY/LK6W
msFjQsKVje8K+9bO4HXBnaGKhz0/JGfwOmbqkSTqOVSxRkH3x+qZ/a1w9cvZ
jD1dEjP5Tf8Tt9wsmH/7ofgMf/2MHqsIPcgxSx/RGb63M/UJzeBVzbzv8pn8
8hm+JTPr9Jn8hTNxPmz+zHWqR0yN1B8loh7JAz85ejdJE/ysfvxF9IOlvxZp
vxqpv0rEftfdbRL4DEn5mkS+cWKNUoCrKpFfpbEpT39Mn+Bjva8+sZ8cs/TX
JfqdXaN0Pu6JDtFf+cmrrpHBSPSTxatN8JNjVv3qpPrNSPWbEvwsfU0Iftb5
MiL4Wf0xIPHrk/TSJvh+NbnEJuyyIfhY+lkTfNJjp02Cs6wIvgfF3zlTzlgQ
fGOWFYZN7mYkPhNSvX9ilv56JP3tSPrbkfTeQtLbhqS3NYnfkqSvEcGXclak
fCLEieATDVWfjNvvSPD18R1WrV7tQPD1mtDuv75jR/B9eDsqeE7edjZfhA3B
N+W5tsVd1IzUTwqpn86kfm4l9dOR1E97Un12JH3/xKz+WhL8LYGn65vWuRF8
j3I36HbtdiH4dmg9H9yS5Uzw4f7wuPIrTqT6HGbz/VdMySzRKwyyIfga9Syn
XC+4zaz3zZwnKuk8bSOdJ1fSeaIQ/OSYIX3Pn6rhTMzHvLMX/MWOuBDzlMW7
laTP/z8+f1fhftJ9R2KevvsUHmnv4kDMz/+JW85WZQ3YEfOUdZ5tifrJ8Wz/
VP1PPNs/5TN8hsQ8ZeUDMU8t7uxySt7hTuhZtSrs6kFPGqHn4ZTlpwf1qYSe
OWu42UfF3Ej9pJD6+SfeGN0jJGthT7w/y4+epHnqRuSz/OlO8ieN5E8q6fy6
zeb/r5jlV0eCP8r7lRZPNY3Yr6hy6ZlmtRfxPqr+NTfnJ3gS/BU8xtcUtTwI
/n9hkUrgL9m++GOOwlYCn+V/H5L/vUn+9yT534OkJ43kfwqBv6ioWoUh7Ufg
c0XvrwhZ503gbfyL/+vqk56z8Z66E3hDW7Weiy9yJfBY88OfwGPNCx/SvPAi
6e1Jmg9uBN7s35N8GFScyIqODPxz3/ld0HZL0o/A7+Vzvqlh5DMbH70IfKaE
iuXr3VTS/Akm8Fjzxp80b3xJenqT5guNwHt5XYpH8UMIgZcS1v79s1AggZfG
vOhnyeFP0tOHwKsRMNKM83In8FjzJ4g0fwJI+vkR+1n+9iD2z55P5aR5QSf5
PR9aRpbwb+QLIfjM6L1rPEsDCb4n3C6SpvaeBD5LX3+Cn7zO8vt2kt+DSXoG
kPztNRv/aSCxXsgWyrfAwHv2OlswyZ8+pPcLme3n/4rTvx6beKbmS+Sz/Oc3
ez9jO5EfM5DefVTSn1hn+Slgdr74DiI/rP3mW51lgcT6ujVe1BNJChjw/J2H
mPUwyBxOGV/BVESvcIqBGkcHxHxdH1x+VgA5mzht5bK6YXWaUlMjmyym0a0M
KfdHQPvZ4YzQQjm8vPF3Spb5CJR25jLvnxXEHGHOo4N/98CJ2OOLN/H8v/vT
KPimfMmXeCSNbfJe9XGco5Dxwrq4SFIBTbuPf8vOGoZ61dypuy2KKHdMyd2Q
qwMYoRIa83LkMfHperr192H4WrhGratGEWV1tmdxL+mAIt+phOvB8phqJ6dd
KjwCy5lDGS4PFPGKxubsYxIdYOwdc+5lkiIuNlh7sEy9AxLm8lO/psvgiSD/
8Jf8nVDm+du6hyqDY1dabqzb3Qn8r40XUrZLouXKiqi0ViawO67bw8Ujg4wd
C/rYBzphvv+HPaKJ0tjfn5Rmt68LRDrmcVadXI3iNYGUcrVuyH66fFdUkhSa
pMie+eLOhDKdySyuzRLYKqb+6aBbNzhY1ifXvpdCvbG/NtxSYkJJqoXKTT1x
jF/5s+dsQDecOx60SuvHKoxWbjRM9OyGs4N1XCevrkQH09GmfItuKL54/jrf
QVH8ot7RMSzTDV7fuUykaSL4KtzgqPo3JjyUbu+KMBLGK//81XDwARP2SzCe
6qwUQj0D9t8hgUw4eaIx5WP0ZtwsFSag298Bzg1vMq8IquHHkVOLfx3sh615
SZeqV6pi0kP11WuMB2BpdMHB/otK6Ph83rGvlQzwYn75wPBVRRXlSW6D+n4I
ERByuHpvPfJeyuhxsP0AYpaFYtp0TRy2VpUq5ukGtrzc++cr1LBlwWrFn7V9
UCyUqfZKWR0rg2tE5EveQ0D7p4X5Pzdg7srxQvpgLxQfkmU++qWKTsyKDYeC
+sGuZ2nu4EFVHNwBEZEBTVD8ycptctIVlbldvyy5MwCeU1JzRvchPp1Pj9/I
M31+vstCdakuBvMFCEoN9MOdlZTYp08RnxSk2RkVDMHBReND0q7a+Pz53K8l
1tP3Iat30QE3VTF62+59Q3lN0MN7q/HIXHUMVuP+LChQCy95tvmuqEa0Pu7H
vzNtCHxXxZ/xmNDFSf7N8DizH37IfDMcKUesiwyL9M0bgvEtBjs4bxvgyggL
d6m33TAvcvFUdflmHJJoTSiidwC7GZcw84A+clMsQjqe9cJ45NJ+x2X6qHJ8
r3uebB/EdJZsymvUxsk50oLiYwx45/Im7JKpOhqmBjoMpU7/PohtvSChB+jQ
IekWq1IOPhLUmqOegAbC8Zc0hkuhcq6rhV/Tn++hGxzejR2q5ugoRht+VTkC
Zg6tT9q7zbAo62M9/+pREBOqtuH5qofCxZxj7Yl9kDylWfc4SA/THS8ahwXW
Ay1W2DFrix4WNvryqefWw37NIkbDZzNcUvV5MHDpKCjO11yeM2SGzaFmC7+L
jIKOVUyG33IdTGVfb5cc3Qb6/wyt8liC+PqQpnhAQCnEryp5ee+SId4Ni997
JIoJZrtASWcVYubc5J13f7fDeFSxuJSWKRZrDAslL+4EKSO5RX4HTPBd0AV2
w5By2NFyKmxCVA8NGrcwMtY1QOb2bsmk1M34Zd9lwV0rKmH8kwxVe4EJRtON
37gt7ACqU1C9CJ817lzG+1I4aAASN7VrxBcZo/rdlrgbBzsgOl/cyf1vGwy/
W910ir0Xml6ym/Tts8H9/L/2PhPsg/7MHT9qEo2QlhQxlpnQRdw/M8xX63S9
b4OJ5SK3GPIG+CWjIX+e+Xv4fjL7rmuuNeo73K4pp/UD7ditit0cZshu26KT
y8OAQe7IKojQw4SHGX2qn+qA98HhzDobxOsuF91TOBlgIq3t1vseMMx3nYj4
gjJYdPwg1X+TCXqXq89ZEFAGUaFbePgkXLAo+++1RwSGwfzRxpAtbTboVb9h
Qdm9HvDjTWAzmf4e1uscWL9TbBSMfH6lX75khqfjx89sesSAsxTlqSM7bLDp
qLW1a0UfcZ+JtV8f9iC0k4j35s5zUSoph5isjWt3GtiiYGholJk6E1Kgql90
tS12ud+jv/ZhQqH5no/pvFY4GFtCP/2hHkaPcMe96THC34mpyUK0LrhT9pI/
hdMEnQ9TG4v2VcANMb6zrgZmyPV8e0GFaxuMLCw291QznPbv4yundtaARMv1
ybHltpgrVCJnxdENXYt+MJq6rDHkKr31H6t+cDUy3P9svh1Gim+TM1jVRdwX
fOVsT0j2NcDFkObQM8N2eI+Rmv5xpBNWdiw1fnzRHL1jTpgoH/sAr8Mfvbhy
wxIHJI13NYs1APXnEYPQOhO8seBEqsPdJ/BFYn79I3dLlLX7LpUm3QSPYoV0
k/OcCT/dllClF/pQcPjwbe48nhGI2l7V9MLQDrcKchwNP9IJTr/PK2u/sEUZ
ToNbY45MOLWsM09hkz2K7nEQGDdoAVy8JNLD2QKVY8J9KnY1w2OZhPrLc6l4
f8un8wVKfZBZpitXFOiKuXlLQ3k9BsFW3Zz/m4UDeuqGcNOm/aGsO7L66CQF
vZWyPeOkR+CVfm/Kh2YKNhQK7yhIGgavy6vf3xegYGo74+JHnXpwj94bHLHR
AR0uF53kGukAweM1kffkrFFrUfaAyLYGKBnXeDBcaYevRwVSfDZ2wiE3rdtr
uKwxaeDTjXka9cB1KM4vfSsV5Ual5oQF94LLy4aP3fJuqF6QMj/Sf3r+aiwY
k147zfdYa9GX1Dp4uk7wjupjV0zaK8hxdrALwsWH9E+1UfDsP/vlg4WHoWfJ
DwUeQzc851mmd+0KE+hV3gq1qlvR6NHVZe92NsNzVdtXvDaOaLVrwliutB12
rEi7wf/LCdUMaWmZ35ugsftj4ePdDnjiWHJFr0wblKRk+Z88uRV93xrq3n3T
CNyr1nBcD3dAe0HfzAjbNhD5nLnZ6YIDat9M47r46QNMBFDfJCTb45cLUYNi
zBawtJxSurbRBr/RTKUZS2vg0/3Pat8HDNG51CLGia8aTtpe31+cjtjWY++b
sOwhTBqFlbXEmKKiaKRG+teHEMm9zjNOWZe4r7oE8fnHmxpj+KX2Mmuu55Cj
ZLOgu00HF2z8XSv2vgikZRIkbXspqB1UJ23zaxgeF1dJ7DpJwY1d56uN8xsh
5VBIZmoUFU3TBLNKc7rhXYZsexUvBQvK8pWf/qwD9doCDBlyxEGea6HJ21ug
QN/o3LHFbuinPllSn9cB25IFByqfueFb6pHM0eEOoIyUH00S2jp9vk+Kc19v
BLcTT290TdijVGuZgf6N6e8PPc36GwWOWFKpLXBxrAUG7ZNok98pGLLnrssA
rRm+PeFX4Uzbhu1/r7dY/KMPAt9fuuzlTcPB5Zvv6Br2wIqRfVJHgmn4MlLz
WqVwDzwp/Oje1UjDJTEasp86u0CKPiYQeIuGGw78pitNMIGZExvx69Y2vHa7
UuTQ6z7o7Rm7bPLVGVftfuGaND0PtU0uTEY0uONIiunkm49doPpz9wrKKxrS
FO7d93f98/8N++W/Cszm1oOT7zbjsWIqVhlmZNlT+2DeBXurDroHPndudn2i
3wnXehnjyTnu2FiT9SExhgktqCYrPM8TDz1hXnizoxMO3KZWKLyg4RytNbrn
l3VBQ16qd+RpGrZuG3COvsmATQ0HOJP/ccWBAA21uoUfgKtkjLFhOv/FwPi3
yf5OiAreKa2bSMPXmxU3DLo0g9ldadn7Qe54JEg8W+ZyN5yEq1JR4IY3RqtU
8p+1goLKUb1SQQ+M0/GYI5XZCZVb32lPqXhhbFvgCE8aA447NK2jG3mhCDWp
XvU2A05oHJh/aoyKvjVeqxOze2FSyFmzVs8DsxNFWrm6p+dNX263RQgF4yOM
5Evl30PB89BXlureaDyV6v9yLgMceaQCb9bQUCXvOD26rxMo0k7nTyu5o6ae
uJWHWDN0rd8XNyLkhuunRDtsGt9CciezonbQBVspLeKn974DEcfmwGuWPri9
620hXa8NBGMtd2yK8MKisitxvTodYGSuZBywzgMDtz24FhPWCeovChbxbPJG
Bf12rrTGDzBmfDNuvcs2rPs8cumVXzUIrRGKrZT3Q3aldW5TEs1w+XPLcWUh
T0z/4bKMX6MVdrnGnrpG8cF0d+piYf9mcLSlNqnSvVDDJTtiTJ8Bud6cnpUr
qDgmnlrAP7caJh+yQw6/LxrvG9xzzroJjKM6rJsEAtD8B0d2+7p6sDJJGQ46
543OeXpCm5za4FdRfuJBKhXfSsn9nDJ+BfMDw91yJjzRmqdg0juGAfGRgwWP
5fxQs1kkTdymCaS7KyxtdX0wRrI92sr0AzTQJ5hV7r44L55u2c/RAqb1bCm3
rTywZXfvUXZ6DVw7vIXn3WM35OA3zjnKWwkCeUHWvAu88WqLwP2djHYwKSg9
pmS2Ba9n/+JoffoK/MLdeHy+u2GEtaPswew3UG4kkXtawgEF/gp//kiKDokr
LDTuRFgQ84Xv9YOJX2sDsEbv6ibDmjr4tGfE0mr6ez6V8zTtytdaeJdzQip2
nzf+kDf11UxrA5Xt9/bZz/3z/ZtfqK70vYyKv6/qfEn49ALgnuYatTM+qNzW
K2FJb4EzpYnLfwf5IW/R59rTHE0gr5mskrw/EAtONJ1eK1wLmu5sS+Zr+WPV
bdEw5ZsNoOE477bMb190AMEKxZomOGBgHjV32Afrq4/aty5ugTHRRkb6wz/8
+/TDVk3+pGLDfFEz78QXUNoU+PbS9PfoiwMXvPI7a8FUhadhXNQfxeX1/4m8
3QBvNHsgbIUfTjqmZsRONsLmZ1tb9HgDcC3z9aiSYD0YSIhn/1Twx9E228ZH
kg0QOfWkfa5UINZ3j8RzRNfC/TtGO3WUAvCcvkEax+E6kKi6JJIxJxAnw9vs
7Oi1kO3xV52fznR9wu2LRKi1ED/KdbrBMRC1ePnGOfVrIaPjVrxtSiCeedUX
4PnrPfwfbdPW+A==
        "], {{
          {RGBColor[0.293416, 0.0574044, 0.529412], EdgeForm[None], 
           GraphicsGroupBox[
            PolygonBox[{{359, 127, 384}, {384, 127, 373}, {370, 127, 364}, {
             373, 127, 370}, {364, 127, 359}}]]}, 
          {RGBColor[
           0.36722890836675137`, 0.18574511336652683`, 0.6331649720791463], 
           EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJw1ks9KQlEQxs/Uc7ToHWpT1CqoEFrkqm4URAVuNCHwTwUqXItSMCETTPsj
apC3ujckXAi9UO/QN8zn4sd37rlzZr6Zc+YPU9vJGefcFpgFPrgDbXAFquAD
ZKhFUAB1UAbXoARy4Jbn24ytMv5AnNuFbkJXQAzrHbE8RdaZ5s0wbwV0wBni
stB1sW+f/5P49qAeNO4s/x4Y0EebnkrMqZxyrw9eQI3oukFP6m0D2hTrsSIW
ozlfQV7Mbx3qs4dzaEOs52f1S8/qPSHm6wh6AtJYH0Mv6F/78NlrEzywlvZR
FptvTj2w/ydoCJ1oLe1JrK8MdIm1EtzT/Gnew3TG+/SWZYz+z4M59q7304JG
YAhSYjO8hH5CHzmHHvhxFrvIswti96F116BvnEmDntXvmDPS/RuxfDXmDJhX
72LEdcBz2u8v1y16+3N298tiZ3r898071XsOxb6/6NHjOyjzLRW4F+f7Celx
whmMWWs49c5YPRNjzRFnEVE1LmBvPegqa+ucBqCr/ULfxfruiuUI2HvEPjRX
X+wt34u9S82j+f4BKRd9rA==
              "]], PolygonBox[CompressedData["
1:eJwtkssug1EURs8Wr2Fg7gmYakTMdIaQiFtCVCsuLaKEulSqquhAiZZW3K8R
A4kX8g7Wl/0PVrp6Ts75z/72bh9N9M+2hBA6oBUOLIQSv1nYxvNwJIctvAb1
4Gvae4F3vAFVOXzjX/CGb0AWFmARnuCZvRrc4xdwil/BnTly3fmK38B58DM6
W4IdOdziU5DBkzBh/k19+1Nn8BOoRu8t4DGI48swjE9DGp8TeDcM4kPQiY+Z
+wCM4ElYwjchYV6zai/CIX4MZ3gTHsyR6w0NfM387C7k8BXzrFVTBu+K3tcH
bfgH/OI/cG1ek2pTZsqubp5lHvbwS2WqPupOvAyV4GtF8x6ql1rTnt6styvj
R3zSPAtlOmN+p+5WTapNd+ruHKybI9fMVPBx814ow1V837xXykzZ9Zhnrxr/
oNc8W/2PRTOiWUnBvHnNql0zpdlKm2ennql3hWg+NZNN/B/Q/mF6
              "]], 
             PolygonBox[{{375, 112, 359, 384, 385}, {371, 370, 364, 122, 
              360}}]}]}, 
          {RGBColor[
           0.5014615698471252, 0.41913946013689124`, 0.8218452163188666], 
           EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJwtk0tLlVEUhvdKahw5cFQi1MguoyyyG+HpEKQno6yJpgcLKdLKQXQjohtW
nBNqUEEKZRfKbiYhFEU/qN9Qz8t6By/P2t+3917X3VGfODq+qpRyErWgi1HK
DHwAv6I/2O/hLbSAfRkOotPYdXgPvcO+AT+gX9ifYCvajt2h/2gZexquRlux
22EP7EWH0UPWK/AlPI+GsA/aj/b1ofWsj8Fu+AL9xv4S6U9+XytGx7wMx9AU
9iT87O9LsOL7dO+s/d6JjEmxrYEHUBW7C75FP7AbcI/iKnnHCVPrZsnYRlDx
Pcr1m/0u+GzN+1WbfWivbVH/K+ybhIfgXziIqti1SH+9kTnoTt29JfLsDlh3
TgMl6zbg9RGfrTmuLvucYf0TTkXWo+JzDef7JLL38jUX2ath92vIcSrej+5F
E4Z9/EO30TV0CZ2NPNsHd0fWYD987j3ae4r1LByFV9Ez/YPX0bxii+zTiufl
rufqEbyJvmPfh5sjc2yDO133bZF5Kt9X8IxnY8zz2yg53+s8t5rfCb8FvYld
kXn0RMaqOBX7hciz5yJ9K4Z5z2nT/Tvumg17n/Zf8fzX/QbmXGfNadP11Ixv
ipyTzsgeq9cbI2dUdVa93zivRf+vepaeOh7VZiRy9vpdj4pnY9FnNQud9rUB
Pnad9T7aXM+18D8RdnMH
              "]], PolygonBox[CompressedData["
1:eJwtk8lKXEEYRusPPkBwH0EwO002USSaVsQYx2jEYRHHdgADDmgTE1sFDYqG
OBuIbpwnRFAQERTFB/Idcj7+Whzuufd21f3qq+rs5HDj0IsQQiFkQL6FUMu1
AxJ4FYzhm9CJ50ACL4HX+Beoxz9oDvytuX+CMrwcRvE0fMU/QxdeB9V4GzQH
f/YNT0If/hFq8B24wW9hFf9hnkWZOvBLeMSf4Aovgia8HZ7hJ/fLXE9hHu+N
43/BAH4A9/gDnJtnUrakMuEV5l2okxL8LOa5hj38yHysMlzgpRoTvJNu/Dds
xO/v4gXm3ajDPPMMyqKO3uPbIvY9i6+Zjz2EJfNMytaiTObP9G4HFsyRaw7N
9U57EPNrb6fifMo0bN6xum6FBvwv3AXv5FhdmL/TmoqVFVa0Nugx70Rzaw+1
l1nmZyMfMvHxmE97MIKnYSv2N4d/j3n1mxntfbxfhH58KPahZ5Pma9badUba
ddbMs2jPX+Ev1TH+BgKeinnVp85Otnk2/SbX/EymY1/61mw8HxqjtSbi/qeg
Et83P4vq6ET/DfOsyqe1/DFfm87IP+21+VnUfMqyHt+rgwl82nxufWMQ/w+z
HWVk
              "]], 
             PolygonBox[{{355, 97, 317, 345, 346}, {346, 345, 328, 116, 
              382}, {407, 406, 416, 168, 401}, {417, 180, 424, 406, 407}}]}]}, 
          {RGBColor[0.6166644185980543, 0.612470319320351, 0.910703411527251],
            EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJwtkssrhGEUxt8zVrJwibJSIzNSGFKYKDOUXIaGnWkUo4TCbpazYBZSFlbK
znL8cVi4xMrvdJ7F0++833fe5zuXL9u43r/KpJSWUBd6tJQ68AneKX6AdXRP
vAKHUYG4B27CA1RCkxZxFm6jFnEDPsvH/XJwFOXRMudTuAP70SzxOPxQzhsa
4lyEE/BTz79RE52jV/Qi/45F3R09K6k2zzvi3IZbFv101Kvf97it3rzHdXis
dyVYVS/e063u3lj4nqEqmuO8CosW7zzH+75U3II/Kfr/RasWdwvwXX15fxeq
oa5Z+Uxm/L0Fe31O+pZ/c9FiFnuejzaIx2BCC6BPfm31mZNfQTX5s5rFXDxn
1z1T+Pv9MucyXIMnyvcZDGpf3Rb78Pp9by3txL0GtIMROK168hY79rvuUZOn
e2cs/osvdKh6KnDKYsbz8E//Tkbzb2oHFeX7nv8BF25Gbg==
              "]], PolygonBox[CompressedData["
1:eJwtkb1KQ0EQRmdEBUnhX6GVcIMJiD9JmiSCRRJBtFBjOgsLU4gG1M7Syipv
ID5BfBKfRisJ2uj5mCkOe/bu7O43e4vh4+BhxswKmIWBm10ydgX+CncW37R2
Cjf4O5x7IH+GPn4EY3wC9/gW7OM1WJdDD29DHT/0uKsFe7h71GrPPL4ADbwC
U1jLeuXZwasee3VmA1/KeTdrW5m/D7v4BTxl/mt8ziOL9hjeyX7U4wG+Cid4
B1bwM3ix6HGEb3is6Y5t/JuxCmX4gr/Mrp7U20/OVfMLQ4+305lX6h1uLTK2
8bfMo/P1LxahbvEmy/gmHOe6ei3l+6mm7JFJa6qp4EX+X/Wk3j4zqzJ9QNPj
rZShh/8DoZUrSg==
              "]], 
             PolygonBox[{{288, 287, 262, 57, 277}, {304, 56, 261, 287, 
              288}}]}]}, 
          {RGBColor[
           0.7153564851352213, 0.7710410088859755, 0.9129532866685789], 
           EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJw1kLsOQUEQQHcRQiKiIB6JRyOuQjyqq5PbKa9CrxV8j/iE+x+ikPsPiBAS
KhE0zmZHcXJmsjOzs1ufLv1FRClVgSjktVJ9XMQv3IMk8QmX4Qhbqb9DjrM5
ruGb1Pxrq1K3l/gMFzk7SI/p7eAQx2EDK/IAr7U9MzWutj2m19wzIffwGKfB
IU7gFLSIv8rOmIEPbW1jT9sZZq8YDOUuH5ek18x44CY8oUA+wg6+yg7mHV1t
ZzfwTvYPZVYg7/go+59vyJIPcAb/AOEPJi0=
              "]], PolygonBox[CompressedData["
1:eJwtkDsKwkAQQHclKqJ2fkBBUUE0hWBSWYZ0lhEvYCvqhbyBtxAUDF5CLAQb
m+Cn8w07xWMes7MzO9tb7ZJtzhjTBA8q1pgy9GEAD3JdaMMTTpDX2guMqZkT
N1DHz8SC1khtiVxAjKGGx7DGDxDhe+tc7i/xN9GXvpDBUWdJvxSK1p1JTQv3
YKT1VXwIiXEzJviX2NEdbjCzbpbMDK1DXO5McV/fG0ID/6lL7gN3/QtP35bp
bHnDS3eQ/vInAb6wbne5L71T3UX+6Ap/W8AiIQ==
              "]], 
             PolygonBox[{{296, 295, 276, 67, 343}, {251, 42, 246, 240, 241}, {
              259, 258, 245, 40, 260}, {241, 240, 238, 30, 248}, {291, 290, 
              271, 58, 284}, {284, 58, 273, 295, 296}, {306, 74, 280, 267, 
              268}, {281, 51, 250, 258, 259}}]}]}, 
          {RGBColor[
           0.8088074511659199, 0.8623966160487209, 0.8933439912578924], 
           EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJwtkTmKAmEQhbtUcJ9QECZQGgbRzNhTOAzmHkBPM5nHccFMGXBfI8HMMRE0
8Cv+F3y819XVtXW122/3ElEUfUES/sBgAVn5HNQwv+gn+iM/QFfK2cAdKvAP
U8VHcJA/CvcnmEEG5jBRfAgd1feeRWjhU2hB8aaFZ48n0QfagJvm85zYQm+v
OVY/U5+z8v27D4Ix+oI6vod+W9jZ8/O6hXvfdQ0FWKq3z1C2kGd6d1P9J6QV
zwjTXWPN6TtdozDDBUqawWfZKX8vTLfcyG+F+53u4jX9/7wBBxowTQ==
              "]], PolygonBox[CompressedData["
1:eJwt0EsOAUEQxvFukYxX7EiwEktbS6dAsHaAcRoXIrHwfk3EUhgW3ECIf2W+
xS9d6Zr+plL10bgTppxzJaQxwxQLLHHHTXfW+6CJFnLeuS5C6gkG1HNODhdg
gz0yyOJgNc0AVdTwU5ZlftH3SZZlDqnPnAVlHhEhr7sLTjaH7iL9I6s7673x
QoyHMi27jR71VrPajDvNYLM0UKRf8cm39qbsk53YblZYKzPWjmxXT721jCv+
zWIrkw==
              "]], 
             PolygonBox[{{283, 282, 266, 52, 254}, {233, 232, 226, 32, 243}, {
              205, 204, 206, 7, 207}, {242, 32, 226, 235, 236}, {252, 35, 234,
               232, 233}, {340, 60, 269, 263, 264}}]}]}, 
          {RGBColor[0.941176, 0.906538, 0.834043], EdgeForm[None], 
           GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJxNkbkKwlAQRZ9JY5NoUFzzioBg5c+ISGo/wHxkShF3xN5GsNLWBO/AESwO
M7kzb7Zkq2K+DpxzUxGKnvCiKzYiFaUYiCGxkcj4tvw++rjhXCHbxM7ERDzw
P7wJqeGpk6JbjwDN4lZjR3yL7smN6VGhF/Sq8W2WJ9qL9yk7/eZbyL6ZzWY8
Uv8gTiISV/IsP5eNZVvk5ehL2TOa1bjgm3bDN63DXT03tXnu6KYloo1vPWL8
CD352z/gjhX71tzP8z/21Lf7fQFa+iis
              "]], 
             PolygonBox[{{216, 15, 14, 214}, {228, 28, 33, 230}, {218, 16, 15,
               216}, {222, 22, 20, 221}, {196, 3, 2, 199}, {219, 17, 16, 
              218}, {220, 19, 17, 219}, {199, 2, 24, 224}, {214, 14, 13, 
              211}, {215, 13, 29, 217}, {252, 45, 111, 270}, {230, 33, 36, 
              236}, {242, 36, 45, 243}, {209, 29, 28, 208}, {223, 23, 22, 
              222}, {224, 24, 23, 223}, {221, 20, 19, 220}}]}]}}, {{}, 
          TagBox[
           TooltipBox[
            {GrayLevel[0], Opacity[0.4], 
             LineBox[{196, 199, 224, 223, 222, 221, 220, 219, 218, 216, 214, 
              211, 215, 217, 213, 212, 210, 209, 208, 207, 205, 203, 195, 228,
               230, 236, 242, 243, 233, 252, 270, 253, 254, 283, 264, 340, 
              344, 342}]},
            "0.9`"],
           Annotation[#, 0.9, "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            {GrayLevel[0], Opacity[0.4], 
             LineBox[{201, 197, 198, 206, 204, 202, 194, 227, 229, 235, 226, 
              232, 234, 231, 225, 248, 241, 251, 266, 282, 263, 269, 260, 259,
               281, 278, 298, 339, 343, 296, 284, 291, 268, 306, 341, 412}]},
            "0.8`"],
           Annotation[#, 0.8, "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            {GrayLevel[0], Opacity[0.4], 
             LineBox[{200, 238, 240, 246, 244, 239, 245, 258, 250, 249, 247, 
              265, 276, 295, 273, 271, 290, 267, 280, 297, 277, 288, 304, 313,
               307, 305, 294, 302, 323, 321, 338, 409, 411}]},
            "0.7`"],
           Annotation[#, 0.7, "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            {GrayLevel[0], Opacity[0.4], 
             LineBox[{255, 257, 262, 287, 261, 256, 272, 279, 300, 289, 275, 
              274, 286, 299, 293, 292, 311, 301, 310, 322, 303, 312, 337, 353,
               320, 316, 333, 335, 336, 331, 354, 349, 332, 352, 330, 334, 
              362, 348, 319, 326, 365, 382, 346, 355, 387, 386, 410, 392, 397,
               401, 407, 417, 425}]},
            "0.6`"],
           Annotation[#, 0.6, "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            {GrayLevel[0], Opacity[0.4], LineBox[CompressedData["
1:eJwVzL1KggEABdCvB2nwHXJJbCqspcEtBAPRUIJMDK1UJEjDkoxKabHCNMV+
LPO1eodOw+He4XJDqXz8YCkIgm1WlDBrbLJDlGUi/NrE5BHHJNlgi13S5Fhl
nQT/51Uy7JGlSIkzyhyyzwlNauQpcMkzPSbcckqFBm0eqHPBEzfcc84VA8Zc
0+WVd+5o8cIbn4z4oEOfL76Z8siMOT8MWfAHZvUpSw==
              "]]},
            "0.5`"],
           Annotation[#, 0.5, "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            {GrayLevel[0], Opacity[0.4], 
             LineBox[{364, 359, 384, 373, 370, 364}]},
            "0.4`"],
           Annotation[#, 0.4, "Tooltip"]& ], {}, {}}}],
       AspectRatio->1,
       Frame->True,
       FrameLabel->{None, None},
       Method->{},
       PlotLabel->FormBox["\"Constant force. mvy\"", TraditionalForm],
       PlotRange->{{0, 250}, {0, 1}},
       PlotRangeClipping->True,
       PlotRangePadding->{
         Scaled[0.02], 
         Scaled[0.02]}], {580.5, -580.5}, 
      ImageScaled[{0.5, 0.5}], {360., 360.}], InsetBox[
      GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJx9V3k8lVvbRjM5TomGo2NOhTqZ0ib3Lcqwi2ibI7a9t4y7IzTXofIWkuaT
Bg0ICZWKcFJUZAihbcg8i+qU3mTo67zP/q1ez/f7vuef/bv3utd1rXXd676e
9Siy+bZcMREREQdREZF/fqlnDlK/LVBvZX27aeQn1P7P8wpGBz29tWsWYFnp
P89bSPp07sKOdkWMPf/PUwf7C5U11gwrCccbgcJRIXgN6anT7uYoIO8/Ty1k
vi3M6RpWEc5vFfL9SvjocXSCXtWtHlVh3A754vIiz8zlhPgVsMmlnuG4fr4Q
rxjezr6Tc6dskXA9HcL5MsL5BcL1zxLmZ4Pmk1OVP6eoCdfXJcSbIRxPht3e
Eudv718s5OsRji8RjvfCRt75kmTppUL8fqFeS4lebzlHawNOqAvxB8Hj89em
jAF1Yf474X40hPjvQWXPyORuQzWyf+r/ZUTP1R/Fj3fJ6xB8Sq9ltHwdkk+t
h0HyKX4Dwm9+onKZr6s2bf4qMt81uEkRnyKZT61vJS3fiOTTY/XRJNewACT1
u1a57FLUI2OiN3V+1hA9qf2ZEj56XKxveMP0b1Oyfmr/RrT1mBJ+qv5rCT9V
bzNavS0IP6WXJU0vJuGjcC0IPqWfCY3/x/jfVoXr6thMwp9158uUM6c3EH61
v2MsAuKsCT+l90bCP1a3OTI6yIbwU/qb0fisaHpvpOltQ9PblqY3i6Yvi/B9
46g2sOWYE/n+sCF8byrezf1TfRPh67bweFCeySJ8PVIHtMuU7Amf3O8rR6N2
OxC+M+d+KfjKd6TV04q2PxbtfP2Iqfra0errQKuvE62+zrT6uhB+l4u5Jrf8
bWj7tZ/I/18x7t4XVZDgSPgDGc/6beOcCX9eou6a9uDNhL/BL6a2brkb4afq
D8Rvqj7sC7PbvI7408TzU0A7L8X/K6bO4yayfnpc1XCuOK6PRfyY4rMnfk6P
L93TeHDygQPN351o9fi/4xa1+z7u+s7E76n9uBC96PGNc5d95EM3E/+m+sWV
1i9baP3iTvQUmFh9c73sJuTvAb3wrvlLNtjR6ulCq+ePOF5ZQvSdvBtZz4Ez
MjH9pu6Ev/jXkKS9HA/CvyEzyPFUIJvmjw608+s2ke//ian+daf1rwetf9m0
/uUQ/lnbfn4fr+E0kR/dCf4hXilDssyD4BdKmqdoMjwJvrZPZfq0aA7B19S6
+nRVGZfgU37gQtPTg+YHnjQ/4ND8gEfzA68f70snxjOFma4T8fPZBF/PQHpI
KYJD8MXDdxfyl/MI/syMMq0WNW+CN9Hfk4X+4karD4fmJ1yan3gRfMo/fAh+
h6KWVXmwO8HrlnJO1zfzIvM3jqc23VbxJvOpenAJX7/m17jwMD+CR/mPB01f
Hs1vttL8xofgU/4SQPAqZc1WRXHZND29CN75jiveVpN9CN6ZkOYvH+f7EbyS
m4skNd/waX5lTfMre5pfuRC/ovzHk6a3N+Gn8n1p70d/wv9IYrOKpR2Hdp59
yHz6ODO7W5nz2I/gNQzOktaT4hM8yg+4JJ/q720T6/OHL80PAgjeLZHfpaav
5dH09CP5VP970fYbQMZjhw5/faqzlbYf/kQ/+K+Y6mdvkn+kL7bzoIrPxPkt
20g+1Z++ZDykOb3CeI7fxHyFQJL/7/IRpan+yrgXd0paSNdA+2DrDH6JCnqo
J6da3RXAljVX+cGaKrhINE33UGMtrE00ejHgpIrLR3hL9yTVw/0A/fq7Tapo
esdaM7alEZQusl5EhisRvgKjrPCV7EXIetrrFxnRDJ0rGWLmboooa33B/LhS
JUy2WlCxbWARDjT4H3OPbYVJRqYjH57IY27aId/k0DLYkL3j9jVfObQ8dWDa
uEURJCnJbvL3nYs7i8o0S/Mfg6Hc8atrf5XBxR0lf31xyoO7RxX2MNPUsO9m
0EKmcw+EhnHUbDtV8e6DkQ/LDvXB0qWpCnX6i7FZyy1u+65uiN0xZ5gZpoJi
jlMb7br7YYt0rNzscGVy3jNKDMUmXVTCcfa9mws8ByDBZGuU7m9KGLswFKvP
DkBUviEj/fsrKPGBzSfNJwOARUW9X2p0cX+khWaqVQ+Yl2bJT/tTDcWrMxZ+
NO+ABdsveWmclsQU7p2i62rpwFvR2F4io4vl06w17Fq6YBwUTscN6WLXtJ2L
17gOwLGYUNV/V2vh3jNmT3SfvYT9Crcst8gykLfW2uZfHo+BnSnRzy3RwZ27
1S01L32/z6erxK/4yxizra+btrgMgPt44tHHc/XIfnqyjsao5GpjqVitIPpB
FXjKZSX57Gbg2Uqx3OjqAjBbNewbr6iLl540jYyFN8Bw2++7+A+MsbTrrMIM
/37ITNTVWjduihWDtiUxjBpgrRDd6tP84/shX7TUcZ6kAYZsuj3SKHgOC0Xv
6YG6IW4rl5//m34VfORc5g5sNcLftsUqVGYL4Kb/0oivEca4943K54N/dYOC
2jLjoiBj7JpR7pGa0QlmDmmZt/KMyfqH9s6Y+6HUmNzXutLbEg0LLLGrT+k1
N7ofancvTlYMt0C8FqPB9noGezpCEqQnIx7M60h+0/0GbO4yloxdN8KoPXsS
Dqe8BmgwSP0pxAz7Q7myRhta4Gzr+4VzP1niPNurcW8y+4A/8KXMp/rH/b9N
gR89uYiJ4dPnldxqGSTvF5Y3f3v/mx/fE/kLz7B1DhbA/JHeiFM31qHSjs03
w640QJxxk/ZxZ8R315dIq461gPGLI4E53ky8OOT3OYRfBFJPGlYX1Vui06BA
3JfZT+5/LM7SE6n3nsGUg9/S7vBt0ElD20iuoxmqzqV6TZ21Dr+a7PvpumED
JLc5psgrmWJgiK3o7pqXkGBUKpD+aIZHijvz3he2wQdlryr5uRYY/6x/O380
n/i5qt1r/SsJtVDpJYifDjZo7mcWf6rmDfR4sTz3K27C2KNK0doa7TAcMvfs
yUA7XLb+ZMDVjz3wzGCJ50FxBywfG3Ma0RuApvyO4cgjTBx9/bYt/e1zuDyv
0l7uvQXmKG0/EXz7MRTISBRrB9kivOu7IVPRAsX89mTWcRu0la1zkM5+A1UW
iuFn6zbh7H71Y4UNnbBT9OqwyTQWjsnElFj1tUHZfrmShAMsnL1UTz3jUAeI
f97Wyptrj5Za69JMXvbCpdLQkNmHHUi9WjpyJfOlbFCKE2W/y7QeeldHRI0l
MtGtd6HBgoLnwDrHzjJQtMCsrkcnf42uBwdB9fS7ay2wOiBdteLVffDkDT/N
3GWDcUX21wNjG0BG54LL6DsWpsp55gcweiHpzHPF8QcsFFT7b7mb2wnt4inD
y7Q2oeCzS6LmYCv4OdsNSohvRLEbYZkrdGphw8g6Xw8ne5y5tZlny3sM8xwx
y6jSDfP/5quU9NeCyDoY93JiYuQkl2vNT5/Cwz0fZzDXS5D3bfzyKOkSI3US
L8vfcMe4ZiWJecpDxwIzrNDqheHbw4WvYKP/lbXfoozR7WWQys/aGXDDoK6E
zTUm+Wderlp/eI45iX0HFKYGtJmjz7n3JwSJ2aB020hugbg18mLH6q/FV4Gq
oPBJxIqNmHE9yzChTQCfvYL+tBW1xheP3s5JTKmCopZiL8UZdtjYXh3DKuwF
XZ9ZUj9tscdrzFsZ2Zn5UJU7HCbu44EL9h2KV29shoNBn+qaf7HHrqYCPdPu
PBh18mAy7OwxKUgn7UBOPpzWS+xd/NAFGbMsH8lufgUvnCVzF4W64LbrZoMp
8jUA9xp3XGx3w7hP/MdTU+tB5bVzWnYxG9M6y774Xm0l95PcwEV+J3zyQebk
lOqWOVtwkpO4Zv5cAVhuFNOcd9kTTaRdq5uXtsP6wP09vpEcNBdx6u237iT3
mQt7xdLVv/uXsq+80dHV9shrC/6Xvs8jkJguGdQX6I5Rmi+NxMrr4RRTYnD8
qDuaifte2TPUCGKMNk7EfTZGrrwV7RjTCr9sTXF1kOdh7rMySSn9Xoi3SBfR
FXDRj/v85OOhHrgqs3ZnywF77L9/4/TM+nyYV5hwYr2TO3ofEdisG6mDZCnd
4JwcN1QQFU+JC64F/Q4YfeTLxunmOYp/5rXBmp+bZCfP5OCiDym1plUdkDa6
pKM2lIOZTwxZp5d0gYTUPdPSRA7aSRns/d2pE/a6+OzbFbMFefP3JpbOF4Cy
dDwjwt8FLx61yMyoqATHghOGS/ScUTxv/ZZgbhnI1tZckdzngacP1U2f8uG7
P0xbZNY9xkaDc+7jNq9b4WKH/aTxZA/cyQzbcM6hGVokzOfbqvBQTY2h8cvK
XjB2TVbgmnjiw5mN87mS7VA6dV5aWAEHFefZ5dhld0JK3sPyqgQu9mU4aJ34
3l8bLyXtdFTmYaa3if0fjr0wY+jTy8WTHdB3s6A1u+AJaH71Walobo4X/EOl
kxi3IcUwe/2MFS5496rK4s/sCrD5rTxpXM8Dg23CHIpSmiEs2O/A+RUczLEN
e7WZ3wWO49cMvmRx8WRkjbNrQS90Hfig2Z3GQe8bF5YLLnSCa3+6brkqDxM/
M7U8LXtBr6ztqfGoB65PtKoIZLRAlj58a1ruiVk5spNWu7dBxLj6lNl5HOQ+
dDqdltkJ7MG1OrXH7FBeb8f0KVOz4H8A7FETEQ==
        "], {{
          {RGBColor[0.293416, 0.0574044, 0.529412], EdgeForm[None], 
           GraphicsGroupBox[{
             PolygonBox[{{208, 17, 215}, {212, 3, 211}, {211, 3, 210}, {16, 
              15, 1}, {17, 3, 14}, {213, 3, 212}, {8, 3, 6}, {6, 3, 5}, {16, 
              1, 2}, {9, 3, 12}, {15, 3, 1}, {11, 3, 8}, {4, 5, 3}, {1, 3, 
              2}, {14, 3, 11}, {12, 3, 13}, {2, 18, 16}, {3, 7, 4}, {207, 3, 
              206}, {13, 3, 15}, {204, 16, 205}, {209, 3, 207}, {216, 18, 
              283}, {210, 3, 209}, {7, 3, 9}}], 
             PolygonBox[{{196, 6, 5, 194}, {198, 9, 12, 200}, {202, 13, 15, 
              203}, {200, 12, 13, 202}, {197, 8, 6, 196}, {205, 16, 18, 
              216}, {203, 15, 16, 204}, {199, 11, 8, 197}, {206, 3, 17, 
              208}, {193, 7, 9, 198}, {195, 4, 7, 193}, {201, 14, 11, 199}, {
              215, 17, 14, 201}, {194, 5, 4, 195}}]}]}, 
          {RGBColor[
           0.415974651055972, 0.2705007953839793, 0.7016830103480475], 
           EdgeForm[None], 
           GraphicsGroupBox[{
             PolygonBox[{{223, 28, 214}, {27, 21, 26}, {24, 27, 25}, {22, 21, 
              27}, {26, 21, 20}, {198, 26, 193}, {214, 28, 217}, {27, 28, 
              25}, {23, 22, 27}, {26, 20, 19}, {30, 28, 33}, {29, 27, 26}, {
              218, 28, 223}, {29, 28, 27}, {200, 26, 198}, {202, 26, 200}, {
              195, 26, 194}, {24, 23, 27}, {203, 26, 202}, {29, 33, 28}, {193,
               26, 195}, {229, 33, 224}, {197, 26, 199}, {216, 29, 205}, {199,
               26, 201}, {194, 26, 196}, {208, 19, 206}, {196, 26, 197}, {201,
               26, 215}, {204, 26, 203}}], 
             PolygonBox[{{215, 26, 19, 208}, {226, 30, 33, 229}, {217, 28, 30,
               226}, {212, 24, 25, 213}, {207, 20, 21, 209}, {210, 22, 23, 
              211}, {221, 25, 28, 218}, {211, 23, 24, 212}, {206, 19, 20, 
              207}, {205, 29, 26, 204}, {224, 33, 29, 219}, {209, 21, 22, 
              210}}], PolygonBox[{{219, 29, 216, 283, 284}}]}]}, 
          {RGBColor[
           0.5468402120338355, 0.49804066371648253`, 0.8856303875032078], 
           EdgeForm[None], 
           GraphicsGroupBox[{
             PolygonBox[{{37, 32, 31}, {35, 32, 37}, {37, 39, 35}, {234, 39, 
              248}, {240, 37, 232}, {37, 31, 34}, {248, 39, 239}, {235, 35, 
              227}, {218, 32, 221}, {227, 35, 233}, {222, 35, 235}, {229, 36, 
              226}, {226, 36, 217}}], 
             PolygonBox[{{232, 37, 34, 231}, {225, 224, 219, 220}, {239, 39, 
              37, 240}, {220, 219, 284, 285}, {233, 35, 39, 234}, {231, 34, 
              36, 230}, {236, 32, 35, 222}, {214, 34, 31, 223}, {223, 31, 32, 
              218}, {217, 36, 34, 214}}], 
             PolygonBox[{{230, 36, 229, 224, 225}}]}]}, 
          {RGBColor[
           0.6475526228659274, 0.6620990688445687, 0.9114075674475891], 
           EdgeForm[None], 
           GraphicsGroupBox[{
             PolygonBox[{{287, 89, 288}, {52, 49, 48}, {44, 42, 46}, {41, 53, 
              42}, {255, 48, 241}, {53, 40, 89}, {44, 46, 47}, {230, 89, 
              231}, {50, 44, 49}, {47, 48, 44}, {222, 44, 236}, {250, 50, 
              237}, {234, 40, 233}, {49, 44, 48}, {240, 45, 239}, {247, 47, 
              253}, {244, 50, 242}, {46, 42, 53}, {40, 53, 41}, {242, 50, 
              250}, {285, 89, 220}, {225, 89, 230}, {231, 89, 232}, {220, 89, 
              225}}], PolygonBox[{{248, 89, 40, 234}, {235, 42, 44, 222}, {
              228, 46, 53, 254}, {245, 49, 52, 273}, {232, 89, 45, 240}, {237,
               50, 49, 245}, {241, 48, 47, 247}, {239, 45, 89, 248}, {254, 53,
               89, 287}, {243, 44, 50, 244}, {273, 52, 48, 255}, {253, 47, 46,
               228}, {233, 40, 41, 227}, {227, 41, 42, 235}}]}]}, 
          {RGBColor[
           0.7437690914140038, 0.816692161284192, 0.9136010065797118], 
           EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJw1j8sOAUEQRbsZ8X4siMRiRDx+wAYzXoNZzNLS0gfw035ASKxMnEqVxcmt
7ty6fXt0vZ9vBedcCEWYeOc2aB8dQ8Y8RRfoEuawMpVz2/yyt0V3EMHR6Tky
n+yvYYjvgubQY07RBtqChLnkFZmbXncyy0gsbw8PpzlfGOA7oGU0tJ2OV19k
nSrWr+r17v+P3HIkr247NTSwDjOvPnlf/plaD/G9LedlPrnveu0tc2B58v4J
PhDDE370YRnr
              "]], PolygonBox[CompressedData["
1:eJwtj7tOgkEUhM/+EIJAwh0TChIgPMFfACrIRS1MbCgpfQB5cigIl4AS+SZn
iy9ndndmd7b7vVn9JGb2CFnNYDZljiGgW/COnkEGXYc39DP8wYD1J3MCneAZ
ZbXXRxdgbn6H7qpBFf5ND5jlYIRM4QInOJp75E3gybxTGf0Ar+Yd1EWd1E17
+eCd1E0ZZRuwQH9AE71nDuN7B6gE764O6nJlLqNH3h1sYyd1+41n8rTxl4Lf
rT8W0TfmGl7gHP+UxoyyveBn8nyh7yvTIFQ=
              "]], 
             PolygonBox[{{333, 90, 287, 288, 289}, {263, 67, 250, 237, 238}, {
              256, 255, 241, 60, 290}}]}]}, 
          {RGBColor[
           0.8321006449825009, 0.8701642755174219, 0.8829086613018551], 
           EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJxFlEtr01EQxe+04BsUn+BCaMWVK134wDeibaytaWJiQCnVFipqUmmNgm2j
tvHRbPwS/XwuBakLz2F+wcXh3P/MmTtz5879j71YrnVGSimLwqjwS/gp7I1S
XotbwhNhTfgsdIVVoS28EQYlddZ8wmf7V2LeCRvCuvBF6OBvAcd+wP8NTZc4
x1+P9DvPrNZb4gfiJXFP6JPzIzWtk897NIVq+a9tCAvChOJ/iKfElyO1N8ST
4vdoLkTWMil+RH961Dug5h72BvV2qaHD2VbQrfDtnNslz7BKv1z3TMnczvvS
56TuJuer4nOeSsl6lrC30Q/vqcX3Ijrr54U5YZl9KuRsoBtqptDNYBv2w1wX
piNnYzzye0J4Tp4qMafleyreFfawPiL+K64JxyLrqxDjb9v3i/+U1DtuX2Qt
o+jb9HcEvfc7zNq2XWK9R6HOo+KzwjObIr9t/y08jpzn+5Hz2KZ39u+w1xw1
73DWOr3Y5i7rkXs5xu/mTKT2XORsWXNF3Iic7Xviu5Fz81B8UdjU+lbkXtZ7
NmvCd61vR9bt+k+JT0Te03Hxtcj5uSM+GHl3h8TVyPm/Gdk7n+FkJLw+IL7K
O/J7GqMn09S1wJ03qcG1VFjbNo7ePe4zo57FTeZ6g3vtM8tb+Bzvd/NKOO83
FdnzS7xlz1CPGZ5F53+I72gNm/d7i2+A9h/7f3OW
              "]], PolygonBox[CompressedData["
1:eJwtkkdLBEEQRrtEMYeDYjgIYs4557zmjAdFXE8iuitiADHnm3/CH+r7qD48
5tHTU1Op5iS9ncoIIbRBJoxbCDc8X2AXz4Q1fBEK8Ql4xF+hG1+HD/wJZvE5
+MSvoQmfhy/8ATrwZjjC/2Df/I7uXsAG3gfp4Hd0tx1S+BVU4vXm3x5CLd4K
Z/iWasCn4Rk/hy58Gd7xb1gyP9M7xVRs1aTaEpCF58J2/H8OPmCe2z304yVw
EPOvxutiPvqmGF8178UtjODZ8Bv8myrzM73bgUY8L/ZjBfLxcvPaFFOxJ+Et
eM838SnzWnTWg7fE+ahn6p1yVK7qwSg+A5f4KfTiC+az1Yw0K53pnWaoWVbE
fiimYqvn6v0djJn3SL1agiK8wDz3Yygzr0m1JaETb4jzVDztks6ScZ/0L81M
s1OOyjVhvlvamT3zndHuaCcH8VLzfymmYg/BT/AZD+P/Exw3jg==
              "]]}]}, 
          {RGBColor[
           0.9411759999999999, 0.9065379999999998, 0.8340430000000001], 
           EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJxNk9tOk1EQhf+tLyGXXuEBBQRUEFQOGjQGCWq8N+FWn6MojYcCSmlraTi0
EhGw1KbS+miulflMvFhZ83fPXrNm9vTiqzdLr89lWbYsnBf2hQ0hD/u7I5SE
glDlrEP8hd+3hdmUZbviBXGX332vLhyTsyd8Ez5kkbsmvBe2hE/CL+FIOBNq
1M9zXiCuotWjfhluoPEVnaKwLuSosULNzn/9WesAn9ZrCU3hWoo7Qyn0rHsq
nFCvxZlzplN4tec/wmV974hHxc+FiuIp8XXhreIH4uEUM7grPhS36XcLf/vo
9dDM0Ys9PNWdTfEl8Q/m6b5eUtf1PWfXqjCPU2ZylTdaYV5NeqlS9zffbXp9
lmKOrv9I8Wfx4xS17WFO/DMLH9YdQN91/O5d3r6M3iFxgzoL5I+k8OR5Tiq+
QC+DKd6nircR8mfEt5in53onxS6NpfBkbw/F48JHxbfFV9C0dgm9LjM+o+c2
Hk/Ywxq/TXD3SYr8Y+422b0eeS3iSXajL4XXf7M5Is/1+tG09hj+b6bYgRw7
N0qOvReoWecsx7v6jTeZv3dhj7hMLzU82ut37niXivRhv9ucNci13ho6zlvN
4p3r5Baob6953mmHnhZT+LgnviG8U3xf/IK9nE/hoYhmH7Pyf66BjyY75XO/
3wHvVaK/Ct5c33vt3f0Lk8mqpA==
              "]], 
             PolygonBox[{{327, 141, 155, 339}, {320, 140, 171, 338}, {338, 
              171, 176, 342}, {325, 139, 167, 341}, {330, 152, 176, 337}, {
              328, 167, 145, 305}, {331, 180, 141, 327}, {326, 154, 159, 
              340}, {337, 176, 146, 313}, {317, 159, 139, 311}, {319, 171, 
              140, 306}, {312, 146, 180, 331}, {318, 145, 171, 336}, {310, 
              149, 154, 335}, {321, 144, 149, 315}, {332, 165, 166, 323}, {
              342, 176, 152, 329}}]}]}}, {{}, 
          TagBox[
           TooltipBox[
            {GrayLevel[0], Opacity[0.4], 
             LineBox[{137, 339, 327, 331, 312, 313, 337, 330, 329, 342, 338, 
              320, 306, 319, 336, 318, 305, 328, 341, 325, 302, 311, 317, 340,
               326, 324, 296, 335, 310, 309, 315, 321, 304, 301, 281, 316, 
              138, 299, 300, 322, 307, 334, 323, 332, 314, 295, 303, 280, 298,
               308, 297, 343}]},
            "0.5`"],
           Annotation[#, 0.5, "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            {GrayLevel[0], Opacity[0.4], 
             LineBox[{270, 261, 269, 260, 294, 276, 277, 268, 267, 266, 278, 
              259, 264, 265, 275, 252, 258, 271, 292, 279, 257, 291, 293, 286,
               272, 262, 249, 251, 282, 263, 238, 246, 274, 256, 290, 333, 
              289}]},
            "0.4`"],
           Annotation[#, 0.4, "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            {GrayLevel[0], Opacity[0.4], 
             LineBox[{243, 244, 242, 250, 237, 245, 273, 255, 241, 247, 253, 
              228, 254, 287, 288}]},
            "0.3`"],
           Annotation[#, 0.3, "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            {GrayLevel[0], Opacity[0.4], 
             LineBox[{236, 222, 235, 227, 233, 234, 248, 239, 240, 232, 231, 
              230, 225, 220, 285}]},
            "0.2`"],
           Annotation[#, 0.2, "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            {GrayLevel[0], Opacity[0.4], 
             LineBox[{221, 218, 223, 214, 217, 226, 229, 224, 219, 284}]},
            "0.1`"],
           Annotation[#, 0.1, "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            {GrayLevel[0], Opacity[0.4], 
             LineBox[{213, 212, 211, 210, 209, 207, 206, 208, 215, 201, 199, 
              197, 196, 194, 195, 193, 198, 200, 202, 203, 204, 205, 216, 
              283}]},
            "0"],
           Annotation[#, 0, "Tooltip"]& ], {}, {}}}],
       AspectRatio->1,
       Frame->True,
       FrameLabel->{None, None},
       ImagePadding->{{16., 3.987852}, {16., 1.487852}},
       Method->{},
       PlotLabel->FormBox["\"Constant force. shift\"", TraditionalForm],
       PlotRange->{{-5.208333333333334, 
        255.20833333333334`}, {-0.020833333333333336`, 1.0208333333333333`}},
       PlotRangeClipping->True,
       PlotRangePadding->Automatic], {967.5, -580.5}, 
      ImageScaled[{0.5, 0.5}], {360., 360.}]}, {InsetBox[
      GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJzNWHc81u/Xb6qoKCpkj2QLKaJzjIxue49CNiGib6WIqFSSplVKoiXZIyXZ
e++9CQ3aqB6/782nx93T6/fv8/njvl/v17muc73Pud7nWpxWh3RtlyxatEhu
9uc//5Rf69tXhbx3OiAi/D9fFlBiWjVVK3q5gTlc+geu3HXKLuruEJC91fy/
x6qH4ZNP6QhI/PvV/4HJ8Y/Pxdf6Byb7+TD33/MHPhzwzXPi7MScv34wiuxo
83g3CXb/fvM8/v7pmbXJGKuvQvJ4j4ASP/wUGnm0fx3Oz89/w8GxUnVPRzYg
mU/+nD8mnJ+//4ZzqdkXFamy4Hz+2jS1krqm2XA+X/8Ntz+LX5GSzYHk+Jvm
+HHifD59CriFFL5zYWXFf76OP+yUmMyDB+fznTpekD30nWfO3jsXLy/O55+y
PSUeX5+cnVy5ZW78ARDOu1ZL95gP5+fLy5EmPMln61z7kbn88M+N9+aP8bTt
wssf0QvM4TGYeWftKNEoMOd//A/8f88/E8V8cxLzuXD80rl8ixD5JnuRJOIj
999Gkb/fdjIfGQo+0hT5ovx2E/b5+ZvnOz0X3zxfsl2c4MtzYnrZsOwOgu/0
3PgL+f32T4nlPlJfHmJXWsjXV/6vfBfm6xFFPrL+wOT20hT1IE2R790U+Vai
yLc8RTy/7eR876XI9287OR7lv8YzX48nGBJUer0CgG8yRM31jigRX92E92mD
fVJEPGQ7EPxVr9SKHNyvSMFfjRiP3F+Z4L//SBcnFmpT8P3dflKzQLnVirSw
3nxJf+W/UA+PKOZ/Xi8KFHpRoeCrSfifnsvnPF+yPvQp+Gou5IPaf+U3QntK
opJLiuDHO66mvU4TCH6UmNxemeD7y4a33YqFtJCvrw4xHrm/FsGXxX3HTJCX
EYWef7fvrHm/KUxQb2F+c3X/yn+hXh9R6HFe32oUetakyK8+4Z+sV1OCH9mf
DoW+9Sn4/Mbk9dGA4E9eX41wwX6IBn+N52XcdoX+I7JEPPP1Px8P2a5OxGN2
64XiUxcdivwbEv7bnUOaWkXNiXjm9bIgnv/V/v/EuUZ/5Uv5ketViKJegYiH
Ei+sv6w/8MJ6y5/rr0XET4kz7ehzTzyd11PNXP3rEfmpaw8tvTOqT+zPf9j/
Hd+QyM/tNKGMqxlGxH5N9mtCkY/fmLx+WBL5psST3cC+V92S2C97+NKdLHea
Evs5OR4LYr8lx29G6KlFUfPX/ijzufFG4EFolBO73z5iP89M/rb8xvX9hN4o
4/lv/P/9Q1MCl7L98/CkjTwxXxqpnsbXDltR1K8ZhX4ocO4+Ai9c7+b1bUOh
TxuK9cyc6C/hVPtsRbAS0V9YPLpQutJ2YXu0JNovXK8eza0/9hT8DxDt6VQ3
+V6X2k7oN+rf+Vch+q9OrBTv4XNc2D/XiuhPXj+cKPjbEPYx4ak7Z087U/C1
JezkenWl4GdH2MufbFkj3HmIYnx7wk6uP1mK+tOiqD8tivozpKg3M4p6s6Co
r/l8zdeXNUV92RD1Rda7G6F38nh2hB7J/g8Reifr25XQN7n+7In6I+vbhdA3
Wf/OhP7J/RyJfJDjOUjUD7nenIh6o2xPrlc3Ir/vSHeGmCK0iXyR58uJoj50
Ftp9DxL2mAl1p24RXcJu/TQGajhlsap2xQVqj+fg7v696GHSLmy4tsdxXVUz
nNqupeknv2u2/TLGxFMDMJSu1OCgwoHLI2+dUP9ZCS+Vd4CXxGbkHRfMutbf
BF+vJtGDJSc+arjqqPyrDKICYquZKxlRsjqAKpuvkzhPswSGmdjdLoXvqxju
LtZgxRlTTudjkrXAmtYaIcW5CbniivWWp/eA1tTz+92HubDOe82Kq+sroG67
kf+Z4Q1I57VjV6RiH3H+vXC2rS+fVA4k5UcV8VMMeIq03yfWox+28dk5BBhy
o+XJInblljIQCjr0hHYPAybWVmz2sB2AcFYLU6UabrzwokJF4WIZbHHudSkp
4cVG7ohbkx598MEjmIOURY9tBy5FiQsNArXCjgnSNl5c737eVkanH7IYc6VP
9WzFp7EJl3zN86El8YNKEjcfmoTIvfoi1Qfux2RFPLXoUaFR4bZOwyDspXop
ciCeBz3fN9L7fB2A4LeqVqW6W9Hba2W67UA3+JdlJvWc5MWlsxJQ8eoD/hLD
hpgl9IS+OPOyl42SeAic1LuzyWZ2fKm8g2NTyt2Q77b2I2/NepwxF76YPjIE
gc6Z8n6refDDsl3LUp8OE/eXLxWPg9Pou6HT9e6QcsZ6fK6nL8BvOQxh5snq
e95yY/R9fYuM1hH4dIrrePR9fnzQdvHTW+lu+F4pcNwjaz1KNoX4fa4Zhuo0
bsVFH7iRK7yAf8XnN+Dtt6dhum09/oozSlCAETifs7WMhZkHLydWXV9HPQay
oZfZNtPw4zKtFybOlrP5qud2X/WTD9Pr6UudpftANyrEWukhG1peb+Ry/lQD
zGc77X0OCKB3Ldcvh6Be6HolnS4QyY1UYjmnv90qI+5zE7t/sa752QsTu4IP
zXBsI+qFZ1HkudQnuyjOT9vQIGnRmMjtMoj7GSkACZKo7rZe8KByL7hzxEY5
tf++n738Z7x+55OtGFjAlc10PB8OXPg8k7h+C5YdWja5yqQPrp8qGdJNVsTH
1Bf0xI4NwLXDLi+uecvhiJ12HSNtH8D0+MTWMFn0D3KiU04YhDF/Z76c5F3I
lhyg6aHxBnIYwosHegXRKejZLjHHGlCR13++WU4Qf3kZNHxuHICoIwGWdw9K
IdXIBws/1yZi/nwSPX3EszLhDENg7JJQUdx6nT5JlTERZKLE/JtYRPGJ3vR+
0Y/V4HPnxenYfFG8GhytWpHyDASZr2YGjYgh2/f4jwdpq8DIgWP1/XxxvB/3
zpeTsxhYGhLtqAukcfQUrQWnRxuUfO1f1FW3HcN2eCXvOVwChyo84ge9JdBR
0KRD+GUtLA8rEv/CL40Xkw/kuR5uhKblaWfUmqVx73nltRl6tXAkqF2qlkkW
LTWQOt2tClo3+6XEe+7C0R8seW3WfWDt2bE8+owcau7fV99xYwQ+WqRZ/Sr+
fd8MY1LYNkSPBJby50+qyP+N68fptqV4/L5/9vzkWGenIoCrRZboNk6lEvdf
3TXBblYyxRC3hjPCcLs0WspMh3x9XQyvaz2ZBNZLY4JjeE81byscq6G+c1lI
GKd/rv55a0U2uDNr8jmFi8yuD5oWWsE1cGhvMqufyG6kYdybPX2vE9bJgr+m
724UyndwzfFqhRThipHNdbtRw/Ucp59uI3w5NVVffl4K3yqpDZ+dfg37TrPy
PJbagce6spRFWuog9GlP8o8gQJ4in6NUNOVQmLBpus99N4aoDSXX7mkGJUFh
3R0ygG3f41TMnr0i7msdZuEpKQ+yCXzO7tD7II9aGL1LxZMD8siVYVlrb9cF
4xGeBk3UJLyQSvKQFHgDNarD/Bc8ndFcJMWdh6oP8p5v7HU47YYcwe5ng5LG
4Kev8Ia2GsCVSyN5A8vL4VdaV+0+W3kMZXP/wl7bBS8KnyZoDyNGMYoJ5MVn
ghXNtoIdoYo4YvaIK/dWFxQvfWsUn6eH3fkR2VNcbyDfY6g8hEEMw0lninlH
40HVKWo/DaMgwhTbjoueaSDlfeG1jO9OHLIt0rhbkgeV0Sk5/Ko70FlpWWhu
ex0wnU31v5Eug/HdnzqNw7JhlS17TnqSIm4Kzc/ga2oFL5KZcfGEEt51I2U4
POmH083X3voyK6CSo7OaLV0zDNiHPk7JkscRnEoT31ILPtw9ToX+8jj4St/v
3IpuuPljKsHJWwWXTAVNNa5ohM1Viu7AoISSGQeLHvhWw7mcITeHpUq4l9/a
o1uxE44Kj5azsaogR9Ww+WnTRuI+FDCSf/KoRxOBRQLovlTVDQHtaHw+fZIh
ekbyqKXPDIPhATGJ0VB1rGtnc2jInF3PeB2X0biRkGOlxEen3F6QLA+ciVQn
ocn311yBgrPnxWoakX2825G9vOeaV1ANvL0pGrZObBuxf2vyflqhZi6OtBsY
tiWvfAD7mjr9DnDJ4d5u9l6RW9VgHJRZG84EeMNW9sFn7krooGZKiChQRMN3
9QyqtSVg1337na2DMuoO9X01Y6sCJpbjdpu8lJHzlFa5el47TB/V+hJDvRe3
3KXp2Ii9cKzq5X52FWUczI7ddLK3gbgfycXrjCXxlRJ45b1VUttiGkEw+lhs
Iqc6GhafrV0T0wDDadRmqVEkzLjp28Lg1AOek6xjQwMkVO+6/nMxewu4LTZz
uMiihtrHvvtiXQtx3wpp1VgS61dE4JudU1NGGk0EFre3f/4ufnY9oLnSOsO7
F6XsfGT4BurB8FhM4lptY/T58UyTmtRPvCclvmeQF4nIBUXRiiKb75K4Mqsh
snBPNjzcy9T/8IgkerNuDrnD1gDrpS6+rTOQwNUVk5UspDhI3+StKNSzG5vS
g3fTP8kg7vey2pq+bq/KCTzKnUxlfLYZ3jznoBLLVkaR81V3xm4Vw+1hFpJj
rQJ+LfebCskvhs2jpKbFjSqY08Dv28yeAS+D29YZ6aji5BWbzxuf1YClhKNG
fKUqpifkUO+82Q7fLzFUx4Xq4DMlBW02/zcAnLUMq0w1UHckQo1/tBkslxus
4nTXQsk+/qiLGxrgsFC+luVlPfwhGMthRdcJl38c+id1WhcTjfIarhf1wqjL
G2tHdlk0HhSX+2j8BDhd740bPdyFDhw/880ai8DE1eyI8rZd+CLfaJ+cUz0E
RzmpfmjYjnSjh8Q9Wu+BITMzgw+1IjZUqJgPV2fA1avBQVTSinjkzCnPlsIy
4n79RTYuXHHzc2gWXxrI6iiPdIdr1X5uzIXGd0erBT3l0bT2ygaBqNnz+uPx
jTKn5DHhjQxVo1g3nGwJXZVrQsLsxVW/ep8WwoN7VKsmWEhYerFQoYG9HjR0
3zUaG5Iw1/flsp1URXA+LEa/fAkJbwWX24t6NMDjn5mGgn5K2EGnob54cz5s
eiEYd8pUCZfJn4wJe9ABAcejPtdLKGHVjIN2S88w4DTbyeu2JOQS5HHItS2G
MSYmv8ajJPRuMn8Ql9UKD4cnfvLf1EHtJzt3L5dsAVcmhQEeQz1sqbQ71rSo
CTr23w8Z2KmHl7mbneVieqDuvZPV10F9DEtK4tkSMwJXTvBwrIvUw2gaxsS0
NS1glToyEH9bGzMLMsfo6nNgo0er9a8n2sia+vKMfH4rlG0r69N5ro3nIpUd
ukcG4dC98BdSG7TRK8Tx6tpnLZC63X7rDJ8ufkvZwDI1nQovb6lqkNboorv0
e5NAk7LZ9VjgcMSkDnpWvKk7z9wIuZ8N3fPZDNGhTiDPfm0fyCY4fRy7YIS7
C0PG1cNGARIZ7+xJNMKa9FFj+6w+uDWS3RHRoo95iYbrzc+1wmnGKgHJxwao
oG9NVbq0D0L8c5tel8ogS+LWTJ38KOjJTzgUZQbIflVsVfPRDHDWyx+zHNyF
dVUqp/FwNDRutGZQE1dG62N5Uql8RcT9e8mJ8rI3KukElkiuWRP3oRhmBM73
3lZXwNFNgluUXqeCMReNe/ElLWx1M3SZSU0BRdfvbhuVtVDo7vfFIr3FIPx8
2M32pyZ+WXp/6N3HOlAVO/uR1KaJbmZ0B1d31YFBmfVh0ccqaNOTntBbkgKM
HTcV77mr4FMOXtHv90vgOGhlGYVpIbOkQiJtZCrwPKz8cemEFmoe3e14iK8M
qunUFQrMtVBtVNj7yaJGCAr08y9K0cKGAqqV52QzoPp2VpLEUm2cfNzcMWBf
AyZHkzkDhLQx+f7Trw8WtUPD0ctrb9fpo3Y7I79LcROYhhqfpE4zwnBPRuYw
8X54E9knF6JoiEqtrmmdfmVwXDjGYyurITIdeBgt19sMK19ZP8r9YoAlj9Ul
i2bX48hRpkHaIh1MHHqo/8G8AY7VW0xKuuvgSj7lxb3L6+FF7ejz5d/08e4T
0ev0I82woTpS5eOlHbglTv3l3fa7ECtXvOjkEjn0nnRcmi56F+TfKehsmt0v
WN7KXDq7PBPEFD1Mb++TxZKwS7vXyd8CuRBpxcUZ8thaN3lBmi0N1q173G+Q
tRdXrW5sqJQphDfbLzuv7FfCnoxSF8nOVNBqz9G627cHGd61iGkFFxHvHzMx
r3osFVIJnHglaqjQpwj40z6auHDP7sdfVtDWKCTDQ8fkROrPKqh9/KRqbHQy
bFl1RjXpmyp+i4krrIguhAgRuS80qSTMytF7P7CxELp5viSNPNHEDaJXIlWD
koFTwuL4Yh49dF49w6fe1Qye3BbGbNxamHNV6oZRcjJcccg+sktAAx3ux/64
o1sIx9iFdXlu6eFzsUmvSMVGUGpwvdh0RRtPtmw3d9qfAQbhWtTP3bTxRunb
jWXONWBnLnb+tpY2rmbVvCm9pB2eMVl89rPVQbHOgvyLIymwS+Ar6byjDg6o
1yV5TxdDkczleyEuOhi2oTfXdHE9BAUwSWxl0UV7q9eQJpkK1lgeEV2vg1R1
OhyVHiUg1JX1gX5KH41F/O/T3i0BL5t0F+NVhpjaWqfsZtMLTJqf6Px5zPBL
f9wu5coKkKb9x4HKwRTFP8sPdIx2wKhGZmTMYkNc3lMrFstZCbyszQHLjxig
TYle/Ih0O+QZMKSZNRsilT+tAEt8BWxavSqH6aYRChVd+ofqfhvYSm7f6vzU
EIXdHVprhxtAceS2Jq+gEWZKIXtM8iBoSOn6j9ob4vZ6iQhRl0o4yZt+s/u4
Ibowe3vKRbSDhMtX9ah+UxQaTLb7fq4CljKtrnljZYJUpMdM7hYdMJ32Ps1d
flb/A1KLSPxVYKnq++rxfWPkcxPRZrvQAUxJQSd4L1ig+gY1lTqXamC2qbn+
rdMclddqy0vG9sOIt6tCoJoZVopH11cL10G1c1bC9Iwp0slHH5elHYLw7mza
0QIDvPnxKc3kcCl8XpSQ6hYrh8vuJbns/BgBSSVnf7JGKGLU2E7P16UpMJMn
3hZ93QqFvGtHFy0bJd6fQhlEqOL8qgg8dOtStbVQD/FetXrwvfU4lBM4R6dF
NLK+BfreF9TYR5ihzejTd7VR1QCBssY2CvtQIWojLZJ6YbOc/xp1RzPs1k9p
4WSpBB7BMyfLT5qh9QUqGf/znXCsUm+8TV8JeReXGc+4p8A49aN/5DJ2o8gn
Lrqjl8PBXKY2LCXZDIOMxo4LH66E4OLxqi339yHy6FrfkeoC9dMcX7UyAS8s
2qQUVxkGPzRKhyp2K6PrE4eVPitSZvczo8l7fHZ4FempYvSGgP5MMbeQ4+/3
zvn3tnLPuzdoVtQQOIZzy1LrdYPE+53SHcVty8RSCNwrHFjyJKQI7Pf2pm2t
QBzTx89XWkIh6O3+WNYAVdwYmiv7ySIZaIHnlH+OPY62V27hVO6Bau+HRZ51
Zjj48ZMFfXwZcHGObBrn3j97fj6xdsm9FvjJu9PY0BCRqdPzaK1CGOwxGGhm
MdJB+3pOsQD6V7Pn3xRZPS4dVDxvcOV8ZSt4GPlHn3+rjc2aOjRMY4PQ0zzg
zPJQESs0pPYY8YdCYWvES9m83++V4Xr3C1lNrHBv89XqbyyjEEh/Ken0aQus
npQbn9hTAab7jD+HhJnjt87ml0OTLXCel/nGhdu2yHus3tfOawRMph8WvNts
g9d3MzsHOIxDYGZkml6hJf5oNtxXzt8Ga2gPNqeV2mFfwBvupQX9sL7zNfN5
Hht0OOPjVGo7Dq+D9lQGH7HCy7lbOxUftcNVYeMCxkJ7lH/bZ+kg0gNxge5h
d+R+vwcW9Hpz6GX8xhW2E4tn3lkhJ3M0w7RwB9jrxk2t5pbHQGo5OaY1oWC7
2urzt2cW+G0fM3eqSwU8S/YTH2C2xLw6tbWhD1ph3OGDYFTwAZRUfWEa2t4G
Sd7fT/W66uDFkg/T7JtS4XFcXdLw7PkzEw+OpbiWwJbL3iU+rdYoU9FsO/G1
A7ZQVTM+kLVBp/MNPs8COsFRlMZ6aM8BXGx+NKjkVhV0Zw6wu4rZIvOwz9tq
6ILQexDbdtQWW4MEavlyuoCnResZx0k7lLs5E8Wq2Q1VuYdvZMXY4WU1DYb1
97ph85ubbhOv7JF7Z1nIsaluWMt4aEj8xGz8PXsCaOrG4FaD68PYl274/PWq
qDUp48AvZ9JVKquLh589Zb7bkgHvT5a2pB/WxdTyW4mpj2og9YV0fcxDXbwo
GGwqv78dOjUvqj430MXxK6VrJpalwYG9g+mkcV0siZtysTpUBhsvB3+imtBD
hbKZa7RiyfA/dgN9ww==
        "], {{
          {RGBColor[0.293416, 0.0574044, 0.529412], EdgeForm[None], 
           GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJxNkb1KA1EQhfeu5gdBdJFgZA1mJRH7FBabVCHbCdFeC0HstBefIGDvU4gP
YaNY7HMENIpGjQTxDPdbsDjM4dyZOTNzk5OLw/MwCIJ9YUEwvig4YU2IhRqa
8TI5Mdq7UBdegfEXIRWaQgPN+q2DGC1CL6MVud9CZr56XHJeqzg/R0yPKbnm
3xIS4Ygaq/0RvsiZsovDc5me1jvFt+jr2PeDGT4DL1r+3HaGm1aBm9bEq0FN
xh4hPa3/ROgKb+zsuOGc2hk7pP/uXvxDcaMIxOgtahM0R48Zut3gGd8JeXX+
ZlXD5Yq7itsqvDFv5+sT5kjhlr/Cvna/vjAQP1PcFIbiv8IWekcxQm8rHtDf
fGbO+5bkuyN+bDMoXgn34peKd+SMnPcY0LsD7ylek//gfL31GfL/Xe7QI7+P
bjMUs1qMmCsj/xFfm7HEfaqK48DzJ+m35NiMI/iYeodHldpa6PexOW3eIXOe
On93y9kIfd8c/zZ323O+Puev/gC6xU4c
              "]], 
             PolygonBox[{{241, 60, 70, 244}, {311, 80, 152, 337}, {457, 196, 
              208, 430}, {315, 152, 94, 294}, {250, 70, 80, 284}, {238, 24, 
              36, 242}, {357, 94, 152, 358}, {358, 152, 196, 380}, {275, 93, 
              60, 237}, {242, 36, 93, 275}}]}]}, 
          {RGBColor[
           0.5068609684323628, 0.42852755608802917`, 0.8294347242119154], 
           EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJwtkK9Lg1EUhu+9ijAYgigD44Jh8pndkIFlmAyOdUFQ0KDBJAiD/QEym1aD
0cFwQYWBwWAYMhREEARBxKCgmEw+L+eEl+f9zj2/vlNc26lvpxBChkZQJYbQ
hHswQ6v4RedusLczz7mFp+gDX04m+QV4TvwS34X7aBO/AX/gDPryPOVX4WS0
uN6X8T14CFfQEn4ejpLXxx/hX32u5j+gG/wE79Oqwc/Css+dg3XfWf/X9d0O
4BMa4nuwgbbwtWiztcMAXnnOeDLJ94nd+9wLOIaq+Fy0XspRXfK43rW39r+L
VqPaFnxGb/iTaDfSzuvwF5bQt/dVnzx89P7a/dPvqfu1vKfuMUTXqkv2n/rf
P1jg+x3/Ek3yGbEO/hjfhlN+8wL8Bzh0Rn4=
              "]], PolygonBox[CompressedData["
1:eJwtkssrhGEUh7/3aybDuMzIKEVuGTPTsEBRZqQoK8Vkr8SCBQsrK3tStrb+
AFmwsZiysLCQJgsbKyUht1xnXJ/TOYun9/e97znnO7fWmaXcou95Xg8EoN95
3hhnFjrQfdALWRiCY1jlbRk20F+cJWhEN8Gs07dpSKM7IQ4JSEILNFtMib0O
a3CL/R1sorc492EcHYYKKIMQpGCSt3kYQA87/ZfklEO3QxsMQgbmnNqKzwS6
GqosZthiSuwABCECNWZTbXfy5oGDT2QXpOAdtrm74ryGehqZ57vg6d0F+sRp
LQewh/7j/IUouhZ2YcHy30E/SN8hAU8Q8tVXYgTR5XCIPoIzpzlILkl4NZ+E
fb/Ao31LzHu7S5rPG3xYPd1Q9HTGMusRGHVqkzIbsX02/4TFjknNVp/kumL7
ITVNydx9zVVyjqBPndrLdwEdc/pviS+9zdjs4rY7lU53UXayznZMdk16KL2M
Wnzp+Tn3aV9ncQOXNjOZ3TfHDzT4ais+klvE+pm3WqTH0mvZwSJ+Jae1yXuA
t39FMViM
              "]], 
             PolygonBox[{{301, 105, 380, 378, 379}, {259, 46, 277, 250, 
              251}, {278, 71, 337, 290, 291}, {324, 323, 359, 140, 381}, {274,
               273, 293, 61, 258}, {253, 252, 249, 46, 259}, {235, 234, 460, 
              140, 304}, {379, 378, 397, 115, 356}, {297, 296, 336, 81, 
              281}, {459, 458, 505, 153, 431}, {304, 140, 359, 287, 288}, {
              381, 140, 460, 458, 459}, {325, 106, 432, 394, 395}}]}]}, 
          {RGBColor[
           0.6265631202195472, 0.6283747784830678, 0.9109290714358034], 
           EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJwtkk0rhFEYht9zSCkbHymGhSi9vstiZjEhWSjZYKGUJBsWY2MjmcYPUBay
mfwGKf/AUmx8/QFJmiRpkkGuu+dZ3F33e977POc5Hz3r2wuFmCRJHtWh85Ak
ZViA+2gHPwOXUQlfhDk0ix+Ag2gRPwqn0Rp+Dm6gSfxeMMkPwymYQxOoje8s
bIK3vm5jtKxyWqPM+Cl8gJ1eJwPf0R3+2cdyPufMe76CL6qLv4QN0fKt0f4p
o/3deP0T+OV5zfvx+jGa5BNYjw6x3/z/RPfqP1ofylSDrac6f8H+KZNGm6+M
ein6eR4EW1s9HMNH981k3rxOBb66/4BdXlPrp+7Hoq2njOZVvR/t48nHtb+K
e9Wr6d507/gL7+daZ+M96OxXgu13FW75HZXgiN+77n/TM8p2B6tZ8zekvOYt
eX4X9ga7r3Y45Pen9xLROL4l2FmoB/WS8Uwf7A/2dvKww99TGmwPWvcXzfs7
PIL/LPNZ9A==
              "]], PolygonBox[CompressedData["
1:eJwt0s0rRFEYx/FzbohoCI2ImslCRMYYmWFiKLIe/4CsrNj4C1gSlmwplooo
L40/wdtYEBFLFrIX31/nWXyaZ+6955zn5STnl4qLkXOuHxWo884N8zuEGuJZ
FJHDCD7wjn0cYAtzfLuMQ+IrlPCMF1Qhw7tBRMQ72MY1bjCBgp2hs05xggtc
+pCDctEe2qvSh730v5p4ACkkkNS3Og9jGMc0prCGdaP4k/VfeCJ+tDN1dp/W
8XwGWatBtexiD000q8y7B7QT9/jwbQGtxHFkXehhM3FeubjwrNN6pt5lWZtD
rdWn72PWE/XmFnf4tdmk4ZUfa3qjMAPN4gf3LuT07UNPMjY/7a0zdNYo8lGo
QbXEiVvE8lXNbdbDhPVQvez2oTbV0EW84MOsNfNJ4lWsoIwHH/bU3q/EbzjG
ETawiXOc2RqtbbR5qr4/qzFt90Wzjtl9VI4Ndid0N2KcUR+FNWnrUYcPz/Su
ZHdROSgX9Uy908w1+5TdnX8UA03b
              "]], 
             PolygonBox[{{303, 83, 340, 325, 326}, {469, 468, 529, 157, 
              462}, {466, 465, 521, 155, 433}, {350, 141, 516, 408, 409}, {
              385, 128, 436, 434, 435}, {314, 313, 377, 83, 302}, {470, 157, 
              471, 473, 474}, {384, 155, 467, 441, 442}, {402, 401, 461, 128, 
              344}, {572, 571, 573, 211, 484}, {399, 398, 506, 141, 361}, {
              331, 96, 333, 401, 402}, {292, 63, 300, 320, 321}, {319, 318, 
              324, 116, 360}}]}]}, 
          {RGBColor[
           0.7311840810410196, 0.7964715514311894, 0.9133141071055694], 
           EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJxNkk0rhFEUx587lj4AUeO1LIRYSmmIYmFBQykLVuQ1iq3ZYKHxCUxG2c1G
NrKRzZimaZIy3ucFTRa+gY3f6f4XFv9+5z73POf877m3ZWF9ci0UBMEIqkH7
LggS8Ax+w1f0hqoogz7QKHvjsMf5PcvJoxnWyzDsfL7lltEc6xU4C1vQEHEv
TCvH6hZRFpVQJfC9bZ0gLwkPYCtGn+xfeKFeMXiOtonv4Q06JU7BTvIKxI0h
76eiXlXVr6iu1U86/7/VuYObKE68AXvU1/onlf8KP9EJcRff88Qx4gfnZ5HT
3Bp03jrnfZiftpDPsbk9K68oT+/yVxbf9X2K/8dgRHMra3ZN1HqE3TCMrolr
za982vyyOndFvXLqtyLPO+YRRYkXnd8rqe/LP18l3YmtD/UGRlW/qLoR+WyH
HfL2S/wlPwN821Jf6z+B5omjzuc96kwp3WPG+Tl9a1Z7updLeKz5p52/p7j2
6zXzPufPY+cahEvqdQSnddersFn3Yu/lRXUKzr9Rq/Nj8yUehv3wSu95F97K
g3n5A/4ofXg=
              "]], PolygonBox[CompressedData["
1:eJwt0s9LlFEUxvH3XsUgcmPCxFSCOCEqzFCWoEtnVYYL2xiKkcsGZja1rX9A
CEYtyjblgO6F2hRTk7h0mToyUSCmNjZqP6ZFVt+HexYf5sz73veee+457ZO5
kayPoqgfjbjAn1V+N9BHfMtF0QSe4Cm+4wgHOMRD3GZtBkvEvXxTJq7gMvFJ
FKPwTO9SrLlGPIge4kUsoJ93AxgnHrOcyn0To7iPB5jFDO7iHgaQZq+ruEGc
QxZ3kEGCPVd4V0ILcdVy6wxTvL/Is3U73yUf1pTs/FeIX7HmJV7jDa5jCHlM
I86aT1HIoVzt9r1qVu2PWfPIzqyzt7lwV7qzYeIO1nwgXkMnsVMz0IQTPvRA
vdhRjaz/iArmUcA+qtjDV/zDX3xDzYWaynaeNuJWnMY5nPehhrzdse76LYqW
Q7mW8d721N6beM5eL/CO+LcLsZ5t2Rn2bEY0K8f4A0+uBsup3D949tMoPsWz
Zh9mQv1RT5Mu9EC90B3rrmtWW9Vqr+OX5Ti2mdRsbuOLC3fYZDWr9qQPd62e
p3yY0YrNh3p3BjH1lG8/2x7blqNuM6fZm8MzF2ry1jP1rmC9idleCRdmU/Wc
Jd7Fjt2p7lY1q/YudPuwJm0zGif+Dx4TeTs=
              "]], PolygonBox[CompressedData["
1:eJwt0L8rhVEYB/DzKrPFH+COlJJyy02puxiYFAp3uDYX9xbF5keUzUh+JJRY
LUjEhEkWN5nIwn9g9DndM3z6Pu/zvHWec3JTteFqUwihlWb2shB2eWXR96i8
Zkv9IS+54pkTvT/5wy8zVFhl1qwkuymqc7KHPBus88aa2YK845YWyxzqbaoP
2Keezp+Xp1ljHv+7Vz/wxSedekdmT+oOdTtd1PXa5Fy604WsUkv7xL36GTEb
iElZPS0nmGSF5bhvvKfZWJb+VRflIEMUnNNLH8dm73rj6T1u0r3j/R+zxq7f
8oxzltJ7vMhtdvgHaF80eg==
              "]]}]}, 
          {RGBColor[0.828346255992845, 0.868912286828609, 0.8845906242047905],
            EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJwtkksrhGEUx99n7CxloSkiSlmQ68IXUDIWCo0hNZSFxoSFS0kxUjbTkJQs
0TQ3FnJZTJFySbJVSllayhfwO57/4t/vPO85zznnPedpiCeH5kJBEPSjCpRD
GVRANTim4bELgpK+mW+U8yhch3mYQqfogPMcXIKLKG4+OIgi2HXwE81j3zpf
K6ucDdR6hV0wjN6wu+GtYnK6Y3dPnPdZTBW8UA/WSx3nF9gBa1EZuxru2z31
WalaVjNJrinshPN1rN49ukHn6Ey1C/L9OJ/jFx7qvybhLkyiTf2z/fsYHEcj
2MNwA65YrcD3lVGNBXwz8MhmFfjZRuTLqAeLL+ncp7geuCd7AE6gGPYsvFK9
a1iEV8qzhdbQMlrVPFKal82tHXZqPjanR+6nsb+UO6rebGYx2f87ly/rfI0H
5/eSV41t5/+9rDxxxafUV0a7t7pW32Jt1/b+vrmzA5+cP6fVf4/+vcP5fZU1
s6JyWu42cj3D1pDfr+32UrUTyh9VHpvlu/Pz6dXbT2hn9XqLLbBJby+smGXN
tNnmBRvhiN6GvZEB5be9Vemu5bjTu/mAf+umcJM=
              "]], PolygonBox[CompressedData["
1:eJwtk0tLV1EUR8++Cg7CmQNB0jRKSCh0kCB9ABNSEEp8hKbNTEUcqIEI/dWs
iSFEo6BAo4fWRHwQQhpk4kcIBAfiQEIiooGIrp97DxZ33dc++3FOefdAc3+W
UroF+VBvKbVyHYYe/AH0JX+md79gFs/BW/wNDODPYRFvg268He7jNdCI34Fi
/Kf5t/pnAe+Cx3GvWAsRT2ts4HPwEB+EXfxjfD8Pn/Bh6I/8HuElFLOMf4cq
vNc8lx6tgY/Au+QxFOt3xHsBR/gqPEle8xReRIx1fA0KMl9Da6nGIfwu3Iv6
GvGrfHMFbkItXIat5Dkpt+uwjX+FMrwaduK+Ah8nRkvynrXi13j2Tb2Cwoip
2Ld51wAfzHNXDerla9WIz8AWfgKL+AT8N69R38/BKf43+qF+HuJG7C/4CuRl
/o/+XYIDvI5nY/gkvOd+z3wtzaiYd/vmsbWGctMMNAvVcAn/x7PPyXt6MfM1
5yN/zeJC5r1QT0rxTZ69TJ6jZlcW79XPY+4nY38op2fmOSt31azaK+J79fwG
3hT7S//o307z2WmGHeY1LsV6f7S2+VnQHnulXM334ig8xdfNXXtmxXyPaK+o
h+placTXTFvMZ6hZqgfqhWpQLdojlbz7Yd5bzVCz1BnLxfmY1lk038vnOZuf
AfVPPVKvzgCiVn1A
              "]], 
             PolygonBox[{{453, 452, 511, 164, 485}, {374, 373, 412, 103, 
              354}, {415, 414, 392, 111, 335}, {355, 119, 405, 373, 374}, {
              354, 103, 370, 368, 369}, {393, 125, 472, 414, 415}, {429, 138, 
              489, 452, 453}, {369, 368, 390, 109, 353}}]}]}, 
          {RGBColor[
           0.9411759999999999, 0.9065379999999998, 0.8340430000000001], 
           EdgeForm[None], 
           GraphicsGroupBox[
            PolygonBox[{{453, 136, 429}, {450, 137, 427}, {352, 136, 425}, {
             355, 102, 328}, {328, 102, 353}, {330, 228, 567}, {353, 102, 
             369}, {389, 124, 335}, {376, 137, 450}, {429, 136, 416}, {415, 
             124, 393}, {335, 124, 415}, {567, 228, 550}, {369, 102, 354}, {
             374, 102, 355}, {416, 136, 352}, {426, 137, 376}, {393, 124, 
             389}, {427, 137, 426}, {354, 102, 374}, {425, 136, 485}, {485, 
             136, 453}}]]}}, {{}, 
          TagBox[
           TooltipBox[
            {GrayLevel[0], Opacity[0.4], LineBox[{550, 567, 330}], 
             LineBox[{328, 353, 369, 354, 374, 355, 328}], 
             LineBox[{335, 415, 393, 389, 335}], 
             LineBox[{416, 352, 425, 485, 453, 429, 416}], 
             LineBox[{426, 376, 450, 427, 426}]},
            "0.05`"],
           Annotation[#, 0.05, "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            {GrayLevel[0], Opacity[0.4], LineBox[CompressedData["
1:eJwNzE8rA3AYwPHf5rCDdnNYyfw7rKzIDg7egMtyUGZbW8rV2LLk6CJ211JC
qSkH9+2iKOElqJVy0lqSJAeJz+HT9+l56hlfqy5tRkIIeRKGDHMskOWQArus
kGSRZUqsckyODaqsU6bIHnUq7HBEk21O2KLGPh3aXHPABTc80yIRDeFFHzjl
nkvm7Z/0jAbndLnlikd63PHHO2/0+eSDV775ZcC/CDGGGOHLPq5TjJFmmElS
/LiP6jQzTDBLhiSD/AMcXiz1
              "]], LineBox[{329, 566, 549}], 
             LineBox[{530, 565, 538, 548, 530}], 
             LineBox[{545, 522, 563, 564, 545}]},
            "0.04`"],
           Annotation[#, 0.04, "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            {GrayLevel[0], Opacity[0.4], LineBox[CompressedData["
1:eJwVzz1IwkEYwOHLoSlocBCq5Q8tIfkxNBiB5NDilC5B4NCUDrU4R9IaCCKB
NDY0S9AQQUO7hJCDEARJhERESDRE9Dg8/N47eOEu2jssHcyEELZJGBZYZJlN
yqyTIkmaLU55t5PViDXy7FOgSIsdjmhwRZMqu1To8ECfLtPH1DjmhhMe6XFG
mzrnDBhyzS3zsRDu9IkLEs7PuqoveknOvMHI/MMb9/zxMf0TY7745JVvfonZ
C8wSZ4mJ+zldIcM/Q+4rcQ==
              "]]},
            "0.03`"],
           Annotation[#, 0.03, "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            {GrayLevel[0], Opacity[0.4], LineBox[CompressedData["
1:eJwV0LtKAlAAgOGjXSgMyYigQUgapEhwcChMaahRAukJorlmEZfWQGxzdmgN
ogYJfIEIkQIJhKDVNzAivzN8/OcynEvu8qZ+nQghnLNukCbFCksk+LO3oL+a
1X/d0CTLrLLGJlvsckyePbbZ55ACTa444IQ6RzS44Iw7ps4p6g4lqpzS4o1H
OtS4551nnmgzYzEZQleHjOJdzT+0zy2fZKyN9YsXXuM/WBvohF58l/l3vLP+
6EN8j3GZCnNwByHU
              "]]},
            "0.02`"],
           Annotation[#, 0.02, "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            {GrayLevel[0], Opacity[0.4], 
             LineBox[{537, 552, 528, 533, 520, 517, 505, 458, 460, 234, 394, 
              432, 430, 457, 397, 378, 380, 358, 357, 336, 296, 294, 315, 290,
               337, 311, 293, 273, 254, 284, 250, 277, 248, 246, 244, 241, 
              239, 237, 275, 242, 238, 240, 243, 245, 247, 249, 252, 256, 260,
               263, 266, 269, 271}], LineBox[{287, 307, 317, 323, 359, 287}]},
            "0.01`"],
           Annotation[#, 0.01, "Tooltip"]& ], {}, {}}}],
       AspectRatio->1,
       Frame->True,
       FrameLabel->{None, None},
       Method->{},
       PlotLabel->FormBox["\"Gradient. m\[Psi]\"", TraditionalForm],
       PlotRange->{{0, 250}, {0, 1}},
       PlotRangeClipping->True,
       PlotRangePadding->{
         Scaled[0.02], 
         Scaled[0.02]}], {193.5, -967.5}, 
      ImageScaled[{0.5, 0.5}], {360., 360.}], InsetBox[
      GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJy9V3lcjVvbTkQl0mR4pTQoEqGBrY773s2T5kkTmlSaSZSIDBneMkRpnpSU
SqdQpl1ykKLSPKd54Ci9hxRe5zztx9vTD99f3/rn+V173Xut6x6ue60lYudp
5MjKwsKSPIOF5e8vMd4B8W0HTR8YPfSsD2T/Ga+g4c3DxyvimyHqyt+jAFh+
Maj23Fqadny/dU3iZ9NwueJhp7iEnsl1K/7fMdXfX9kT/g1N8m+Yhqn21Pj6
HPu4d/jE8OR+nWAe3dy45+0IOP0zemDirb2LbI0Ulpf9PYamYQOnK8/T+aSQ
+P8gGFs1brbQXYXE/v3g7zL3ys1DK5HYrw/WFF+sXHBdEpnrD/Hm3s0tl5hc
rwtCrypU3ehbgUw+VEysI45M/nlDJXd7xsQn9+uYNk/F10Yjov06RZAZn0Y9
/Zut40LIjPehEjFp5THRST7N0+ypuCk7c87vd5dP+lM76f8SZNYTdX0qZnAK
s/yhKYjM/FD/T/gvMGn/aNo8wYcHmfVNxYQ9xyRO/yWm6oe63k+k9s8g6mMz
WR/Er3KUfHzHxPrrKflYS8Znaj09o8S/gBKP6fyJQSP3++09Z1iPsCqF3xYK
vx/j8Un/mHzFA8Zn9SptpNTPBpLv+KRemHyZ9fVTvkF0cj8intoUvqoUfj/G
RLzolPhuocSXRvKl4qn5KZiGp+bnR/6ok3xsfFtF8LEB6c+IXol6g50ORd9a
FH++46rhwKOm1uqkP5rnK9futlEh/ZEcOaflEQ8kf8JegeRLzMuQfJn6C+DP
0ujwP/YD/jrk/kT9mFDyoUfh+x2PT+Zvar1oUOpFmVIvmyn1suHn8UUDcj9B
740TZ/3NSX4tFX8uilxtPDW+QYZT+f4PXjGkZcCjp0/y/eqwoslOUIfk28d9
WLZcVJ3kS9gDyZeKCXuFX+iTMhhGJB+i/i1Jf4jzw5w8P4j+aEqpHxNKPn6M
iXo2pOhDj6IPLYoe6JT6p/0iP6bkfk1u52obZGyn1k+QGSUfP8bM+mPytYq5
p3LD3ZDkez9VXrnTV5fky+x3TL7EvNLP+TLMyf0Ive4g+VLxSBsIa+vuIM9/
Ql/byfO/XkXvq02c7eR6fXAn9yPbpXAbMn9pEXGuwkesyfOf6AdWZD7bJW+5
7thkSTnft1Hy+X/HsfnSty/cNifPd6I/mJHxnIabIp7FD5iQ5zvRb4zJeFPx
HSc+RsANpp4qJuOhT+aDiqf2v0eU/lYwDU/tb+nTMNHPpH/ez6gDLcn4bM3b
a3HRx45Sn1aUevyOnwntu3bQgT61nhjW5DxRfw7kelRM2NmS9lP7YTqs2ZD4
mFbuONUed5D2sq6V2XNCVUl7ov/tovDfSdpP7V/pwJVTvqFd0mWqPcOOtI/7
p140SPsFmouCwhXkyfgS/cmV4o8D+f/BNZ/iTxx1o/B3JOeJfuBB4etEzj/P
kJi3psWTwm8XOU/oz4uiP0+K/jwm7Zn6cyf1R9TfblJvhB7dSD0S+nOl6M9l
aj38Dyb0tYuiLyeKnhxIPRF6YeanYlJP9pTzfDupF6L/eFHuD1YU/ZhR9KJP
0Ys+RS9KU/WCrqQ/b3Xie5ZEGUyt76DdlPo3JOeTh3Vd29YakTic48VH+5D5
qNis5dj5pAcwROd6qW0QsCx9mW9h7QJ9avyrx8TdMck70PtTQCf8x2evs5aP
F6rrOIfR3AchT9M27c4DLpS2tjsYztsLZy7Oetu8mAeHOiTdDg90A4uSRmzP
yYDJ725IKMnTvWTAh8MHeR7O6eqAdTk899hmhkOC/MZrq3u8IbGrmh1vtoPa
nPUrdYeLQPjTlxLVlbzoZO6/8cFfnbAwTva5zI5eOH+SXl6/tBKW6+6d0dq0
AB/OYGvc4twNl2rb6oUODoBcWI32FfZaELgVYzSxegFZT9bSn3PGxN5CnVhs
oZx/M4T43nTM+MiJapo7Q+W1euFO+np10cvvIFssqD9ycweICZ86vvigEvJ2
hATfFO4Bv8x5ne6LVZFtvJJrW3k/sAeXDvnJcKDPHakr5917IaFBcV2BJQ9a
xOk96dvSDnKJjdECM3jRWuFLjaZEPRjspO36KsKPbY/nqVb6l357DzvzW9F5
sGTwaPPqwwywyXWIzxTkwKU5bWuTgm+Ac2pY9gQPB1qc19kWEHADVmcpDGlN
8GKeePyxhrAukHf+k8ushh/ZhZfvv3r8NYits2/BCnZ8LXKRU90+C0qFMhI1
NBZi8i5eO1nhNtgq5ubgdHIheqWfCSvgqAPfnst77y5mxwDxVhXTlmyIPr2s
QMhjDq47O9YiZZEDK6vou8749oK4xQSXzP2TEFTpF9k+uIms71NZZQc3fl5D
4tLQGbmWKRtxsUf4xizRWjiWM9q7/TENFd1irl56OQB8Nmm16XQ5lA9YK8Aa
0A7Km8Z+L43ZjCU8CK6X+qHAMKK+xo+GJlXcuV7FlXBhnlFZkvNmDL2WNDu6
th+Sd9yONbrw/X3mST/5KsPOAF+H8AcvmzUAwTKOtwK6lUk+T9NCK1zl6Riq
Yh14WbwVmO+/y7UyqRLYD/udnjUqsCtiDe2BlNH+fsis1pCV4FFC1JY3mm9Z
AVHvM6VvFtJRIHDwvRKtGQwHlfl4FWh4Wa3EvM6pCurnm+xLfkLDtZekr66r
rIC2nMhOuWwVzGziPiqbNgDlKjnsOZeQ5EuLrGYpYFHExIfP2ar39cOiDzHL
GK8Vcf6bRYxzGhVw1VwwwWmXKkbap+DRnH4wE6vTDhpRwwtjw1pJLJXgmYTL
RVjVkCZB++MBRx88DFuxUKJcBcfnGc2/8a3ulxRb5LfNVMYKtbWFNi5NMHZA
P/6VEA2DgiOSPttWQ4qE1CohNlV8ZOXA2i85AIdcg7KEvFUwrDu2e/aiOug+
UHX4kD4dL/ft3HOgvgWSldja58yiYzz3vRHr9/mQ41f7+11JQBNW1kNNmcXQ
KbRlVCxfA++pVkqrnO+EWF0+8xcZqvjHMaG3tzv7oNgyPt3huAp66uYYdljU
Qn6G7NVre/XI/DDfH5lLD/nZqLZCXZh9ZY2wFsa5P4g1aW2H/xyTspEX0Eat
bacfWzR2QOSnVNdgNh1c7HdEtu5UG3h/dXgs91UFtUKWtgYaDEDqc7Zjp7VV
sGYFGGavbIBToYNfzqIO5ip6xvTOayHvm7YmjKUnVAZIPFr15pHH4XryfZNV
v1VBaV0F7LfTOpCr3gMLsC12vYgBMJTl7j7zewQsa0dLdNYLgvb5d5/SXdSx
+Wml4pk/X0ICF3utbYIBlnCc0mmj98Mm8ZSVfOU6GJoft4ce3Ezep74Y7W3R
vtgCDqlfE6y4VPHJmUYbBYFasJNcIOR8mo6SA2xypkYtkOfyNJDltg4Watv6
huQ1gYsbW6iujDpan2zQk1v1EtwEvcNvKwEi6+16CbliMJ+x4hHXbsCPmRGl
bNZFIG/nb29zzgA5G+x5/6rrh0Oyzw/6dhqgVJZDBM2qH4I6Z/tqz92OShfl
l3ArDsHE3EzuG5yGqPkhUiCBsw+Gx6NG/F4aolLpwj+38fXAqFvATNsKPawV
eigj5VJD3v/cI528TFxfAs94fshmHn3MPh19/G1zNbhfPVns0amOhaYmeo6y
ZaBryfLOeKMm7tvU6qX9ogxe7DH2TPBSxJIStoYEwxcgbjzz3w4jSpjKeTDr
TuRTaPefGazGbYxjCyoLQq1egwt3jMg77R2YP7xZ5PWHfjDP1TVxYTXB7l3J
e37/0A6PrGSF80qN8WlDrHCEfRdoadxyi/PQx4/hYSwp/tVwJcWws99pK4qe
4097fLoeqm6l1OVHm6DBoLThwnmv4cNc50z+dca4veDY7m7T19CQYRGnXfTt
fP0UFdW/dQB8u6I0F2cY4GeGxPqu+HpYJCJsuThAB1+ZyC6XVGyGz4nza2Sk
VFHIVzzDXXkA7v8L3sy2V0XhWKUzot715H2YJkSX8rzOIN9LJTM1l672fw0H
YUx0cdK394ugmJeKWz+s0wjzD9pqhh8yrvyr5rcmiLovKhT/xgwZ57gedK9v
h+iSRMkj7/XR1GTe53cTr+BEX7GtJ8e3+QNXy7aYtcCtZUX7Psw2wmgftcT+
pS+gYkJd5cIMA7wc9WBd2thL2L/ZJ9z+33QsbI+bu3UoByzdi1ovBX7Tu+/h
rtH9LZC9yMF8wJGOjGVSa0af5MKy+8IhBiM7MfPLu/ly7D2gwK8uLF/w/b0Y
uJLLzoxzB5qq3vXYZjkARz8dFq6Vt8QviSlpO5OrIZd11eVZ9mYYeVi/P7ms
Ee4aPBu/s9YUnxSph1yb3wrt+u1pb92t0HWVVXXTsiooKhxe+XXQEmc+CLne
zaiC7B3h7yr3m+HQLtbkm/WNsMs4YI+kiTUO0d7tPHKjEpzfSLYetTLFwe1c
+t3HW4B/fk3M7WUWeEhi75E17nWwfS17UuB9QyyZy69MqykDNsu9gWtc9PGU
VvuxPtEqKOQ1GpzlaIC8Y5lnSqWqAU9day4d1sQttLnNrHqP4WxxmKOzvQYK
vlGM+WJZBlXdz35TabPCObEzBt+HV8Ks3cOWuput8LXSyUIb8zq4aG3iQCuw
Qxs5/b/EZ/eS98GG3AHdxe2vIAj0J9weWKHABgvvVbWvoKw6U55nzk4slDP0
GdHqg4iutvI/Znx/b3B3iK30T7NDzZj1dq3zuuDsbQsrLVFlFFTroG/nTIV9
em2M1m/3e49Oedad29qB50J7SoOeMlqH5axKd0uCZUXWeYIB2lhfcv0Jg5MB
GdraciIb7fAA7NR9dKIHhjSHs19maGPZpoke/7JkGHrsqNfJoYx1qjMjHtpe
BGGpeTxXvJTRYxNti7dIAhwvcgy8XGSPoyX+Z+QCv90P34+M6y9xwLJbnVea
/2qFrRlhTqUa3+/D+80YakW533HiDhEVnb3mmP30Bec933p4XoYKPskO6Ms2
gyfqVQ24nxiSy95tiBwcw34m+15CnF6qVckhLxRyysla3joIn0r1BJoLvZBO
i9KNTR+CBbcyonxXbcdY6dAo+96n4JkS3ZhebYBzZI5deCk1AG+04iv4Vhti
KRQHL6yohayFhmaJVw3RjfNJ3vCWcuis1xZWKdYh463sY6n750YVXDHGdzN7
NB7WzZy11M3FCB/cZTfUSy6HhBSed+wtRmgWKyi0uuopeKVeCtZtNcEaRjrn
/Dn58F8xHM5A
        "], {{
          {RGBColor[0.293416, 0.0574044, 0.529412], EdgeForm[None], 
           GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJxNkD0KwkAQhXf1JLYexsLO1sZOEa8giAgWWgjiRWwsBCGFJMaYP0O0Dl7C
t+wnWHy8ZPfNm9npDCf9ccsY0xVtsbbGHKVT6UeaiVws9L+XjqSx9CLOIjXe
9xARZydR43HeF+fufqD6g3QmXdLL9QykiahESM+bmONZ4nmKK1muz5u6gH4z
8nvSOxkZ8yR4XH1Bnzv3KXPWzJzxrhRPyhszMnMo8VXMFpDvvhuo8YRoCTln
Nb6KuRp8BVkN37+MhJqKmWP2u7J+Jxvr71/U7Kzf09b6rOdfbcQOv+QPZOA=

              "]], 
             PolygonBox[{{404, 210, 212, 409}, {403, 223, 190, 395}, {409, 
              212, 235, 240}, {334, 156, 154, 370}, {359, 154, 156, 345}, {
              402, 190, 185, 388}, {369, 185, 154, 391}}]}]}, 
          {RGBColor[
           0.4393241985556315, 0.3110993525902925, 0.7345036240238543], 
           EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJxNkk1KA1EQhPvpLbLzCC5yArf+BFcmQkZcqDCgKElAdDUGXARUdCUYMyaL
XEGEQCAguPAOOiexmv7ALIrq97pfT1Uxa4dnu6crZrYurAo7ySwTb4mn4huh
K2xyX3MWeqr3xAPhW/WT+ICZDXGD2vd12TMRRsK9UAp99X7Fj+LcYt73/ljc
f/mMRe+ON2/Ch/AujNn5KlTCUGixa198K3yqPk/xzTmzL2hzvUfMt/D7jFbX
4G8X+MnIoE8eOdoeOJ/Qy8VXKfT28O4aC7SX1BW7XXMnxcy1+DKxM4XHAp81
NNSZHdObkWlJrqMln0P7911xN+Psc80UGo7Z6d6neF/wZkIe3muTlWd2Qabb
Kf6VjFyLJS1/xzZRpg==
              "]], PolygonBox[CompressedData["
1:eJwtkM1KQmEQhmfCq2jnDYW4SgQDNxpCIf6WrvxJJKjISlSCpEW3IEIQBIGL
7iG9ArsDn5c5i4fznG/Od+adSRcvsxdHZnYMKWi62R3PChTwa/jCP6GnGvzh
GxjjE/jFtzDFKzCw+EcHb8CDxVkZf4EPvAHneN6jVxPO8Gd4ghnM4QTuqb1C
zaPnJuk3wKvwY5FJ2brwbtFDvYawVHbo4y1YW5ypdgNvFmeqnXqSBTIed3R3
Be0kk7Ltef+HR48s2sGtx0yaTTNfeWRW9m/I4QvYWexUu9VOtVtlUJaSx7ea
aeTRU701Ux0/AJ+cPd4=
              "]]}]}, 
          {RGBColor[
           0.5482114064707466, 0.5004248005306425, 0.8875577671618042], 
           EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJwtkcsuQ2EUhc/mMYzEQEhEQkIJQ2FITSRuTTuhbpNy3IWmjXkxIDEW4qnU
A3gD38peg5Vv5T97/3vt/wzXT6rHA0VRTKJBdIiqqIZmIn0FrkV+24ZjaBk/
DUv4iO7RaiQ34AX6xe/DWd8zBRfdG5GSn4Dz9uNwzvWaP+LzIbiLvvCbkXU6
1/c71MIfwaXI7AuR96pGd//BH/SKv1U+/HpkPuV8idxH9aOROyuDsrdQH3/u
fZ/Qt+dpbhNe+Z4D2CkyZw+V7u3Cm8i+d3jp8zfYtu/4jk/370T6M9hwNr1f
1/UPkbnVcx25m3Z8jtxB9Q3P1D8q3aNezd9DH/jTyNl9593y++idVlATX4/c
XzVt5+o55z8SU0JA
              "]], PolygonBox[CompressedData["
1:eJwtkDFLQmEUhr8T/oq2xtbAQWgzycEwr0tUZt1BxEIXU0QdHIJ2GxpKMBdR
/Ff1P3pezhke7sO5nHPe853kg6x/lFI6hgIULaWM74tq+AoO+Ad84q+wxf9g
gq9hgb+rB/+BffKa/l3AI96DKt6EScxv4B1Y4jt4wO+i/w1u8dy8VzMq5pnU
qxk1fGOeRT3afWWedQx1/Dz266aSeUZl1U1z8x3apQzK0oNhzL/Hn2O+bu7i
I/Osqk3xb/jSDngy3zmO+6/NM2qWZpbxs3jfSzjFb+L9lL+Nz2Lfr3rwVtyr
G/SW/z/kMkQ=
              "]], 
             PolygonBox[{{353, 352, 323, 116, 383}, {408, 148, 333, 412, 
              413}}]}]}, 
          {RGBColor[
           0.6324015929465778, 0.6377555795830903, 0.9110621706312378], 
           EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJwtkL0OQUEQhXd5AsmNKBCCQiURjYTOb+mnROLqROglIkoa1U00yKUXT3UL
4R18k53i5Du7OztnZ/P+ZriOGWMKKI661pgB3MAV+uFD2EMBvgXfcI1OaCa1
aI6ynDVhCU7QC7+EZevqqtadSU0G7rS/5ITqH9ZlSNbUurXsP+FWcyX/zDqC
d9hBI3wNDtEC34cpzfLgwbp3juHRuP6RzinzVmBbZ/Oh0bsyU12zGzCp+9J7
jz4yu3XzyH5S3xXoOweaN4IX9MXfrMuT3DTMqZe/97RPAl61Xu6ltaYI/0s9
LOg=
              "]], PolygonBox[CompressedData["
1:eJwtkMtOwlAURe8xfoWMDCaoRAaYgK86IDFh2gIzJGnLyIR2buKDISYOGaJ/
YPwqBkb+gbVz7mClK+3uuefu46LOqoMQwhEcwpWF8MGzgh4+ghW+hVd8Ye5/
8IZ3YYbn0Mef4Cfmlb2DZ/wXHvBHWAefmeLv8Tz9P8EL86wyQ/wWbuAc2jCI
55WQ4d9xH/3zic+hhATu4Qv++baDF/wUWjGj7Bjq4DM1WztoF71bms/UbO2o
XU8gxRMIypp3oTM25h3kMa8uO3AR76C7qFN1q06u8Yb5LM1s4pfmd9M+Z+ad
637qdIrvAUFILgU=
              "]], 
             PolygonBox[{{308, 83, 257, 301, 302}, {299, 298, 291, 81, 288}, {
              329, 99, 307, 295, 296}, {318, 317, 257, 83, 326}}]}]}, 
          {RGBColor[
           0.7124588863809042, 0.7663853739532172, 0.9128872303417066], 
           EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJwtkLEKwlAMRV/0EzoJDlYcBEUUnBU6FKVb0bqLruruopsorq5+g5/wQCj4
VZ6QDIeTlrybkHR7LA+NEEIbmhDhBTvIxeoZDrBAPfzFNZzhBx//7ov9W+K9
Ql3gUqwnwxPP2eAUcuohHonNnHpG7bknqODhfdqf4KvY7LUYWl/w0+s3rqCg
nou9j5439t10x45Y/gDfxXpuYlmao3mZ778Sex/9Ponv0xKbobO6fjPt0Tv9
AVS3Jeg=
              "]], 
             PolygonBox[{{396, 196, 193, 394}, {416, 202, 199, 401}, {392, 
              193, 139, 366}, {331, 101, 87, 330}, {327, 139, 86, 288}, {401, 
              199, 196, 396}, {329, 123, 177, 338}, {299, 86, 112, 315}, {308,
               100, 150, 326}, {318, 150, 196, 356}, {277, 276, 273, 274}, {
              315, 112, 100, 302}, {356, 196, 123, 296}, {330, 87, 72, 305}, {
              287, 286, 293, 294}, {284, 87, 101, 303}, {340, 177, 202, 
              385}, {292, 72, 87, 284}}], 
             PolygonBox[{{281, 70, 280, 276, 277}, {294, 293, 285, 75, 342}, {
              279, 278, 280, 70, 289}, {368, 367, 303, 101, 304}, {400, 399, 
              415, 202, 416}, {343, 72, 256, 286, 287}, {290, 75, 285, 278, 
              279}, {366, 139, 327, 367, 368}}]}]}, 
          {RGBColor[
           0.7894699198131305, 0.8559480646093355, 0.9020071879749493], 
           EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJxNkz9LQmEUxu9bQ001RSSampEGChXiKGpNlQoNFeLUYE32Z47miIaaWvsO
4tY3uF/ErSWKiKjncH4XHB7Ofc97/jznOe/Nn10eDWeiKGoLs8JxiKKJ7IZs
T/aGuwf8j7KxWeFOuObb7gZCHX+dXIvtCmOhj7XzBXkD4pOcmJiY/I6QFlrw
sJiGkBfWqWW+FP4G303hVniBm+FNGAlloSTsEmf9zoVfQeNFH8Ip/Gy+5eDn
teC+Q3gvBe+9Ejy/l3Aj3vL2ZGvMO4LThNl69M2iTTJjg7s2cdZjO3jufvAd
WI1n+o6Jy1MnB8c6PLvMahyywTU5Cd6vj8adqf004ZVomfhM7wL1roLrOZSt
yO5EPqv1qPDdITfF2WKq5PfhWyFni1pW8z74DmwXf+hibyAjvAv2Xn+Eb77N
Nx9c57ng9UrUrNG7igYl+i0SvxBcR9PzVfYz8v/gi7P5n4LnGu+i1YWnabCJ
v0B9uy+zJ9vXATFF4tLoYpqssvsWyEz5cmhk7y3mzfwDJqlZtg==
              "]], PolygonBox[CompressedData["
1:eJwtkksvg1EQhs/UpS5FQyyIaj+V0qSSj8i3dFmzssBaIrEi3fsBIt37IWLn
B1lZENStPG9mFk/Oe64z887Jzq6OLksppVUYhldoQB1+YMFS2mE8hDn0AVyj
7+Ec3YIn9J3uoG/gMfnaLXoEttAbeh/9xrgGbZhgXoFOrGlvAEuwCCX29uEB
fQF75jkolx500NNQ6Cx8whTznHEdhszv6K7OVNErcIruwi561jyWapw3X+tG
/sfo73hb9yeZf+jdmM+Y16Ta8oj9xZiFh/LyDyzOjyHGzb3WGZ3tQzP8194z
4zLU4CViFvHGb6zVwqNB1Kha5aG8PDHvhXq0iR6F7eQ9UC/keTti9sNDeSlP
MvOeqrfqYW7uWRE1v8efqEeOyrUc+4qhWP99BDGn
              "]]}]}, 
          {RGBColor[
           0.8613668028911141, 0.8799237593555514, 0.8697974487851554], 
           EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJw1UEkOwkAMSzqFUmiBAwdGnPgJfIEn8AD4OQdQWctiK+Zg2WNHWWa9P+4O
hZmtgAR8gAycgbmbleANuPXwS/BJNT0wlF+BO/kNdCGf/e7yx/Ae4BqYQteq
Yf5UDb1e+iJk5QPVc2YjnTx2ysqTdKvdK80b4b0Ef3UPsy34aqF56xu8ACYe
oH5pb/b838d69pp59L/pv5jxb34Ghhsj
              "]], 
             PolygonBox[{{270, 9, 7, 271}, {255, 24, 4, 244}, {251, 20, 4, 
              239}, {244, 4, 20, 253}, {263, 25, 24, 264}, {239, 4, 9, 249}, {
              247, 7, 4, 246}}]}]}}, {{}, 
          TagBox[
           TooltipBox[
            {GrayLevel[0], Opacity[0.4], 
             LineBox[{258, 254, 242, 238, 252, 243, 250, 265, 248, 266, 245, 
              268, 259, 269, 260, 261, 262, 263, 264, 255, 244, 253, 267, 251,
               239, 249, 270, 271, 247, 246, 272, 320, 321}]},
            "1"],
           Annotation[#, 1, "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            {GrayLevel[0], Opacity[0.4], 
             LineBox[{400, 416, 401, 396, 394, 392, 366, 368, 304, 357, 331, 
              330, 305, 343, 287, 294, 342, 319, 290, 279, 289, 300, 275, 281,
               277, 274}]},
            "0.9`"],
           Annotation[#, 0.9, "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            {GrayLevel[0], Opacity[0.4], 
             LineBox[{273, 276, 280, 278, 285, 293, 286, 256, 292, 284, 303, 
              367, 327, 288, 299, 315, 302, 308, 326, 318, 356, 296, 329, 338,
               322, 340, 385, 341, 384, 397, 415, 399}]},
            "0.8`"],
           Annotation[#, 0.8, "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            {GrayLevel[0], Opacity[0.4], 
             LineBox[{283, 291, 298, 314, 301, 257, 317, 355, 295, 307, 297, 
              306, 311, 312, 310, 313, 316, 325, 354, 328, 324, 349, 337, 339,
               382, 348, 362, 365, 383, 353, 413, 408, 414, 381, 364, 417, 
              418, 419}]},
            "0.7`"],
           Annotation[#, 0.7, "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            {GrayLevel[0], Opacity[0.4], 
             LineBox[{309, 282, 332, 323, 352, 412, 333, 335, 336, 344, 351, 
              347, 346, 358, 350, 374, 379, 363, 360, 373, 377, 361, 406, 380,
               372, 376, 387, 389, 375, 390, 386, 378, 411}], 
             LineBox[{405, 410, 241}]},
            "0.6`"],
           Annotation[#, 0.6, "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            {GrayLevel[0], Opacity[0.4], LineBox[{240, 409, 404}], 
             LineBox[{370, 334, 371, 345, 359, 391, 369, 398, 393, 388, 402, 
              395, 403, 407}]},
            "0.5`"],
           Annotation[#, 0.5, "Tooltip"]& ], {}, {}}}],
       AspectRatio->1,
       Frame->True,
       FrameLabel->{None, None},
       Method->{},
       PlotLabel->FormBox["\"Gradient. mvy\"", TraditionalForm],
       PlotRange->{{0, 250}, {0, 1}},
       PlotRangeClipping->True,
       PlotRangePadding->{
         Scaled[0.02], 
         Scaled[0.02]}], {580.5, -967.5}, 
      ImageScaled[{0.5, 0.5}], {360., 360.}], InsetBox[
      GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJzNeXc81e0bv4qU8mQkFJklskX2dRnZ4+Bk7+xKaD1UKK1HS5TRIJQiaXlE
KA0he2TvcRyrRRP18/0ePv2cfr2+//4+f5zzep/7c1/3+5r3fV9HyH2XpedC
BgaGEzMf//m2udzeuvvtR/D670OBoKNf93w4/gEU/vv0AcN/n/ez392/4Zax
p8XrkkbhUsJ/npbfsEEQTISWUWfl1UOlWphX4jXK7Pya/+8xPf8VhgbunBr9
s/qV/YZp+rfP4rzfMAPdM/V2m6/CGwmsrPjPMwokr4TydE4JpK03AlYOraq2
JuJImz8EIb7LEu6HbkDabCpIPY+pZcsQwzn/jXI8yH9QuX5WXj+cvaFUd4e6
Duf8SY+zR1/mU76JzsrvmeUnivP9/Wcc+lJEUvub8Ox67XBrIu7y/j4hnPP/
/8JtdzOZH+YLzvJvhFYz8/udk2txzt7/CxexCDC8MuDDOX/R7MWLc/6gxzT9
uWbnv/htnMaPHef89b8wbf7SWZz+G6b39//b/6qE/2m/bqKz9y9MW1+OsB/N
HtKEPebHSxmdvfPo9P0TPxViPY1xlnMUAV06fr+eOf/PyZucjef58a5Jp88v
PDmr/5w+ogcmGQfVNxP60L9PW0+e0O+/P4dr0cmnt68RwX++fdLp7Jn3G6a9
rzJ/PQZduvX+jGnytOj8pUnnLzr54Xp/1Gcu3g+szNLvCTkKYh+jDP2TZAh9
nPZ2CmExidC37sOhI1sdlQh9Ppq91GtxNybynzYf6PQzpFv/FzY4Xyu93UmH
4E+Tr0foR+Nv/Ef+8/2XPhtfZILv/HjIm/W3Nh0/Mzr5v/DkrL/nx5P+/HhC
0h/5UVeEKVQKKxH8+AI3T50OsSH4rRs1JLGbAcGPHnfUvOOO32hF2JcmT4/O
vxbz1/+/ME2eOcH/p8e6Nnc+4/n8iyz/yH9+PKUDLf7tCf7z4zFvdv+wIfYP
Wn3cSvCnSSXTrfdnTFvfkK7+WNDFvxmdP7b+UZ/CNEXtvr3qhD5tO6IaW2Sc
CX3m6tO8ehNuTWffX5gmz4TgNxd/c/wcrhTo3NlpQWdvmz/yo39o+SlJl59A
8KfHtHx1JfShxx+7QMDIxJU4D9DmuxDngWYds59Oic6z/Kh0+Zj3G8598JXp
4gUnwt834xL9BA47EucFWn1wIPzfLZbj56psT5wP5tePF7P2sKOzz5/x1X8l
H0U/siHOCzR+1oT9afqZE/75n+NtcWVJw2Ti/ECrT1aE/3K9OIsO3JnLr5rf
xmnxZ0/wK1u779ZBDy3CP6bZe2xjgtzn73/hDnTxRYeLHAk8v37N1TsPuvj1
oNtfnYn5Cn61d5nP6hLzpeSTi1UqPee/j67E+7R65U2Mz68/s/t9uBvxPpsB
d/gFJUUiXpffq5TvFvMl5if+11/68+cXuRPzafXFj46/BzE+IvU96fiRHXR8
PYlxWj7709nXixgvv72eVapj1/zxIm9inJZv6gR/Wv4E0OVPAF3+7KLLH/9Z
edTZ/NhJlx87iPyYH3/pv2Fafmynq5++BF9aPvnRnbd/jdPyw5suP7yI+KfF
uwcR7/PzI282vrfRxf+cv2vo6kcZXb6/gLfGSRTeS6T5/kY/uvywoIun7cR4
6gcTvy5pS2KcJSXvVmPiAMRrWwbrPq2BQ8LXJUUY1FEjq3BlxkoqBIzsS2t1
18DMgS/3eA70wrO6+L33VN9D+XLOt99DukHp3p1//7rVC7EKGWNv7taAvP7e
4IMvRXDaPKbz8+k+CGh1iIDw7tnvGmieLn0iLyKIWi6r2HlbeoEr77rHo6Ex
mEr/UGfq3j2LO2ZxDYx6vHNdKzUIS3Kvd0vV1MBhz/yspgkJvGK+148laxQW
LcvTfrhXFlW37DzK2ksBvW0rs74HKGCjqmci26oeUJawqZFSHQEmLTXWq2u6
Z3HbLK6BUI8f5/ZxrUFuIzmDZba9oHB33ILEpYsKg+0lVmeoUBbqUp7DpIvL
eCVevzfqhYMh26e5Hm3AV0NsvdOao5B20WvZUVVuHDm5rG/iQw9cdGfh0RyU
wGh1v7TjmaPgujpM9LapNFqtZXu7N44Cq4aCeZa3yuJKhhxFzyPd4O+717Ws
QALd+rsshBJGYbODpsGaDgm03P8kV+3WKDzvT1U7Zi+JonHazOwvB8DEf6nM
uyYpHN155nbF0w6ILHbRXCO/Eu0XrLEwSuyB1U4G1ZUF7Gj77jspl9wDLGcr
uQ/pS+DaBWOnPxf3Q9W1iCKGoxJYFB6TVvJPK0Q/VPE9WiSBJ38keOmuKIGK
l2Fo8kYcYyntu9fc7wfvx/Zfgk+LYyN/53dHmVaYurywK0lxBbZWn7lkztsD
XpHxiWbH+DG2UZkcfK0BXOX5Tq8LWYahTT5Zr/q7gWXI5+sKXV7UviqgOXzv
1/2Hb0SYdOBiP4GvuLZGHeJqhZeQFit+awM6l+ud3be7H0K/77Da93MDMkcf
dk3+1ALDJ+7In3Rbj6F2nq62y/oh8tB9x/b1S3B30GLvvrvd8DPpx4P4YC70
E44Wevq0DpQeiraXjDHiyqXnagaPd0Nt5Q2rBZXsmPvX3UMdjHVwMzB7gtQl
hrbBy2I/OPZD4isued/kDRiiuVsusrsFYvX6/HkaxHDiskO2nXk/jLvvOmq0
cwOK5P5zRtu9BSzCJhMOLhbHwoBcj1Tjl/BYdKo3/ekC/DYufoLdoRs8S1zK
6+yWI9mSq+OLei18W7661shyCm7cuXDMRa0bpnUXH760kRHdmet/7MqsAZWm
jAlS33qsNsT+7ev7we5WX9jpTjEkqX0i58u1QHAw37LSlg246FX9cw2pl/BB
ImA0PkUUozM7OD8JNMEj1dttDSoiOFEN+saUXFDXmgoKf/gZQly5KRDUDT5j
XzLcuhdi1BEe1a+dNXDPYHzSg20BslkL9z+l1oCWX8WN6EwRDMtiCv3Y2ghL
pwqlDqwUweuLV7NsK8gl+gkHLzJdq7/QSODSsTKJqvO5sIfn3Z5AM0Ekv/GK
LDB5A2RpZvJL/SnQdck+NvatBo6bZ7w6Nv0BNC9d9hJqq4HbgysV3rEKo7+h
DO8nyUYoUTzmePKNMF43HHr+2DKXuB8L65ibb+FuhO5zmpl95YKotzUwVPb4
G+CWCdPVXmGMykau5EMdVGBK5W9hN9tI7C85OsJ62SwqBG65x3ZCtlUZ8VD2
Y5uxTri/vP2VpKYiapZORLCQe4l+BWOOydqayduw6FGm3KGkNRjOt/+f++kZ
xP3TVuiWS/WRepBVj0xb8EAcD9oy77lu+Arm+kUPk8b7vK6PElhs2KxpG/MA
gRV9yRefNbQS93GVKa6v+xRLIFAqIGOBohhGGfSGTQ83Q+bJmqKs6xvwoRab
+FuGl5DwpvDcwHIhtKmUeLMoKBvqGMY9ryqJouNBzuaTC5vApEBqXYC4CI42
TWrsbMgFydWT0X45fCh5SEx1451MiJOWPPdkhBMnhN0SZDivgZiOrqXATV78
BEYjPyRugsjHBQXRX1TQKHfpy59FFAjZJOl+tloRtX2kskKamuHjB5sIxQvm
iF+Wawj+OwBphrx9zVu0CfueyXf1r10rjGE2abfDO3Kg9lEhv3qTBMboXnjY
N2OPK0ycsU4qG5FUuVnaS2AAvK18/gq7vBF5M3MsahXaQD658Pi16Y04cy88
k2lRStSH5KsOk+sTi+FU57J8NiEZFH42KLhHoBrm+jMHT257kaYzSNxPFZVb
mtkfdEPI7r13xQw1MG6fzHDqBBXGeQPERHkRBdVLLZs8+mG7ScVVkR2quLxk
yyaopoBxUZdc8DsVvLUh4PRK7y6Q3DReXBWkgiovyPcyZGpBbkww4AefGjLs
t3DhNRmEgkjGQekgNfwWxpQQ+XLm/r2B6uRSoob97LtvfAlugPri8oZzfOpo
e27HNp/bhVDKJdJT9EkFmVvsVd9Y1EHgyXA2eXE19N/jUSFpMQhqf5EWdpxW
w8QfKcOp1d3AeEFg4sR7NbzC/oJd6UoDVPG+G5Anq+NoHIPKeY8nsCrlYPyT
Awpon87h2LK1Ee5FyaRtWaSCOnXs2dZSXbBASeUEv5oKcqeOurAK14L0mxZb
T015dFCOO73I9w1MkHR35VxQwGg8cddbowEW7TIru8umgFlLv4wGczyC873r
1b90bsLCxPp/uc42gnvyqXGbD4qY2/q5Ub+jGK408lflbJJDqRsO/WwadWAm
a+ed5KCFipxYtZanC8wH2e9JsuhgeH/+c/sjg6BM4pKomLRCu/NHJhPdRiAz
Rl+1KtSAiJ+5/sMq/nu3qe+eQB/r7tuKC1UwsmVhzWWJLkjJkXk5IqaC9X7C
Tx+/rwHx212GlXbSqF+Ys+/t/UoIal61RrJWCfVukneHr30N3zg7vb5s18Gj
LB/vGBcPwnqua8ffuGvjhpQFz8UduyFD8Ey0YYkuahgXCdXpDcEPKSPnt4Vb
8PuCoFXPufqB0Y9vI+cJLdTPXNG171QXdJ/KXRTXq4N5LjuEz4pQYcDp6H04
qYMKnPo2pC09MCxDcqFK6aD9GR2edVUN8K4zcThs5j55MFU7SnrmPHf5zs3c
yQ86OFobamihSwVtQ2ZGqywdDL3UOmYX2wND/V7mGX46KPxqh2hxzRuIqlig
0HdcE98OHmoSXNcC97ZHaKUHaGF7Uf7rOIsuGMq54SvnrImiQedWiZc2w9cC
dS8zZsA6I5HjwjdKiHy4rlS8hP9pPaRYSvn+TNPF54n4RGDxEMRmM7Oy+W/B
lIRlq/L39sE/q3rvCSrq4ULxO22Zr9uAg0lq6HWEDkb3djQmKjeCxatlOh/6
DfDMV/MFzzgG4dvz8BRymg2GOw2Zyg1SYNcC7oWB4+aEPz1zyI6T5ZtRL6BT
XCy3EibWXQ3a4C2PC5lUOGRPPoT2gvGmjRuMcGafafOcOW/aip6IO8djiB/5
zyifuD13fzHCxUGnBrz+oRL9o4SLoWflm3tA5+doa+gjYwyIP8KpqToEXuWq
lY9Wm+IZDbGA5MQ+WEQeC3XWMiDOv/IcPOr8A0a4TXbq8aIjVHC6tJ+V54cR
fqzSfqFU3AMnhZs6ObiNkbGNI66erRE2a5Opfod0cY9X4ynzfCokmSsNKzFv
wW/lhpuyCnphiRPP6MLzW3DKPSSP92ALBPh9H6tarYesjs9XZk2/BtftPoG9
EUa4vktmokWcCs7HGmw0GI3QkrU08FZvNzgloWb8UUOc2lfUOaZUD0yZOYIf
Dmuhj/fuPNbwmcuRyFLH/BwtfHBCirNnqBbOZC+y2rdTD0N8r5jsyGwHH/d4
Q28vbRRg0Ipedb4ego9ePy6YrofLLYXvxyp1EP0XdycnscatVAJTTpxTvfus
h8D1HhGX2RwaCfxod3XEMc/nUBco2f+RRRc1R4cuPFRqAv7W830qfLr44Mf5
4HMPnsO+zj1/jWUZY9ryEmW2xl54afI2MdnbGG/J2S2rzOyFwjhqKe4yxv6t
Jx39knrhc2FkCjuTCTov1OBYatoEPLyi0YKPN+F15Zde9vKNwMtlzymZpIgW
siXDy3Vfwl3zlKSMMDnivjIaGrdhTb8snhEhO6YXX4NT2XmW4qc10DLQzfjL
ySa4/uD1JZkCddz7/XpKbGYRhG6t1jQRB8z8zlkeiKXQkpzK7zeTj59eS8V/
iC+D3Rsc61W+6ODHjmf6QWLPQesa8zZbZ2Nsf5F9VTC2F/jargtOiBmjdXPQ
xtX2jTBo/zYmqtUMy7488uCoaQNHBtVHqidI6P+XwEBiEwWS1nGl7VQwxJWM
7s0TbPVEP6bxrHrt4xl5c5ink9W5zbcR6iefhV07oIcrnbbt2tPeDmEbdybw
eevhDZ3Fl2O3VAAphOLgbmCEn1zZs1gXvYEm6gm/O+v1cFKNJLbaqhz6jIXK
yoaNsWGSxcw2vQnqYto22PZY4A+5+EkLRyq8W5qj32ZBwoZlB//xs6PApjZX
0vcIc7RNjwzgvdpO9J8G7pyrCJ0qh9C2JJYw701Y53vpef7pN8BepevWRtmE
CsLN5+XcnoHt+gjK4TpnfN24/0yx6yisbypIUrXY+lv/UnUoPM/KtA4Klas/
epLJ2GjIPm37YATqE0MleBO24mVN4Wmnrn5Q2J9kKESyxvtnCl823R4Ac82d
AhxcFhjzmfpCjTwI1hdGNWP/tsB+PvmPHDP3pa8si/6y/UrCA1/d1Qq+UUD/
mUjIMmUL3BEcEBK6swug1aE/68uMPcXCzZyPVIFhsvbahxwkbFyk41q+uhOG
S01DKiItsDdhtY5H9eDMfSEgnfuwJQ6tTMwomam/pbaZazwnZ+rBxLjdcYlG
+DEcP7jKzQwvCZ1172ZrAz/ugYWfnQzwh5t9ne/rWmhdEsV3eMIIy+2yDbxn
6oX6FvZQTi4rFGdXv1t0ohcq1vI3P9hphdQK9wKLAw2gKfrzTo6IGpYOhg/t
tmqACbtHeKNfDevCCk8W7yuE2pD36rY6rphIUm61Wt4Hi//N7QgL08Lycl3n
ruAu2BUlFN8fqIWheoqfM9RqQVEpOTKPXQfTHigPfPAvIPqXo84HTX/MxHde
VaFpAskeWdYiqUB6CGJaw6Sv8pHRdbjSVeHACNSOCqoaLiHja/Jia2GrPhiz
eHTx+jdrXGIpnN2vRIH3Xbc+l7KTcamPE5nVZwRshfIfhTy2wqFjKZTTZTPn
ZffKvyW3WeF5/eoPPNYNYKje4LRGjYxrIm7zOsaNAPcNr4VufWSU8wi23Ms/
c59kblJpPmyKU+0n+6+3tsCRsqjk74nmmJpQsX26sAz2pO63L5HTRTAIqPZ1
pwK3yaCGgIkuRthuWVre3QOPJ6yF9nvp4pnaTcdtnzSC09VXjNXhuijeXziu
uO8FaOdI10RJz9j/RW3atWu9QJXm8z9mb4XrdydsWmrRAGnHl7PelyajNejk
sh0dAbEptkzJSDKmhrfcrI/um7kPchnfGiBjZ0SXtJROExwbf9alnU9CnSsq
+aXhFJDRNr1clUVCZa78lp+mHdAa1Wxtn0LC6j6mkPZN5XCsTNXOdo8x1m94
bWa7rInoXysFLRLRDB4hMJ/AsgG2LX3wit/HpWEzCfe8ovLYXuqElm+vOFyu
meNE9P2e4udlYFQW6HnygAqGUqrZPm29Bd03xrb8s1ANT9nt9vhUlgNvo3fs
anZ1RflbPCI5Yn1EP/Or++ieHZH58NHKPkbJSBs7kxerJ3Zkw4K23h/tG2yx
OEfRbd3M/q1oYrJkuZwN8mrz/PtchQKPv7ytXVlmjTbHnA8FzfgHU89f5nez
RsbV8tqhTIXwPdP0+lWSFXo6bBx7OHNenJTWsz+4VR/3OTp9zZmqhq8tHDrX
tM1xB29GzNmzpSAheu6NdYYFxu86cnH9mlpg/xlN2cBrjV9Tl/MHTjVD9UYf
Fzc7a2yvV3cN6iyA93lXP3H8tMCJ/eoiG71qYeWT6K/dh8wx99C4UkNXKYhS
WErTLtigo0Gd/dLrFMiujHWgrnbGz4fAuurdCJAmS1hd37jhj2apq/qH+0Fb
s53500kXoj7ZjixzjP/bGcPU5NmzJEahUM1KXPu+I1aJJx3kFuyB09yG7mPj
zljwvijIRXQmfs4NFyw57YLPb8d3Bg9Vwd1gC8abWs64SqKluHPxKEgUdWYf
mnZCtsReLvuOEdB3ERoK6HXCsy2laS3Pe0B2QrXi6JAjRqxITpqGHohjzIq7
JemMN7IEHWU/jsAQJfDKzcXOOFzLIp5T0gPr3wtsjdnugDXMA55rp4eAkjg4
ILDIAZnd/ZYw3RuC9ATD2zxxDvjygGyfq3837NSYPvrvQQd0LxoUOjBznjVf
sOcAS5o9XlftybvgPwRbfr5mqL5jj3JhuZE3tw/BiyOVFXXjZKQ0SzIo7moC
BcvWLck5tvgMXp+xU+6AEF41idp91ihbZ/KK62ohsDt8OZWjYYcWfPU30ws6
ACNWX2YRdsCUsWTxr+MlkBkpXiz3jIzem20W1rI2Qbm+34dt+62RQf3bt+na
FjjM1MF23MkaNxmtjlrAWAhqB1xGk1VJ6HaC8/m5pE64G59XtWrMHI+P3L0S
Y/EaFv919eHhmfOk8/4TeZ8etEFb2enlrX7W6FqhtDXBthCOPE1gaJU2Qd/7
Mu9bXxdB15TEh7RTVijK2v7sXm4DULOjmiL8TJH/69IOq4oXcOxx1uDfF7fi
9go/iQnTZgiYJrHGWVmjT0rK92dPC4Dz0Rpfk2wLrFI4rqqlVAsJyecfbzWy
x9Eoz2j1TV3AzK5h8kTLAR+zmnEnmpRC6oJoZVtla4zSP8l/j6EA+s2UYtdd
skDj9ari2l9rwLDkuuRKXRJGt4KhxoNOqOjUrKjdT8K3m2uPVpAq4Jh3UTLH
Dgu8tCCjVtenBr7nK/HIGluj5mpW2aDzBbBi0Y0LrVR7/CQjzm739xA8Jrv/
u3jG3nslIw5/i+oCzzSBRnkHB2T86P3ssHsphNz8cvPvanf8Eal8/+imAQjY
M+QeQt6GrLtPjAWlN0D+WY6r8euc8Vy4noYcpYfoJ29enSTWZtFN4IXMzXfs
U0uJfvXPE08NqedaCKx+UZ/D/WsBRC+WtSWrOc7kr5+mAqUbJtcqZXjOxB/j
TcEvbkOlkPI1MPp8lANyhHC2TbOVQYmSjy/jWldkd9GZKhvshZr34U6bQn79
f6P8uvKfWxke+FfkjcVxKRSYEs/Yp1nkgJ0G8qFvd5eBv2/U4eP6bhj1ba//
284+2F4coGijr4VmuwOSTPxSgFur4CHTCi+U8F0nXLGKSvTPyzktI2Iiegks
GnXmwqmV1bD0/f4AgWR3VAxzV61cPQC5TU83v43yxiA+gfD2TCrIVa73OWyj
hYzcT1JjUi5B32J+X4WbbtgQeO/FK8U6EGq05k9a4YHSMd85k3UpwLMrQa10
hk/FW+rmRYaJcOm1arMhuyzxf0cDT+aRZb6+aDdRYLxaYBgMatqC1IZIyOnf
t9j5JgVIE8fucK+ywC/PUo+5THaADY8sdVzbAv8xXzDJRKqElcO7VF9oaOOD
NLtEk+YY0HVeq01+YYQZRqTQJdRUaIln/7BwvTsucTl8wSC3H9SStF225brh
Z+9D7ioz56/YXXBcJGgbCh5QsqluaACDqFZj5lhPDCnzMOWqGAS1LxnCqOmP
Go65HfclR6FZnOzyqn0bplQF5ZtLUsD55sZ/Azy3ocOJzr700gZY+zkp23Wd
N1Ioi991BVEBpZv8wr098JlefmDgRQqw1qx785rigUKgHPGYrQl2mqZOZb73
QFKFvnDCyibY0HRuiWO5D1ZYcrR6HxkCZZ3so3s+eSIjX3CIkykVjtxrX6h3
ZAf6WFt0+jiOwIo7nGarW379v7TirboVNdIbW/kvM9x5TwWmEM2HxZLKhL3l
HxSM3/DUQsMrpm3T4vHgxfB2tFzAH3/4hVE9REahNOB0WEz+DuTl/PYtf/8I
9Oy5F7nTbgcKxMYKZe8cgR/yF5coj/vhWYmTwlMvhuF2Z728crsHXnrJecRg
uhFGZSiup/8xIOJ3iwr/1PC2HbhLXOZks8EIdD80WyO71hePfu55+mCmXt9/
EcGflTMjT4oqUp44DGJHS/yl8vzwxbtULxvPYVhq7HxzwHgbfg/ilh9LagDB
bbJPAnm9cGlADMWdqQWaDrEc+PuZC4YefTKQub0afvS4hfs0u6FnWFHG3+F1
oE05wFoS7ob2XQ9jmT7VgsQimd4qbxd83z12v6qwCkoMcz96eTlgQerWdLn0
UniY6cPMc8ASF0bndvtY1YFJ7Q1H4bCtGDA+GdMyngP/B8AZwpc=
        "], {{
          {RGBColor[0.293416, 0.0574044, 0.529412], EdgeForm[None], 
           GraphicsGroupBox[
            PolygonBox[{{308, 25, 242}, {252, 25, 256}, {256, 25, 333}, {242, 
             25, 252}, {255, 25, 250}, {333, 25, 316}, {316, 25, 255}}]]}, 
          {RGBColor[
           0.34521805340147826`, 0.14747418094350967`, 0.6022260527060845], 
           EdgeForm[None], 
           GraphicsGroupBox[{
             PolygonBox[{{275, 1, 277}, {238, 1, 247}, {268, 1, 275}, {288, 
              30, 274}, {27, 1, 28}, {28, 1, 29}, {284, 1, 286}, {26, 1, 
              27}, {29, 1, 30}, {293, 2, 234}, {279, 29, 281}, {247, 1, 
              251}, {236, 1, 238}, {260, 1, 266}, {251, 1, 259}, {277, 1, 
              284}, {259, 1, 260}, {266, 1, 268}, {234, 2, 239}, {261, 26, 
              264}}], PolygonBox[{{257, 256, 333, 334}, {243, 242, 252, 
              253}, {274, 30, 1, 236}, {250, 1, 26, 255}, {272, 28, 29, 
              279}, {309, 308, 242, 243}, {270, 27, 28, 272}, {334, 333, 316, 
              317}, {253, 252, 256, 257}, {281, 29, 30, 288}, {239, 2, 1, 
              245}, {286, 1, 2, 293}, {264, 26, 27, 270}}], 
             PolygonBox[{{317, 316, 255, 26, 261}}]}]}, 
          {RGBColor[
           0.4446982161975701, 0.3204433179355379, 0.7420574559306871], 
           EdgeForm[None], 
           GraphicsGroupBox[{
             PolygonBox[{{236, 31, 274}, {328, 57, 311}, {302, 7, 241}, {351, 
              57, 346}, {341, 57, 232}, {331, 57, 341}, {232, 57, 351}, {303, 
              38, 305}, {346, 57, 339}, {306, 41, 300}, {343, 57, 328}, {339, 
              57, 343}, {241, 7, 231}, {320, 31, 291}}], 
             PolygonBox[CompressedData["
1:eJwt0clKQ0EQheHqGGcTDTFOqDeJXCeIovu4ca/gI/gA+tguHMEhCzH4H+os
Pm5Rfbu7qnpw/3j30IiIPpq4KBGHfE9wSdwsGSs3Q7yHXeyjwjUGrA1xTLyF
TWxjB2+R6xVeMEduFgtYLHmmzq7xa7XPm+ALn/jD1HcM/c9pSbXrOyfuYM01
qJZ1dNHDBm5xgzGuMFI97J3HGfGRaorMjVyjam1j1T2pt776xgf/veMbP5H/
tF1Dx3eM3bN6n7qXQtzAk+/Wfc9YJreEFbRK5rSmml4j9xT3oF4mnpVmrFm3
vLfr3iu/Va05ewY9v6He8qDk22i/3vIf0M8hvg==
              "]], 
             PolygonBox[{{237, 3, 234, 239, 240}, {289, 288, 274, 31, 320}, {
              300, 41, 260, 266, 267}, {294, 293, 234, 3, 295}, {311, 57, 309,
               243, 244}}]}]}, 
          {RGBColor[
           0.5441783789936618, 0.49341245492756614`, 0.8818888591552896], 
           EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJxFkb1KQ0EQhXe0USxEuIid2CiICTEQhfgTiSAINuYRVAxBNIiIkMIy7+AD
WPsavolFEFKIpPQ7zAGLw3fm3tnZs7sbV8Pew1wppYbm0UWU0oFdWMEWWkC3
1IewDc9RGz+AK+gYvwy/4RqaeN2qa7GyP4v8J79lvwlr9vr26/9T9Ex9Cu8j
91aGO/hTMsM+vu61mjHx2i/R2ZTxw5k/4dQz3+Gbvb692o8iM7fK/x2coCZ6
cc84cpZm9mHT97YLZyV7NG/kfp1j4H5laXhmHS1Rb8OdyEzqn/letPd6ZG/D
GSq/ic45dL9yje11pkfUxe9Fvo3uYREe2F/CG/eot+9s15H3rtl6zx71EXyC
fyaRLtc=
              "]], PolygonBox[CompressedData["
1:eJwtkU1LglEQhe+VqCDaSUQR8moLs7QQKgvLsu9VoX2Ri6KgTWA/21oGraPn
MGfx8M5758y5M3OL18/BuJRSKmAKfmAWtqGVU+rBIUzDDJTggFwX/uCU/xOo
wxpcwJHrz3NopN2HXzhWHmqwCguwpbugTLybQ9uHS+IJ30X3pN7OOGvwbUKH
+M163fFOvK48bMrXPdV9ppxqmr5vj3jDfj1oE887r7M591jzjJpVNarVjJp1
BdopZtAsZeflIa8RPMEQbqEKhXegXVRy7Eoe8lqGJWukfYFne4zsIa8HeIRv
6r5SaKTt55il4V195NiN3mxAvJNjt9rZFfENXPuN9db3cJfDU97/fZYlnA==

              "]], 
             PolygonBox[{{304, 303, 305, 63, 332}, {371, 61, 258, 335, 336}, {
              263, 262, 265, 62, 315}, {344, 343, 328, 66, 356}, {337, 62, 
              280, 282, 283}, {365, 67, 331, 341, 342}}]}]}, 
          {RGBColor[
           0.6225200296646531, 0.6218786569632657, 0.9108369014240408], 
           EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJw1kT1LglEcxe+twa8gNBkt6hIEojREUYphdHVwemwoaOltqKUxoyWKkMAt
8DPo9xH6Jv4O9zzD4Xd4OP/7f3lq10+jx60QQgNto4MYwiWcww4q8G34ii7w
C/hvP4UjNMHfwa7zPdhEZ/i66O8n8B318Ct4jBJ+F/6476ezVc2AdpwZxpxL
/rbv98s+yqayHzyFh5oJXzGTc3/upZ63aIC/iblGtXsx76A5dIM3z6zZ++gc
34LLmN8rOODAtZrr25kXOPatHuDMfdX/1173Tn7nOeb7Kq8bT+3v4ZfzqtNt
NJvuXe52BD80H/7KsxTed+5a9V87o2zbO+r/bACgXi+3
              "]], PolygonBox[CompressedData["
1:eJwt0LtOAlEQxvFzjE9BZ+JTaEEgQZslYbcwEiBR4nIRoiBRCSQQGuwsTaCH
1stTwKPYSQed/y9nil8yOzs7lz2pPyYPR865DI5x6527QQVVfOETG2xxj7bl
9G6JBf6wwxQTjDDGG+ZWo9oBPphTQ0L87UOs3I/N0KwmWjiQ37vQU71T3KGP
JwzxajM0K6+9qS8gIu4hIo7xThyjRHyBc+JTH2qVy9kNumWFtbdvbF/tembP
6tmwG3XrM16Q9aG37ikRl3FtO6fWU711k277xSWKuCLfsf+hGZrV9eGdambE
/3xHNOY=
              "]], 
             PolygonBox[{{348, 347, 340, 73, 478}, {360, 359, 355, 76, 368}, {
              370, 369, 310, 74, 397}, {435, 71, 233, 352, 353}, {350, 73, 
              340, 344, 345}, {374, 373, 365, 77, 377}, {372, 74, 329, 361, 
              362}, {394, 79, 367, 375, 376}}]}]}, 
          {RGBColor[
           0.6956609682225581, 0.7393957935431976, 0.9125042895459914], 
           EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJw1kDFLAlAUhd+rX9Lmb2msoGwwCwITMZGIHAoaC2rzD5hLVEMNEohEoFMF
0eAvEEFoFhyEvsM9DYfvvMt795771g6ON+orKaUCWkWDnFIZvsIq2sOfwGdU
wd/CM7SLv4aXaAdfgx/oCP8F79EW/gpO0D6+B4toE1+CN+gC3zQ1q4nOfV/v
3jyrA9v2XfiDSupD+KH9GP46wzyH5Jew4fyVHDvIq3boPMr15N0fc6js/2ih
bfxpjt3UU3Ne3Ed/s3R9CvvOM/rfD72n8NUU88a+853jjd7OcpxV134Le/V7
cB5lHLm+nmN/ed3t+n/0ZzP3rMM75/+EfxRXRgg=
              "]], PolygonBox[CompressedData["
1:eJwt0M8KAVEUx/E7k4ew9UpsLMyIUkijsCPkT2zkz4IiYsNWBntl4yWIN+AJ
fE/3LD7Nz5l7nXMmli3HA9cYE0UENceYNM8mRuQrMuQkLuQ2WqijgQAF3vm4
kxeYY4oZjqgY+59F8gM3Y2vyzkMKT7ywwRpjTLDDFm98kJV59I6nPaZ6R+66
LFPU+R2yTy1hbK1P/uGLPQ4oOXY32bFDXmGpZ+RsD12EOKtQZ5BZpIf0kp2q
5Dy1vP6WXVOuzVI7ybdw7HmZKUceYqA9pfcfLBo15g==
              "]], 
             PolygonBox[{{479, 478, 389, 106, 514}, {437, 88, 385, 387, 
              388}, {460, 87, 377, 416, 417}, {330, 94, 396, 403, 404}, {482, 
              481, 386, 97, 381}, {423, 422, 249, 84, 425}, {440, 96, 307, 
              406, 407}, {404, 403, 307, 96, 427}, {418, 90, 376, 391, 392}, {
              380, 379, 374, 87, 419}, {393, 84, 249, 383, 384}, {400, 399, 
              394, 90, 405}}]}]}, 
          {RGBColor[
           0.7681728931148859, 0.8488460736848431, 0.9115482368508024], 
           EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJwtkT8oxVEUx3/nKgabF8NT8spbTUaD2fgmJYMXFvo9RSbyBgM9g4HMGG3y
p2Txp5TIQvlXitSbTEbF53S+w+nzPfd+z73nnluq1ip5yrJsgGghSiTLcAge
wG3ijrixLFuHXSnCdRHOpdg32Oo5uoF3yaL+A1bkGU2x556OFGfP6/x+8ln4
x36Pzi/AS/Ip9C8clMe9Rxa1xxa9es9luENeR9/6vu4dh23qrcn6D7GAfoPv
Fp4xuEVU0Rtwk5hBD+uehvp8Is/hKzyV5xmO6C6/s6k33sMr3ZXDffn9bH+n
v+URJtV6L+3oGvrB4lz3f8NOzcT/weT3uqLWfWa9moP/4TW+SfSFv8mi/0OL
P/Ba73ePfBq9CPtU+4U+ISbQn3BF7/d5l+Vxb12eNbiqu3bhmWb4YjEjn9W5
xX/7TPwfCuq5G/4DgMhRhg==
              "]], PolygonBox[CompressedData["
1:eJwt0E1LAlEUxvF7BmvTRxDBvlAL9xUM7gRd1DLRRbvaxgS1EQVfliJSi/oE
KWNCQcteSWxjoBQU/g/nLH7MM3PP3HPP3Y4rhXIUQsghg4GEcMLzEMfkbyzQ
Rgf/+MM7PvCEmNoKttjoiPcSuYg6+UUs67cM69e8XyHBOe5Q9/Um+RY3XqO1
G5Gt97FDbon10p5n5KHYWRO8kvep2cMP+Vesp+6te+heHZ+lix4uceEz6qy7
GAW7g1isp/bWbwXyWNcxxxemuBfrqb3fyDVqD7AZWY3WLrFyS79DvcssNafB
/slHdqd6t5+Yic2U+PxV8iMekGLiUj+DnuVZrFbnbZDXrHRMkQ==
              "]], PolygonBox[CompressedData["
1:eJwtzzsOAVEUxvE7Er0t2IcVKC1hgkpmJBJroBMNCTGJaDxbifdbIWi8Chug
UGmIwv9kTvHLd+ece8+9E7bdmBMwxoQQxM8yJkl2yDEm8FBDATa9EfnFB0Ok
qUUY0mPdtfyzMmNJzjBFHQlqW/IEl3VDe7Lnjiy1FXnBFS+kqLV1rsw/631y
7xobtNBEHnF6ffKIDOsduccBC31DjqygijkcakX9R09nyuyo3j8gyyhZ/j7Z
fyOfeMi3vv1N/gEMGDaa
              "]]}]}, 
          {RGBColor[
           0.8338584200934551, 0.8707504466793488, 0.8821211796273473], 
           EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJwtkskrhlEUh997DQs2lKJQhiJZShbKRiy+QoYoZUMhylSGTMWCLMiwocxD
fSyULIwZQzZsiGQnW/4BC8/pnMWv5/fee997zj3npDd2VnX4IAiKUQR6d0Ew
BBfhDhxDCyiJQyuwBFahI3w5jEOT+AJYjA7xtXAC3qJt1GTrCXAVXtreQKD/
DqMu9h7gEKxES5IPLEPL+BrYic7xzTARbeBDsB0d4+thJtrEl3r9lvVWyZf3
TOP34C8axMezfgC3An1rhZ2X+xrQjeQGR9EdfgTWoQt8DyxE8/giycvpm9fg
LZrF78Nc9ubweXAGjqNddG85vMJ89qbwWbAbPeJbYJTVOdJrXaQ+/V5jSw5t
XvOTPKWJp3an3B2y+mTAActf3nHltAcvcBn1429gCnvr+FSv8STul9NeyZkz
FOu1bx+sV1svpCcPdqfcvW9v/3FaC6nJNeyz/KXPYZspma00yzPZ6zxJXHn3
k9NaPTuNLb2TvVXLR/LK8dq3bK99lTNhp7MrM3wC35zO1ye8cDqPf07jh63v
LVbzXq+ze2gzG+P13wkYbbG++fcfBcVsFQ==
              "]], PolygonBox[CompressedData["
1:eJwtk1toz2EYx9/3ITcOYU6RMofWSqONqP1duXEjGUVJ5EJywc1ma7aLUTPJ
GnfanxxrLuViTk22tLggUU4pJRFxgxtkPt++78Wn/+c9/d7ned7nX7vvcMuh
SClVYDK0Mhjj9z7sxP/klH5DBd8A7TDO2kPowA/CCH4PtuG90IWfgJn4/vDa
LdiCT4Jz+CC857vbGVfx87AAb4NHyXccwdfDDfwa1ON/OXMVH4AxXMGPJsew
A//K3Bf4Cb/gNhxNPjOCz2DPMfwkrMWnQwd+FprxvbAnnLNy/wDDrJ2GYfwF
XEiu0VT2vS3x6I5X+Ci0J+8ZxxeGc1OO8/DH2bmrBnMZv8n+Vq9qiNcydxm/
BEvw7nCtleNu/Gl2/P3wGX+eHbtyeIY/yP6WYlJsmzhzPfmMcv/E3HH8DPzL
foPBEt9m1l8z7sM74Q4+K+yamxbuCfXGXdgVvlN3681f4kPZtdL6D3wOe26W
fLfii8K5XYQafGkZK+dl4RpVS3+oVnXhtx+C1fgqaIAJ1lLpyUqZ09r37N5Q
vMpFMfeVflmDN4Zro5p34uvCvaoc1AtN4dqoRu84fyDcu8phI744HLtino/P
DsfWA6ey6Sn9OiV850B5D939MXvtCixnvDL8lnojvZVqqtqp51rCe7RX/4EV
+Lfs3tV7Psmusfar56r4f0vRgjM=
              "]], 
             PolygonBox[{{512, 511, 469, 122, 495}, {520, 519, 488, 142, 
              556}, {504, 503, 510, 145, 555}, {581, 157, 538, 542, 543}, {
              477, 131, 487, 490, 491}, {574, 146, 467, 607, 608}, {501, 500, 
              476, 124, 522}, {550, 137, 493, 503, 504}, {577, 576, 549, 177, 
              568}, {543, 542, 531, 160, 540}, {582, 162, 545, 576, 577}, {
              560, 168, 530, 519, 520}, {634, 195, 628, 609, 610}}]}]}, 
          {RGBColor[
           0.8995439470720242, 0.8926548196738544, 0.8526941224038921], 
           EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJxNkr8rhWEUx9/33E3UVcpCQllsKIPYjPJrMKnbLQYDk58l+ZE/RmGRQSmD
JFfXdQm9UvJrMZiUsvh8O2cwfPuc53nO8z3nPO/bWpwbm7UkSbpQDi2wqMJ5
+Aoz9J54/IDu0Rv6QPuon7wX+Jt6nu7eoBK6RhXUTs4BbDPPqcTZCutb1YZ5
c89teAEfo3YWse4tc3YGp2ATOiJugV/U3iFOzL2VexW9ZtF7DWd78Dt1Kf6E
k+ZzrcI685l6YTlmkE8j60PYbL6Wfznuy+cJ9sQstXAIHRM/p55fiplH2T+B
DebzV8NLfV7+61V7d+Er/27yN8Nz3fy9VEs1+6Jn9f5D/i5xB/GEuac+bqf5
vs6XzL0X4Ro6Jd4w71ue9eZvqrcdhMPonHgaFiNH361g/h8MmM+p3nLEW3F3
BI7Ht5yBf4r4XvE=
              "]], PolygonBox[CompressedData["
1:eJwt0ssrhGEUx/FnHhZYuOwoFlbGICNhZoRcYpSFa7JQsnArZiiXGqSU+V8U
dhZKWQoblxA7t60/wMb313kWn+b3zjvve85zztTOZ8bXvHMuikIccfHD5ylK
yM14In+gi1yAS/IVxsgpb7/VM3lyN77IZ+gkN6ERaQwjh2/uPSJLjqEedYiq
ERw7q6naQxhEL/qwjCX0YwDFKAo1VKsG5zx7gerwTr07jhbs45N7z9ght4b+
T9BAnsIkKlGFBVxz7x0ZchlK0YZ2jHqrpZoj5D28OquhWiu4Ib9hgzzjbXaa
4SG5IsxXZ/6NONfhbXaaZ3noOR7OqLNu4oF791gk/0VsN5r5HNcH3npVz6ve
eta1epgIO0iHM+gsu3hx1vOst51oN6qxRe7xNhvNKBV2oF0kkMS2t1lqp7nw
XSLsVLtVj+r1Futk/dnunNVUbc1Es9F30+R/ZN1M2A==
              "]], 
             PolygonBox[{{641, 189, 589, 596, 597}, {580, 579, 598, 196, 
              639}, {588, 182, 535, 586, 587}, {642, 196, 598, 611, 612}, {
              613, 198, 602, 616, 617}, {645, 180, 547, 582, 583}, {621, 200, 
              591, 619, 620}, {612, 611, 532, 192, 601}, {587, 586, 546, 180, 
              645}, {537, 536, 581, 186, 644}, {566, 565, 550, 173, 575}, {
              620, 619, 602, 198, 633}}]}]}, 
          {RGBColor[0.941176, 0.906538, 0.834043], EdgeForm[None], 
           GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJwtTz0LwlAQe5yTk7Pg4iYFB5dCXQQpFNFBBAdXqUPB6uykrYp/svXjn5hw
GULy7nLvLsP9eXOyEMIA6AALPFrwGHwEGugSPAd+0Bm4D3yht+Y++rvmPXqe
5j16KvBK9TV4B3ygc/BMszH4CryhU/BFe7l/qVn+EcvfM9/BOvuRdGJ+K2dv
5r5WmRJ5mGOi+sh8H/cW4IduZr5cd9bm2ejnXCH/ATxVnTle0qzdNcusfx13
K6U=
              "]], 
             PolygonBox[{{613, 222, 220, 633}, {642, 223, 222, 639}, {592, 
              225, 224, 644}, {552, 221, 225, 554}, {641, 224, 223, 
              643}}]}]}}, {{}, 
          TagBox[
           TooltipBox[
            {GrayLevel[0], Opacity[0.4], 
             LineBox[{640, 621, 620, 633, 613, 617, 580, 639, 642, 612, 601, 
              643, 641, 597, 537, 644, 592, 588, 587, 645, 583, 578, 569, 554,
               552, 561, 521, 557, 585, 527, 566, 575, 570, 647}]},
            "0.5`"],
           Annotation[#, 0.5, "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            {GrayLevel[0], Opacity[0.4], LineBox[CompressedData["
1:eJwNzd9Hw3EUBuBPdZOpLKJdbKbGZhallo1ZZJYZK1tTROQbLYutoh9adbn/
Mrrfxa5idLPn4vGel+OcrWjYGSyEEE55WgyhxwuvPDLijXe++eKaTwZc8kyf
c4bcccYDV9xT44JbNmizxK/nLdklQZ00SVJs0mSbDCccUyZPjj2W2aHBGodk
mblfkAf8mCf8EdPHxCmxSoUjbvi3U5W7BKb6ulyhyD4fRMwBlUkcNg==
              "]]},
            "0.4`"],
           Annotation[#, 0.4, "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            {GrayLevel[0], Opacity[0.4], 
             LineBox[{533, 458, 534, 538, 542, 531, 539, 544, 545, 576, 549, 
              548, 485, 518, 395, 530, 519, 488, 463, 462, 493, 503, 510, 487,
               490, 500, 476, 471, 465, 467, 607, 506, 572, 558, 511, 469, 
              454, 442, 473, 494, 430, 451, 508, 446, 441, 408, 472, 475, 449,
               415, 444, 474, 523, 468, 448, 455, 450, 412, 499, 424, 426, 
              439, 483, 516, 517, 590, 594, 603, 600, 628, 609}]},
            "0.3`"],
           Annotation[#, 0.3, "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            {GrayLevel[0], Opacity[0.4], 
             LineBox[{459, 461, 492, 502, 509, 486, 489, 366, 452, 470, 464, 
              466, 606, 505, 443, 453, 330, 404, 427, 429, 428, 445, 440, 407,
               402, 414, 400, 405, 420, 447, 418, 392, 411, 498, 423, 425, 
              393, 384, 380, 419, 460, 417, 482, 381, 484, 438, 437, 388, 436,
               354, 349, 479, 514, 513, 627}]},
            "0.2`"],
           Annotation[#, 0.2, "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            {GrayLevel[0], Opacity[0.4], 
             LineBox[{396, 403, 307, 406, 401, 413, 399, 394, 376, 391, 410, 
              497, 422, 249, 383, 379, 374, 377, 416, 481, 386, 364, 385, 387,
               435, 353, 348, 478, 389, 350, 345, 357, 370, 397, 372, 362, 
              432, 457, 360, 368, 398, 433, 434, 604}]},
            "0.1`"],
           Annotation[#, 0.1, "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            {GrayLevel[0], Opacity[0.4], 
             LineBox[{367, 375, 390, 409, 496, 421, 248, 382, 378, 373, 365, 
              342, 233, 352, 347, 340, 344, 356, 369, 310, 329, 361, 431, 456,
               359, 355, 358, 314, 363, 338, 371, 336, 319, 263, 315, 337, 
              283, 290, 321, 292, 324, 297, 299, 304, 332, 322, 325, 312, 313,
               327, 326, 24}]},
            "0"],
           Annotation[#, 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            {GrayLevel[0], Opacity[0.4], 
             LineBox[{331, 341, 232, 351, 346, 339, 343, 328, 311, 244, 254, 
              258, 335, 318, 262, 265, 271, 273, 280, 282, 289, 320, 291, 323,
               296, 298, 303, 305, 306, 300, 267, 269, 276, 278, 285, 287, 
              294, 295, 301, 302, 241, 231, 235, 237, 240, 246}]},
            RowBox[{"-", "0.1`"}]],
           Annotation[#, -0.1, "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            {GrayLevel[0], Opacity[0.4], 
             LineBox[{245, 239, 234, 293, 286, 284, 277, 275, 268, 266, 260, 
              259, 251, 247, 238, 236, 274, 288, 281, 279, 272, 270, 264, 261,
               317, 334, 257, 253, 243, 309}]},
            RowBox[{"-", "0.2`"}]],
           Annotation[#, -0.2, "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            {GrayLevel[0], Opacity[0.4], 
             LineBox[{250, 255, 316, 333, 256, 252, 242, 308}]},
            RowBox[{"-", "0.3`"}]],
           Annotation[#, -0.3, "Tooltip"]& ], {}, {}}}],
       AspectRatio->1,
       Frame->True,
       FrameLabel->{None, None},
       Method->{},
       PlotLabel->FormBox["\"Gradient. shift\"", TraditionalForm],
       PlotRange->{{0, 250}, {0, 1}},
       PlotRangeClipping->True,
       PlotRangePadding->{
         Scaled[0.02], 
         Scaled[0.02]}], {967.5, -967.5}, 
      ImageScaled[{0.5, 0.5}], {360., 360.}]}}, {}},
  ContentSelectable->True,
  ImageSize->{814., Automatic},
  PlotRangePadding->{6, 5}]], "Input",
 CellChangeTimes->{{3.624791843814453*^9, 
  3.6247918593720703`*^9}},ImageCache->GraphicsData["CompressedBitmap", "\<\
eJzsfXfQFVW273nf+XIwYk6IaXTGNJjTKOaE2TEHVFQUFEUEBAOCIBmJkhEB
EfATJAdBRBQHB0RxUMYZvTre5615Na+mav64Vbeq3/6tXmuf1X1W9wnfp3Pn
1Z2ar/H0Oae7z96/39prr3j1vT0eeqDrvT0evu/etpc+ce/jDz1835NtL3ns
CXcq+78ymewJ+GubwX8HmYwcAvd/dTgZB7zX0rMH0D/ZzLLOGfrfWaN2ZY6i
c5WZXaPOysj/Oi8LKoyPtqVztf6cO5nZFd5Af8766mF0rirvq7hrBZ2oxl0z
Qf7lDqETdbmv5h4y/tGMdevw+9Xm993tC9z91JYN2eHlD9mh/7whO7TVh+zI
n2XI/mVRVh/yc39+/gBvdV7GnzorM2pXkDmGXtW4150zy3AF4zPh79/NHXdl
Rp3Fn0v4rHHuUP5d+uuVRdz2EL4thhljEQTLMqPwb3G3PURhQ309W8Sd27dw
wNq2bMAO+ecM2KE/zYAd/dMP2L8ewuqizMQVPIfdx3E1AdquUZ3pK9Znkphp
fdY4lzZuabcNv9fk3htV6i0zck/93WwR92zfwqFKgliRz53GyZ9qqA77CYbq
6J9+qP6VUBXjYchUa8RqM8GuURl3Abq88bkkKlqXNM5Zg5Yt7s4ybhA/nb2c
Kequmdxtc9+tKO627Vs+ZklAK/LpLU7+DGN22E8zZkf9LGP2r4ezIpbKcBtQ
z1ci/ThNgrTKqmkoK6XcvdGrAkXeNf61Iu+WthaUOGytsoL+3MPWtvWH7Yif
ddj+pdAW46ql+YZizu2IR+X233KFn2HjWVHC7Q+mV7srpcIJr0zi7VKuUWtf
A58Ln6MiZcTSNleljOZPsCv9uUfzkJ92NI/8+Ubz/xNsMuEtC3BUB6SzuSvn
PhdyvJIHwksYyxiWbFNM+HrBmx/iv41fnmoETLbOJXy94M0tg2aRg9a2ZYN2
yD9z0A5t9UE76mcZtH9hpLEdmM7nDq3m/7HP7ot/voPniUTuv/n/onP16kOZ
LPunwgevMM5VGeeqizz3P9/91/yuhYMQW1WRc4Q797/af8Hf2Nrf/e/+fC3/
rj337YvEz7/Gb/yf7/7UciSUFZka+qchstSGH8EyGzWuyfuVRd5ityIfubU/
15Lh+znu8d/pu9a8HV4GJsJrF78sFTvOLRmDfxb+/rk4tefgyDLmtFie/3fC
8/9895++pFTLlwxrSbbge4Vv84sizx3bgu9a921b5u+qTKHlL1vwjMm/2b7X
Ef+fzksMdpZ9P1vovUpccZf/r3ZlXqvSXyGTPfAvf/nLEX/84x/pA3/wbxzR
4sfMZOv/8Y9/+Evv9G/URwfC8kJmC75njHc2uHK3QV+lMKLUO4WMqI6j9MxN
mzYFL44cXxF8vOuHL437Hd7av8ydu+umicGYMTuD6dN/zFi/sTXQZd26DoP6
ecqgloW9/EE9f926dRjUWgzqZymD2mq/zJ174altwSOPTKVBrcaRVYnq//zP
/9z7r3/9K72yzm0qPAOtJr4OxAy8nzID5Ql6ewbGTJ97AGZgQ8oMtKZgHvrs
t0G3+xYFL7ywNlNP85ANRo78NOg7YFaweO2PmUo6ZoMZb34avDxhVrDxS7xy
R2tAInvFrKH3Z4vTGw/FiK9LHIHCV65KGeEFqzYejBEOh6Xp73//O6FqjXG7
di39IW74MMAv9/tT8PDDk4IJE76u4zF+9dVvgid6j4uM8fxl3wT9ho6jMa4J
RxoXOeTf/u3fAH7zEXnIE63DBF53h0uangt+09g9OKfh0eD0+vuzwSn1d2Wy
Vy9evBjSlD6/0rjGyekDeUg4kMGG7V8HzwyYGjSv+SazOvEyxuNVYHzcG888
/mHQvfscGhwZoq49RgZvr/4hMkS9Bo4MNnzxAw1OFR0r6fWYWc3BxGkzg21f
/rGcUdqPRqkmuKypf9ChsVdwVsPDwU2XDQ863TAzePC3bwaP3bXc3ahHp3fd
l/s8uDl4oevn+MusKH3IDuUhW/nR9uC5l2cFSzb8kKkIlm38Mfla5lIbjlvn
O+cEL7+8mUaslscNAnV2887ouD03NVi6eacatyy9HjV+YrDjT9+6c+5oPUGh
kWvDIwdsOUgFJ9TdENx46ZDg13W3BifW3Rj0fXhLpgljtbT8oZo0tzno/eKQ
YPLcTe7DbqiWlDNUL/XeGTz00MRg6tQf/FA9+eS8YMrsLZGheuHlecH8d7dE
hmre6s3B1Nfn0FDV4mj9mkJDtRdTESBrX3c7gctBqiJ47tHt7vPH114XPHr7
YsLVnjguKn/EHus1EsDCWDk6uSOLe4iR7H/913/RqwWljGIlj+KjnZqDF19c
T+NXw6PYr9+KYNSrayOjOGTM0mDmO+sTR7ERR34qqKn+btZTFRrZPTCyFcHl
uw1w717Y1Du47aqxNI5ZPgKJ3e5cQq/a4PhW+bJu7Sc7g979J9HYNtIxG8x6
+9PgyR5zyh9WrQjJsA4cuDEYNGpRZFjHTd8YjJu9KDKs72zaEbwycVJuWN05
JweDN5oXBdOmjM9Yv7XQiO5OWK0KLm56hih9Rv0DwfmNTwb3Xj/dPUs4qKC5
DOr+OL5Z4qC+vni1DOqi9ZuDASPm0XA20bEyeGXqquCF/quCmbN+xF/y1Y3n
r+JxvfeWqaTOeAXTnRs9ekfQp/+MyLhOe2NrMGzynMi4rtn2TTB4xCga0QYe
11UbPgiGjxkXrF65yH3uh++/sp5KDy69Q4+0Gw1pNa3Et145Ouh+90qSmDys
1qgehONsf5n24YopF8xkaRRfa15Bg8hKDUY1GDlpBQ3ibozPfoNmBGPG7cAw
up/sjrP9pdpHn1IG7qkua4PevRdFBs7SWeYu+iroP2oSDVk1D1z/wUOC7bv+
RENWxwMHMM6cPjH4eten7pwbuNzPKuTgbuIl5ordBgbt6+8Mnn5gIy3CJ9fd
EpzX+Fhw/02zPSZ/e8VIP3pH4Ti1REy60RRMOlU8mD5/S2QgsWKPfuVTGsjd
cJxSDioH9PqCliLN9sd6jg7eWvl9AW0nS0r4ug8/jgxu8/KVwTuL5mFYM3vj
aP3qQpSXYYb+c0fHCaTjuJWJ6A+t0elBfpghX2WYj8FxcuIw1CYNM0Y5GDx2
8kE83M++PDJYvO77yHD3fH5i8Orkr2m4d8cx+T7GL6rm4b7t+legekewXKyS
NPGNpTS8erg/2bEzGPPKUBrufXC0nqrY4WYEi0pJSxXUz6Th/gWOkxKHoS5x
uLFuDRg0ELp65gAe89W/20F6O0Z7dx7zezsNE5Gb2QPH5JuljPkDt88Khg7d
EhnzcrSteh5zKPdbPn4vN+bWUxU75hjfLrc1+zGHqg/J4sbYHPMmPueUWa/6
HxCeI/Xjb3/7G91kfBnT8s6GLTQt67d95afFaRvB4DHNESrMX/FV8Mijk2ha
9sZxYjnT8sRDK4NnnlkamRa8HjNlfWRaho1bEUx/e21kWlb87ita+/S0LF3r
dKP5s2ha9sXx1RZMy2n1nWhVlGnBFEDIJ01LLR1rgt6dP/TfcQo1TSeW0buv
neIUoqsveA6ovn667NzcZOBYSdP58C0LgusvGRw8++yKCWXM3psr3qPZW/rB
Vj970xcuDcZOXxuZvZlvbYWCSLPXBsfkm6XM3nNP/j7o2nVGZPYsLXHSrM3B
6BkLIovywCHDSCvUggyL9MgRg4Pvvv2D0+Dc7FlPVezsgUA979/gZwIjjj2N
m9HI7Lm9NL2qpmM9zcq1Fw0I7r9/NP33E/euoRkcMmRzMGrUp5i/YNiwLQ3B
jBn4HX36LKJL59T7OtpJ4dL4w9ehIeAzAIGb2GDSpG/cHtt9vxyCYjoxxY6o
foqHvzqTdH49xa++7tSSvotoivfBMflmKVMMU9F9942mXapM8fDhW4PnBs2J
TPGshTuCQeNmRKZYqwZCUMjRTR+sIYLSFFtPVWiKG3jnCrl5cVO/4KS6m0Ge
Cp6EzjfPpZmGfUTPNLiYm6Ymeo2ZxtRA/Pbtu5TUIJx74ok5wYAB6zFJwbRp
P9Csu9nPyLSPGLFVtBK+Xg1NL1CC711zYf/g0UenBoMHb8L3ndBy3xtX/HS3
37JlSzD1zXeCcTPfpOl2MtgNWDjdH+38LujeZzTZamSZHD5xaTDwpfU03fvS
MQvN8Ogvvww9Eq+UMvs1PPvayVCVYo2Fothn0OjI7GtNRWZ/7QcfBq/PmkKz
fwCO1ogUN/tZEsXYB4YCNZwITGPhqa8hI9rzz6/yUwViY+rvuWeY+144xTg/
duxOelXP5/C56Ga+iqZ94sSv6U9gUofPjylxuie8viAYOn4aTbcT5H66YZrD
jklrRdicDh+5JTLdvfs0B093fa/86dbGlCpjd1rF041NF3ajhZQkyPPxY0fQ
JusgmnSy+Pibjypj9uuZ+9h9YbSxZXUzIACANAcAnORmAFR6AGBddqK5gjEA
MdG//9pg/Pivgk6dRhLN4xiASJgy5XuFgQb6PLCBu0NUiAEWy7aT7CQy8J7D
Q/id5LlIxsELw8YQDpzE9ziYs2Qt0VzjANryuAk7Izh48KFxwaBnvgqGPf9d
eTjo0+0DUo41DrBheaT7MAh6jwOIgbff/zSCg1W//zoYOvqViJVi9oLmYO2a
JYSAA0McBEuXLDj2iy++aDEOYL7AaEMauIkWHGC+ozho8DiAvuYmmf4bS7XT
y0hOY+KE8BWAQhv6z8rg8cdniQTBFyuUMMB3PDhGJw523uaeJtrJ9grMMtZF
J+qxAcVM78vzDdE/dd7myHxD7E+d/n1uVcfn3PzfdfOrNN9ZHK3xLDjpg5/5
I6301qQ7ddxP+sARzcHclZsSlTkh//u/+z3MfZFJd4IgmD5pOAmBQpOeswHJ
VMOSiqnGvLo1W6Ya/MOpZ7ts5amu9VMN7QtT3aXLJOI2L9FZzFZkirHe48M8
xXvi9HD/GDmjVLjDotlzojoj0wfKxqfvxZHjg4Wrvo4oZc1rviF6arrCpvh4
52U0fZU4Wvelgag1luVKniqnoNFUOd3bT9WICauCqW+tikwVrIpYhjU/sYva
+cWWyFSBr6uWzA7+7//ekck9UCHbmDVVTs7KVMF+g9NaWcb0gZFu+mjKoDVB
FPfq1eyX0ywzDu9hKvFqb545fI53YJi5vXB6RIlEdNJWZnLUlNf9TO6j3Ik9
+o2LEHHOOzuCbo/PiMzk40/MCp59cgvNZLWfyWKJWGv40ISImNm4jdjaVWG2
31y8JDK7eL1i2Vs0r7wKB5MnjQn+9IcPaHatwSpW+up5djpVSL/dtE+S/jC3
oKEYLDDPEKqQnlDDeJ6Zlu6dNvbk0ulhJU5u7xeHyORinxSfXG3ql8mF1H26
14KIlIXU/e21I2hya3FMfo6UydUGD5rcClhaq1J2UbBGTZ45KzKlH3/2BSlW
eko3f7gueOuNyTSlFThaz1fmvNby3lhWTmxoMSWYZ4hVzCN2Pqz2FJzHfXB6
aIlqEVyuUIlGvjIasjWzH08gls7xM9dHJhD2jueeXxGZwKHDNwcP3jWXJrAe
xyHlTKCODBB2YgjuvnsYAibM4AmZynWff09LpfaMwVO2fduHkal8842ZwdaP
VuSm0hqqFk4lNr2iBMWn8pVXdkSmEqINKlCPeXmS965rJtFmyl1qP5x+uYxJ
HTRkcN6kaouGTCpMkC8P3RSZVN7z0KQ24ji4nEm1dB8Mxr33joQrzi+osHq8
tX5rZFIHvDI1+OCTbRF+vrNqbdC8cE5kUr/79g/B3NnTgu2/W+XGzk2qNVTl
TOqjty+u5bUU6g2e25pUbGP01gYzihnUM4otLOQx/pxGfABODypjRl8ZNyaY
NHUy/turQ9posYfhvpIZvb/zaLI6YUabcEx+ADM8MZzRW68bRf5BrSLBcsHG
ZT+jOi7Aslw0KB8LJC5MkwfHZnTLB0vd9dyMWk9azow6SVnDm1SZwZ49F4il
Us5lZB8ybNgWvw+pMGb3ZBxfShzF+sRpHDtxPE1j35eGY/r2SfHSILoDMzd9
5g9+JuHhveeWKTSTe+A4sJyZ1J6bqhQjM1wGmLmktbPR8NwcwjMJl4GbRRK4
xE1rtFJmMhs+cOpMis6jl0KZyRo1a+AeXrXHcUCJuo4TpRWYMqDdSdT1276i
OWvDMwf3wJBxiyIzp10B+xhbkj1xTH6OlJnjOM5Ec5IV7CAzp4MdZOYQ7AC+
Yc4OVTP3/pqFNHPEQetJy5y5Kpaq0F611po2g3hPZvAUHF8scQad6EybQXgA
EIiiZxAzOujljZEZxNbk+ae20gzujWP/cmawV9cNwVNPLYjMYJGRosHzwyeS
nqpnEF5q2AD0DC5dsiBYv+rN3AxaI9bCGRSHDCSocAxaS9IMwiyIV6fh+EKJ
kvO1Oa/T1Mm/bgpFcsJMMHnupsjs6ZiCNsZeY18cny9n9vr3/IzCfLV7zgpi
heUeqqnmHwJY4UzVs6fDOg7j2cPGcu3yN2j2qnG0RquFswc/C9xmMLYWM3ts
y8ucgeNzJc7e7HlzaNbw74RJE2F83yclAOeNpTuDrt2mRrgHHfXhe96k2dsP
x+RnMBUCDhVzuieMOpp7mE1EOEVmz0lThNzp2YOOKq7xRkODacuzt3rlomDJ
WzNo9mpwtJ40zygXmbMLGnuQ5Ts2Z2CbOFUKzRk+B80Tr87Esa+/lTK81USm
aPioEfQv1BM4u2WOYDeHkU3PkQrcM/cNB+D4jHHPyHzcffMkWr30fGAjiNVL
zwf0kteXbYzIQuzpYQ/V8/HavPnBe+uW00zIfGzcsCo6H7mRSLG8ReYDPlFs
ytjVLfOBQDTYtrt1m0HzAY6w29rPx8V+7Ivjy0lbt26lSYCuqCajTYrZTEf+
WRr/gTgmP0MKX7rcM5/0Qj0/iBhEiGqSnijzM2n+imDhkuWR+cGeDmYyzMzh
an4WzZ8a/J+/bM/U+vkpU9rBcwVKsL+ySu3hwAbMUtJMXYKZeqb4mYIXmNYj
makZs2bC8CUzhaCf/sPmJJqqLY3+YM+aUmeq5yPrgqefbo7MFPREBPkk6YU1
hkbfZJhQZKYQYwBrmJ8p60mLnSnEwCEQKDZT4vDDmoOZggUMviQ9U7uTVKsj
izbkHOQg9nKYYUSYwKIN3wOchSfis30SR7TGnFXs0bDNrsC8ZsJYLTFx7pUS
ggs1BEIwSe0/FMferTW9gwZtIsdRIaVRq/0yvTqmqx1PLzZwkem1hq3Q9NZy
UDkSIDCX4jNE8IDMMUxk2FsjzAdzrAIA/BxLcADmOLoPr6f5fX7ojGD8a6uC
6Qs30ZwPHD0nWLhmp5uWLSSPp0z5/iR8vFeJUw81pdDUWzqLDhWx9guH4Zj8
MClTbzmOdbRQlaFxpu0XdEDYEWrqZ09/JfiP77a5+XFTbz1psVMvwcVpUw/K
xqceBnA3tWGcB089pnLYsC2Z0GRaTVO9fNP3werf/Uh/L46YFYyYtKgCL9xN
3lj2KTEfX4Vtzq3OmRPw1adLlOsMg2B+8wKS7Q4GItdfGj2RAjX17L80egGZ
wpP2G+1w7FnO7Oswcpl9uCkRxxyZfaWxyuyPmDqP9vea+FpDktnf8dnHwRuv
jcvNvjVaxc6+xDrr2Q+jQxp94Kc2ob700kZCAhQpKFTKKFCndNnH+wzDqu2B
gNcCAgHCpLnrswSEShILsm1x/9IqkDz+tiiACT0UBW8vWZzJ+nh2wGBPBsMH
X3xLBlitjmkDbBtj+3IEjk+VAoYGI9NFDLCTJ39PeQUaDJa6DIMsYkY0GLQ6
dmQMDN//8eMQDNawFQuG0+vvJ/uABQbsPPGeBgOmC2DASg6dTYFBTOzAiUQP
hQtCDRlrAQhIC970kAh4ou/ITIiILC0Wze9+xa/C45gZK2gx6dFjXmjQ7VEi
ROA6KwQRp7wTJArZJ/Tu6Ugckx8mBSKPPbAkeO65VRF5YdknLI0dYUfjJk8l
cOzGEKHkUQeJJIjUAyLWk0byxGtTaw2597L0ZlWusED4F4RnPaL2pqRKLBSC
KIlGFm84bIjaE86rgIWo0GtTgdnPMpAIfw5IdCUHJlwB3+wzABpJCJpe/cfJ
1TPiycNn8V13t8wvce5JY0TiPbdShyIbGYqKFmLQinLrdP9IeBYiGNS7xqNx
fML4He1aPqWVGrL9un8cPPbYrDxH4bx3vi64dUHmFLy/TqnxkNWOwqMYsl/t
3IogqRxkrQkqorhEWAUgoclRoiBsoNhGBOqoEDqv88Rgy6CqSoasE57QgzBG
WD1FRdbghTqM9xi8gt2+gyblYReXefblqdhBObU/9Fli14XPYVflMN0Wpy0o
tC19qCpTtC6GMoAcrFy7CknhextWXtG6kEkGxGoE6930L8LoPRTf8SGy3RKJ
2eIJj8hhy/sNkKPGRlJuZa3h/ZalGpGAEyeMorDfo1V0CuQwLFsEamuKiqhZ
I+Uu8tsFGYiuJkQ3UawwbMtI4xCEamRjaRdkIwjQqeWpyA7fa6L3IGKBcKBZ
1nO4D3Ae18RaDu0OiqFT/LxohhLIYjsCb2wM3fXChAE3zFgUcD28N2T8Ato2
zGzeTN8dP/6rw/Gxx1PgXuwgJlT7ovwBCZ8C1levWwuAZ/ZO2WDq3DABOzac
Xe97m2B+DIeqIkj5rptfpXz7x1LA3hIgENIbDZu6KKXwbyGUTiulOtG1xogK
2M3YoRytPCIInIRpogFIt2YnhnSr+FOV/0m5xju5YloVOXzXU7ELpMVq45PG
N5LKKG4ZmWt1Ehfg/9IgDkE9bGIzBcgD4ggNkk2xE9YEccARO9k4xAFX1pb5
epX0etF7X5MUd7pOBbMMMfV4rM6dx5Gm6z7iNV9owtB83WcyBPdH/Si0K3H8
VJ2zai/F8aeQvbcRgSTAxmsEeWpgI06wd7eNCtiVBPQ7LpgcPH7NGvw94m97
RNkTHv4nle8BlmXPfceN44Jx476KIFonUHpEq1xiQTSiuGfMmRdB9Ir1Gyj8
DFg+RoUCvzZlFAJGQ0TnJiBWus0iKldmzPWz8DpiosSupwRvIBjItRANh26Z
iMZnseUGeoFoieIXROMchDAgB93CodgjGha7KKLrPKJHT1vqM8bwL/QX3Gfl
ZmTOhd+Xz/TtuzSzl4regfrjmOWUJXfOWvbTpLk1wNkipPk7y5fkSXOkHyGy
OclSLKCHy7N/z+055RsSvvcfgitO6Rc81nGVe+Vg37VEkV4sUqIi3bAzIIcJ
gV2F7Aw6g3h3YxMpBEBsPEyO769ZGBLAmqISyr1ZbVsKKjFIdQMFdOytpgTM
mFAK4FKCIuNw7i1QcT7ceGMfnKtgSgDqgDwEOYzVQglQBXrKE31HBkve/4ak
My8InhJyPkeJGk+JSXMJ6nQtBI86+jiNJrR6TX0ztKWBbm4h2JPVHWKdWzfw
GFhb8BFcAkx0C0Cdl/8laPdpw15Q7akARzLRDA/ZqloZHohE7vfc0lxevDuH
revNHYdGdJ/Od84OOl38OniCDKNr1li/qpgKeyWBSVT+h+6aRz4ZzRrLUK9N
L6Ly62SfcNmo9KFZWz/ZiP1rSJxKipBEfA80/3//8yek+FtSIaVQn2xqYv1T
rBJ3kRXktPp7aCcrKQhxuoAODt8VVNiiSWK2EleQSy99yOeIQSV/6rnRmdCS
X0/6kbwnlMFKAlsvMAz13Sk1DcwY8Stoq6D4CrDAcJg1Jbo43cczZs6SrV4N
c7fbk8krZBPrMjYIIB5YhDWINiccgYGsZSSf0+bikUTAFTUDCZXTy2cOPJQv
DlgbYY7eIss6g3XnqlOfI+ZUe/XKNPy0DEqWnVLIAp2rZ79JEbLo7A0hi86B
10sMIuFmTp+YOZaXGBAHRp+tH60IlxjrRxUyZQv2YXjUNVw09mHZAYocHIrF
fsebOlH8lbYwWtiHBQbGHME+/gUf3BY4DfviHhGlC+9jxYHiVMvOMqwytByE
2KeU+kbeO2BLguVBbEvuM+6q+F4tcQqEwC4cj4aVCveAEuaIQAtWF2M4E7rV
FAduXe2ugY5VZP+BJR2WTURavDx0k1emELv5yL0LIyBHPudDl79FIK/BMfkp
U5Crq2bpVDKH14hlBxZ37Hk1clFuBVWycsit9OXGsGvYuGHVsSzmv/3zDto0
IHTpP77bRmLeet5i8cv1HCL45bRB8bwWi9+Hb10Y3HDbg16opuEXUhKvoXsA
kPgXGpWTpsn4zbn3RBOikJD+4+oZuiAbdruAHN5GpEc1Rwfgo9D/wS7cHZfH
XSG78SMhr92lGnGpCnruLF0Dv8ZBPnyEh1sbv117DgNqI/hFnCNMOjDjAMcT
Xv3KfR74rcJ/S7IVVRx56pF1Hsd9Hv8wuO7MwYTjehwfKgfHVtKVjoUUCQyJ
DKVeK/m6rOgejGOoL4iHhEPx612fHqfCu6Dn7/r8/dBIaQ1tcSBu8oC1QAzn
MuZQoiKxnXV7QL+n1Ai+74bXglvu7upFo1hZBMEQbcIAQTA0EEBy8Jh5tP67
faggGEJZgi3jCMYf4ArYuUsIgrEtgFGGAiHcR+GCrGB9HcIXyIbshyZCWwR3
14mz10LwZkPkIu8oSyzg2/D2oZYeB0+M81B+gHyqvNNnEbYFyWgpEdt7GE5w
qZYJ8+VTPecpxaOKcHzj1YNJAQHundKROYoxPeTZb4I7bxofdLlysbuGw/SD
5WBal9i04kkF0y8OXUDFNZJU8D1Zq0D8InRtQPk4tXFFDv76VW+GgLbGsxCg
q7jeyqVNzwso2TFeGQG1A3IFMOI+CkwjZjEXBZGP6bse7EkzXQjTwD3QB1QB
JSMmLRKrY7GYhhqMTaT7aoO6A6QuFA3gUktfWGmAeadV12j8Cqty+M1q/PLT
V5PSge0trgsl3vEDJu4HiscySmwXxjK89ZDFGsv5289KMtYgrA9e1CcfXi2i
2f1n8NtzXyHR3IRj53JgbDmPLAMkCvIizFbDWAf97GkYIH+lTOqQy99++VEY
52ERrlgYo2AIO4IYxtURGEuktMNuBdWXbfIKglYw8HHoIoBypy59yN+D5TwO
ZQhCUZ5lqyZRYQAhQOcEZbFQFreRu2wDi2cYGQFffBU6iLtappEvJ/tFWGwa
1S1w5/Db4d4SNnbA3olvuCDvLx6q+Lg3Kb67Yb03Ke6ltIl4fWIdgbgXoxRG
EsSgQboOeuYrQSlc/BC2j1611KmhDqXJNDImvTElHVQnEVYZfvtaIxpJUIot
HcrHAp/HM0oRggyUYgtHwtZ60mJRqqtGV6hKGQI70QYkOhwh/7ngwzoP0Sfv
XeMhCtmG9ToK0SofgKYgyu9l6T2GaKaB5ZtcR+jA4UvyFYhDfAXWvgZ1Gcao
2+/ncAhsOtyZ2KzDsVwkbvr4Q49E0WtRcRRofO7lWR6JcFVCHxg+cos3Ouh6
OmKuUx4dJ3/dMfnBUmBoGautAlu6nlqtoccKDHUdiBMYhrIZ2/z+OyEMrSct
Foaq+G4eDGFhEIeHwJDTfvJg2LHD8+SdBAxly4WNj1vUTRiyPczDELYvYArQ
FBhCFKoSTLK1k6+IcF24ZqeHoTjOPQxlUwUbQXxpx/UFi3TuvhZgkUNEPBaR
cRHHIqqOoNqtw19YzDkTRuZKgGaFEaB5tHKlX96+Dzlf9gY+OxWJT3awoAp/
nnNRp9RYMZzVRj04S0XdQ4VzDx86kIB6ojIRI7p//pyJMBHT8m4NtJ2FJjjl
ouUmTiUVrRicXnV+3+DOjhMJp6KEisejIhavy7YmcVPDfGVBFBThINA4REW4
AukCUSARQjguKUXJbFS3Y7Nv+N17/MjE67JXA43e1Q00wt39WvMKASPyQwDG
wWOaI4qkeP0EjACiJDumgVH7NtrgeI9/olhyXSZ7w4IFC6gXhgZeXpWcTGj3
QMqIlpO6WrMAT2euipwE6AA0QO4klUcAiyuqNxDqcgNYKNcuDXUI7sR2Hiom
oho06lBmH25eC3V4D6iDiMJmukjUQeHDIgpjqaAO1n+s0RJXGkMdEAZt1SOH
z2GA3U7Jow7gFdQdhOO9Jcs/xHpmNeK8/Bs8djLtu2e9/amHnM7T1JCTLDQL
ckcZToF9PeSKl383z5s3jxKm3X7Gw9AyO1lbdF1nTWCo62HuafiWT1a2UyX/
KJnJGuhiV2wujc/781xhWolNkyQ1PpeKxfkrd/hwYQuLbOmsVCuuLKKyOYGI
koj5qO016/fJGogiRaGfWkA82Iu6FgJxD7UQS+pjk1FoSAORS9F7IOqYNgEi
vFWdL1tAQNwPx7tLAmLlhWvWrKGF97fXDINclGR+iEgwtNA+GwXtsa/WWESq
FbLqEHksWNRV4dobIrHWi8QygYh4BamMbgFR0qnSgPjby0cQEMW0jjiZEZMW
5QGRkbVXCuj2YDDhPQtgMDHh1aE43tWKANPx7AIwAG7kqK15AIPFcfLUbzzA
dELmkYZF/QAckx/WBBjCi4NbLxgX3HzeKFT8FWEHIw6Uu0JbZIS6I1cP0Koz
vJyi7ElXCuTunRITdkjd/I/vtlGKu8WPYjGGoq9SRT8NY1ze12dlwvaO1fGq
C54lnOE7wBmkF7YeMBY6adbKMINtWzYUh+F4ZyvCTBeGEZjp4sBxmGGTYcGs
HYcwIpoLphhshB++4u2DgLTk5zXmCGvl9WuDrtcsg/XFr6lW7VKUme3xzMTI
nkKniKZZYhCSCxO3g1bmVBVsDjm24/drwzIKFkXKx1i1LxetMeZmO8vwArS6
9BgYXH5eb4LXNR1eCB5+oj/BC0ZhwM+AF9tlLHiJyWYPtXTG4YUlUuDVFsc7
yoTXp198lgcv9LxDRwENL9R2cNLKhJeTbia8Dmd4Yb964Ynd6bO3nDf2EMAr
+XmN6akAutwb15w5gLJygK5CFVTF7W2V8xOM6frVexmFb05lUYYyRihlzz5v
gpn1A1oCM+VtJpM0tYDsNDIOs0vP6UEwu/y8Xm4bN4hgJn40p18VgJnbORCe
Ncz2VO5uhE3gVZMBs8NxvL0VYaazCQRmugGQwAwJzIAOwigEZjopsa0yiyCt
3W0N3DmHseSHTcHYHRe+SsXMNMa6d15OjQYLbVF1gUFZLpFE89G2zyJyTNfK
P135oyHHEHhNALOevrUABmUeepcTOXGAXXL2EwSwS85+0jsjoC/h6w5VcYDB
fexQszeflpswuDS2RKsXbGHzy6Y4txC5422tiC1sORHGoB0RiEF7uMtEha1K
EmFwlQFfTnSlwQu7UBg7Op7+ouOCg1fy86bAq8vViyiOX8PLqqSAVjuIMUtS
9wVeugi0iDBdO0/gBREGhwUsxQQv6+lbC14zuCtCDF6P9hwcXHRW9zx4YV/I
ToQ4vHg3WgBesHAIvNrjeGsrQkmHL+qem5IbIlDCJhLiC1Dq03eRBaXDeEGk
nswOTrdePxrqfTugKfmRjYnIMpquPK0fGTKAo5qUWAMr70mXZBE06SD5vY06
fqcrQy5SWVEfyS2IVAzO+gHFAgpFd7jyIgNq7zxASXUx2FclwosqFfcbFVx/
/dOEqgvP6OZRBdki3qwEWO3OgSkwosEYIY5XDbO+gyYJzLRp9hQcb2kBzLh6
RyrMdGlyC2ZP9ZwnMENVz77dN+fK+bhHgNMfsYadbp1GH7/x7OGZI4C15OdO
wdptHSZQdKzGmhUQoKs7WU4Da2G0lK8zVXUnLIwI1CKgWU+f7jFQ4VmJ8JJi
adjc4T3ALA6vDqc/GokAjMNLIrrhBhg9bWkt4wYOd+ho4YdCdye2BhILFYfc
7fc9gdXRbwA07k7F8Sb/M23zP3KV8adwlgYzHUciMIMeD5ghlaHb4zMEZrrr
gcDs9hvGBvff/pqH2U3njMwcCZjd7B+ufXReBFIPXPEmuUn1YmiZJlASGOZ/
DSntDqgz7LB7KV1LygqdpRZD7CPXLn8jhFRuQIt1B+RDqjIOKarg4J4NngHJ
GE5AFCOolpTzeIC/BPQ7RVwQhdMcee0Rhc63rL/Tn0SXwAh878O9IPs8omAE
QwgIXp2G480/sSTTQSACMYSRAmLAj9PLLIgdwu018Prik54kiOEPu8nbfjP+
KI+yUoXZ49etJqOrW4k98nTRR0GeLmlUbUQ31acIM90J6WxVhFOim6gArvX0
xa6aGoPSdQWrKEfasQWsgeIrZTMoeb1xIJ57ygMRIEInw24xAYg1yvTFYMxU
qnPPDRwMt5T39wsYsfDC+BYHo2wyT/fizZzRvPIM+/7444++WcSXf9pVjLjT
RbEEi9DSgEVY9N1+QLCoK6UJFtFW4vbzXyXYAouX/boXsHg0sJj85MY0VhpW
jZqU4BEks6NkjsaiTkOpN5yie8UMtEDhObEYJl/S3nr6lmBRVVDyWKTMW4dH
wSL9m4DFapZvgj18z+GyRi2LnLHI2Kun2JHhY8YjZcvLUY29Ox94EtgT6EFe
CvTOwPHG4qHX9Pe//91D74/f/qkY6OW18HZMg4IH6AFXqBrCHb9oqzqw9x9C
2NX4oI8uVy6mfQPg98Cl84KuV6/IHAPsJT96CvbuvGgKdQLU2JN8QbQBtawd
gj1YcWFB0yuwttrKBgIlPGGlzWEv5xzgDQTV4bd+QKvCr4LqINX5gjRS1Utj
75z295nY40xyjT3gDB+tZKcmdhH47bg0Nhpx7EGtA14RpLS7YWA7E8cbWg+A
ujyyAFAX+BIAYsGFDQQIA6r4/SgAq3UIMal5+KgD47E4kfzUKdh7+Kpm8hDE
sYckpu7d55heeMGe7hFdZwTNCfZ0JbnzjA0FAc96+kLAqzQC5SsN4FWyp1Mw
h61BHHNnnnRH8MQzI9IxF66hGz8JxSa89U4U8vraQIHyi1e9S3IPUcgW9iQ2
2MLeWThe33Ls7W6Ug0627dZShBFbR2gxZeEo2DuYhR+cU1iaOUuOdiUQgsjK
OA5nkh/dFBohABEoLNFI1SoMDtYStw0xuyBYC68AUBf9amN0IDlPuRM4UwOV
Y7LAoPUDWhuDyE0GCKTIqWAQAZunnnBL8PQL4xiD1R6DqPWCRRVAIfucW1Wz
CpCbP/siGDJ6TBhA5xW+BlpZ13zwEb3H7nYfxKkBCcVRACl1c/HqbByvaz1A
6s5vIgx11evdGZCqn2oEkECcQ+HBLAxjRV9oZXabkl/hRfJTp2DxpnNHUDHl
HBYrydqC2lw3XDUIGPTlunqOpqBhDUddxEjgqAvRW/LwfCPjgrBo/YDWxiIw
CLOt1FoWLF530cCg/a9uVFis9VjEH/5bBBfHCllwhDyEXhjCsZFutWXHl0Hz
8lXe7CJwhEi+u3NPgiP2LUve/0ZH3GFZx6tLcby29RCpnfiCSN1hQkQklmOs
tUAk/mA45oAlrMMHG6EiFXTMUpActsp4RdBMfvwUaN532eywMVMMmnBRAJpu
z2x5LdLURO21aGOoiQJNBNBJmgVB0/oBrQ1NBITAPIdtNHXNU9A8+bjrCkIT
og84cv+GONrbQ3OkU0+Q24a3YRWEa3/AkOHB53/6t2Dlhk0+702gCZZguyzQ
dMt+RrCJ2+Gcw2fmMpy7pgXYnDpzGqLjBJtojIpeUUmZk4JNFZ1pYfMgVS0I
WMReJcvY7Hj6ix6bx+OY/Pgp2NR2HMEmGhmh+BuwOXDgRssHItjUTa0Fm6hW
jS4DGptabF4QS4Rfvug1rOLUu9H6DS2Bp8r+8fCEVihpN8XCU5LRpE4IMOcg
Hofn2MnTCHqAFdyz8IkAsoDnux/+zidFang+1DV0ueCSyAKSStewhY+eODmY
4BQg9xiE0I4lIhToRPMXIJT7jQhCn315JNVZ0AhFzApyeTVCOUfdIxSxKbBt
cxX0A1WaL0c/hRV63LkbzhpK6zpenRCeQxfzPf72t7/RU15ZCmCrDWNPFQMW
7kABbL9+K9IcKboht9h7dDH9NobtsQMLUxQvlHWe0GpNR7Fovbipn5RF92hV
9Y09WhHeDkuzhdZDq08PHunxUiJapbYONtpuAbfQitB3IA8qJhA75fW5hFa8
L6VJII8RpgC0du7SldA6aebrJDgljRe3o+pU7ppbvwxLFrpzhNqry0At6vQr
1O7GqEWHN8niDastVBKKoZnCRO6QubvaGXHVtQhwWR04UEUl3H3hjFxpKXfu
xrOHx4EbXHvGS5RoXDZwEUWKOBi9WULsFUD79NPNfrOEWCyksWvU6ph5QS0q
TaGkpkatblt1oaECEGqt6bDdf5VGfmUaVvFa0nTiWD3MYfXBx1/IwyoMY9AS
BasAkE/ZyGEVuET6Of4FHoHXBUuWE1aBN+zbgVXJl9NYBZeRNxlitSa8NWMV
3/9w2+eEV6SFEGCv8MOQ5x4sBFBdFF4AishS7N1x3i3uOltN+khUcGADtvIw
pTNID2CQ4jRACShWMSBvOW8sVRDUIMXrS5qeo0e9wj96zHlYbTgPBZCQrACl
2zWZXSmqVSQNgk4dCD0goaMi9sGBMLOPIUZDQFbF132qcpwb8UL+w3IwiaXU
wmTb6rOC+7r0YUzW5ZRRdlEDk2SMnDOPNkW5XN9aD0y8h88AjNgkQUNYvv79
CiALt+dLWbiEvQkFM3WGG+MyE34/q5XaEJvJsqdkYfrW2k3ky9FYhc0JtkwI
Wbd1F6wOH7mFYrdSsLq/Si66+rQXKLmymnF522/Gk76qsYoavKg1jeksSaDW
MH6htiJ+QuNXd3FMTsKs9DWc8Lfu8+8Fwjo0X8tUFOhGzPTFrLoqTQDwtR6/
WD2gWBxzgbtEHN/5QA9WHRsJ71I2IY5pqhTPmIZ66XZESZBesnY9yVW2mwqk
mQke0ijY8OCj3Ujp3fC7rcqKFVqkBNJZhrSq0KDErTn7DUVBGnGwH+1EA+z8
xr2Ca8hf2ERRbmzCq18JrnW0teAavnKY9OHifPCuufup2grQcGEyrWEMQ3EQ
XB/P5x69ainV5ML0VuCY/PNSwH3L+WMosVODW9TcpChavSlDBPf8d7d44Yw6
DWs/+JAwvY8RLCTIFm1h8/vvANnWs7c2skVblQrZgmwkArSrPje46c5HPLLx
GUk/x7/Y28nSLyUSsOZAPfXRkPnIxl4M+ypAdvuuPwuyoSeDY4Js7BQf7d6D
Pgbjl5PvHtkwkKUh+3IcL28hsvHaqbwe2drkFUc2cpKdSrGbEQUSRzaHVAqy
dQayIPvei16DyhtBNjL12tffydPrjsk/LwXZD165kCJFtNfKilmyTGEwP6D8
g9OFPbLhMYXX6qNtn3lkI2YJMvurnVszlyhzg4RcOrXDevbWRfb+HtmQuRrZ
V1/wLCH7t3d38zEi0IHFbIDXwCGCmXR9SODrzcVLg5nzFuRyFWpMdIMETlAz
NOtI1wVhAFskBj755BsEbQhz6MC50JUs6Rtp0L4Cx8taGdpT33yH4ugA6nqG
NupCQhkBvO/vPHp3hja7EiLQhoUMH2P3w74MbVgubjpnJAG4TglodjuERl2G
O3pahS0s3TH556VAu9u1K0kr0dC2as7rTqs1RjEdsaQhpQtRaW4yM/saDR4v
VQ5ZCO1///MnGevBi8W1TtEXXEv1PY1rLjhK+jFw/fQLY4Nbb32BcH149TnB
ddf19MEjEswkDn3J9RNcQ3oLrqFDu41dGq6dag3hzrjcjfaDoIzUn4C7TeNa
lJXVnE2GR3G4Dr8eVotS5UxIc3KXI7Xk0jIQjgajSQjXnW4E4ZJSgb9HHp0k
wlsX1ckqGzBkvTuf2VedkyryZzKU4VVDX+OwUZs7Jv8OAwq1RmB8dUpMla4e
L1DWBXnqlVFYMsUEylwYNQJl6B9on4DYAuvBWwJlLvSuoLyPl2uQeQLLzp3H
EpQPqz4juOmmvtJdjv61oCwlUPFeKEed5szlUnUwqcYy4hDYdiFQZqkegfJj
PZ7yBmQR4cIamO1iUNZ3xC9yBCU95JIyoAwIA8rSCVlr2LrdhwVlp2QIlHXa
fyXDFjAWrXsfPgdfMcKxAGKBMqJl0HYSU0qVQpN/RwqUrz/7ZcoQ0lAuVNK9
1qiRapmLtcIB/8bOL7a4PU0uSHrm9IkweWesB29dKO8fMTVYUL799hcjujPg
KlUoVAa2hjJtAdlxoSNRBcmsP7uzIYQhxHFJDeGnnumHzxCE8R2wB8oOaixA
OnsIh8WthUxCGiAdhrl9WTlB4A7vbTMnpmM7r62exrZjqUM3FmOHbSkW2Whk
v8XxDbuy2zYKvuHRg+s4jm/RvdsYJryzGN9wN3do7EnzXIPjxeXgWydcCr4L
VWGvTXGH6N5NIqoRmg18w7As+OYcpnM3bNiQsR68tfAdZsAdJp0ECBmSUBnH
+B13vETRNqVgHCY2mIChpWP9l72ogNwB1Y1rKGRhsoMKHQN4Bb89t3kxRY8B
pDCuGPiWXyCea5bqTpKESg++ivP4HJ4I9kREUMD2eDw+k4yRPLxTnbJi8K5D
bevZGYjONgjfdnvKjGjeHFUWAbtEn2mwQ7jD5qfBDv81nF6YdOqeeFE5YM+P
pbALt+vWqKKX6P4cAnbdGnU/Q8W+POf7u3rx4sXUbvDCZLCHTTlqUltoVsiv
2jUqc5ZuXdUaJOHSGgQxKeoXJwlVxmEdRkgiIWZCEsBOVHfRvcXPgvekKZSQ
xKHdkwSLBhYh6WgD02Xf/gMqYhzCJcQKKSSpIAWqyrf3gB2HFw3PEDkvrhts
CaA7oRzXCfiMBazDy5wYq99F+LmqiJaE1Im+Lw3PiG1dl4UXRuUnvUadQBKJ
pMtnCnsuOfmp4PLdBhAa6nC0QNiutdEnrOO6JBHWWfW+dHdXYd3s5p3U+FKz
DpF2WP+3fflHp7jkhy8J67Z+svHMTZs20QN1SGZdWhupqlJ+r7Dt3IZuQeeb
5xZg2yERtgGyVIw9xraHHpoghbs820RPF7bhdZxtgDc22lCIwGRmm5PjjhBx
qkleLqjd/+WhIdUqvfeIvaUV8cUIc4AFB9eH7halWtZTFN8Qj5SKDAjpZiGx
bYkzUizNkC7nFiu/EdEV6hsSo1ii/iuhmfb8y46j69UrKJc6bO7rjhbq0hpN
lQS3usSYlqgnS+iFGgfwvGp6YZHDZttRyj1xSK/RMxZQaXC9qOkIrCtxTFnF
0joUevkR7Mq4t+l/FXSsVPKG/sLMx7AVoxvKnEckY1XesxhWSZVcVCuEsATt
ARGCde06zet4MAVpgi3d+K1JMIBYzENSRlkvZ44sfjkTEoEM8DfcddfgYODQ
EcIx7OTxhN7xqziGaFlYqPBVXAKXIvfE3PWeY8K9JI5JuKI0fECM2LE495tQ
YmVynT1Lm69sZL4q/NXC6bdo15QYhWNXadPeNWEdEp3vu2RuhHXISkAbJkCj
Ecfz/MMc0TpQzLWBrTPixatSHGwoW4OEVb1r0v1BZUnT/UH1koboB7iOiXPn
eVrEeoFaLU6zIhnda3ovFCmJHbgqU6j16O2LKVJcU4trgCRRCw6KLl0mS5oz
YRgbEwmxhSYoPZuxhsSpxYE89H2hFpxosBcItSQmEmsnrvPSK3OD0RMmCbVE
4QS9yAHtrlnJX2VbsQ9MZ9ODsAp3Bfs0q1ScELOqmu4KTyAUSlyK++n+Am+f
n7KwlTBhVQXWNoQOW2vbyo+2B/0GzYiokPCIIMdx+swf/KZMWyAOTrGmwcV3
Wn0n7rjjjtbvO7wVAVmXEvlm9RjQkW9CNd3QpV65RaRC5/7KQIF93LQp4zNX
g2rWjytieeMf436/U5d5DS+LcXjNXVnSGbdfhHHduk33ixcYhwVKvgI23X33
EMKsaJI4B/iDcVhpxAos2mJtjGliWsP3/UJVRYomqAGK4DJw/VWq9Q9KKIYc
t4kxjdc95li+t1B88JJhh0vgiUFgPCWi+dyyfYxf0hIYV+xsFaIbskhAty3b
PoGdz9NN17YVuumQfaGbSnDydONUzgjd7uowLTiz4UGCyO5+UUugW4uhKFzT
5bGEa1ZdBssYqHNCRZXUXWcOMFLyrsLRmrYitmaV/vG5xWTrca2NNEzwgM81
NQzJdmTNBbS8yWfiZAO5br99oPTmqsCJCmYLVDjRMuNEE3UwgWgIMREiQdHU
RJPcVDFusKFE3PLQX7nIUqT0A28WU8gXpqpir5j7XBVlF4LrlObqfuWS97/J
HI3Pn1vihs6axzQWwgIpLER11uGvzvQsXLBqI1WU1ixELBfaPmrVEqU0kcCa
KyxhsxBRstjNAzx74nhOiRu6kkBazyy86vTnqIyYVi6tOpuWlXLCzE1UgUKz
EHV6oExqFuoidR1xtKYtpVewNBAvyTACx3KX25oLsC8r9cEUBvek18K+o2o6
0F5K2Ab2wQ4Ii7dmH87Dno8oCHcuIwzE4oHPSNS4ZiAUTS7ZbzEQ2h5uZTEQ
fioJ5sX7bF7R0Yy4G/xRwkA8MayQpTCwivVbPClcBrimLIFnJ+Kz8PSlWVHS
SIeWFmgorEmXX+ggakU5gItXYSlEqILk/F54YvfM2SoB6ILGHoSdvXC0fpzV
fLgkbArpbjhnKKWuadJpP5gvbvvIVDJKatLpbPQGZaREyALi2Q80mhJcg6P1
i4p1fOUXfS+WTE0RMh1dczGZimTZoTRwh2yxTIIot97aH5bDhZs4gFfWIEF5
EpnACKxZEpbGOUJsrHd3CUHvmVTFAMc9sMAoFkWCgkFoWEGERqJ8FqKR1jZr
+HNiBMUniENnGSOfXOQ9nRvTFy4Nxk5fS6yoM7KMRS1EMa4nHloR4QZ2ZUjR
hC8YAWsXn/Sk5wZC5C9ueoag0AbHM4t86AjmdfkZwTysGk8/3RzBPF5jYdGY
1/UrGxnz42YvCt5ZtTZxobkWR2t4Wxvz3LxAzf3uEcwfU3MJqW/a1yWYhzUB
eL755n5kNQPqK4BIWT2gMXGBLQ/4On5PQhRkVfIQR2NtBzTshgBqyG0Eogng
JaBHpXr6soZ4OJHzTsuScg14BP5KKua1kieYBwekJCJZA89oAeal95sVqSaY
Bwe4b7HHvK6ZKZiHvQ+Y791tI7mKL2/fx2Melb4ua+pPUNgHx2IfOoJ5nbck
mIf1HJUeNOZ1aJpscXSh/AbDBWzJ+etwtJ60tTHPpeESlaZf1F4ePPjgBB9C
IJZjYEaM24/0eIkUHkAXcnvk+IleaYJ8FRjGYS/BZxr21Yw18Qzl8FebZ0+Q
Z+E9i5TZp5zpMBSTlaziIa5ukREjOELw8OhYOo7CudNaEfa6nrrAnhJLndqj
1SDQAGHJyJk/kGEPZxIKLCLg+MVeOxCV6X23j3VcRdlOQMP+OBb70BHYP9Lx
neC261+JwH5Ary/I56phb4WxaYN1g+GDPdAQ9TfgaD1pS2APpyqq6JQC+2Nr
r6AQAsGNDfuBBHt5z0GdRWqld6Yw5AXxEqtWHOLrJLXJI15noCJEE1XJpDS7
xP9o2KtI5FTYq/tkpDILfhruAcMDfgZ8QEfivVNbEf46qFPgj1606Fiv4Y8g
IK6n4uEPezMlQjnpD20HNd4F/g9f8Xbw67pbCRUH4nhKKfBvEO3+qkG+5aLA
/+67hwH0idl+An9d6rbRiHI70AhIJvhbw1ss/JFO8NhdyyPw5zbfEfgjfY4r
jjEu9ojAH31RwHFIfWg24tmAyVYikh/q/gL9N8O/koEH5R0faxHymyK1AFZz
gClvZb2QlhJXeDoYkuoYvziPHXchJoiHSDMh3wtaJZt5X6MA4UJktGpfBhNQ
qR5MWLpyOfJPPBN0OJwwQRdfa1JGKFTyc3vizEGqmDOMTqgbziWFPBPg9zyt
/h4CyEE4FvvQESZcceozJPg1E3SWiZUaKDq/brAhTNBNXIQJaEaKaAEkUN0E
JlhPWiwTTqm/i9KjCjGBy/UlMgGl/hBhI2lVgkPgSfwhDz/5IkUXMxOqlM4R
V3nSaAA1JkqD6iQaVPCHoFkB6bgs+ImPYo1Av1KpeqnjaUplQ773MsqGzzmL
i1yXFoiKZYP0b2gyKsXUJrYCyZK1CKlZTv57NmAngNwq1GblCGjPBsTeQEcA
SA7BsdiHjrCh4xn9g+ee/H2EDffdNpPUoKRWlFZAaJORKCtsQBE4NDBH9PPN
YIP1VOklNFqLA6jTCq87qu1Dy7A4MH7WagIorxTCAawEsIsmcQCLkAOx5wAu
G+eALrWhOFCtFhzx67n1qJrBylcuCfa1ibsFG/ZVfA28xxHgYcelE/yExNvp
psNeR3DWGoYfgT3Uo6g6VC0bX3LBQzXi0q+CfIRGw48FaByG4/HGM0a1H8O2
qRtOW00uBeW6642gXJcZPshockkoz41csUU5ikU5ihqxRTER5ZD0XbtO91Xh
AEfowLDo6LB+fq9K4YrDUDzKIY4ljIUXBo9y2O7ZUMmYq9KYk8t7PCr7kMec
DjZJw7c2csr1RK0rDt+hLQlhOHiulZt/aOch3kJp32jEdtWlBC4jtgsVZTXs
sfnFLgAa/503jZc0AIE90l8Qxw6stMWx2OeOUEFHkwgVrP5iOprEykwUKuhy
dRVI7BKpD5uQuLl/6/nwE+tAUgcxjRkocofPgUHCDMAFsCyRGcp07pmxp8EC
Nrt7t4Akusj7+G+HRsvZlUYIbQGtTfxclBBSiKGK35MtP+6HfTOcc0fgvV+1
gBXSkkNYsfp3O6iMk2aFFWeMLjAQ+OBDWBCnNhT+144giz8WBOSfw3WNHcJd
HaYJO6ieY1Nvwks7HIt9/gg7LIcAFg4Ub9Ts0EWdZJusizmGm4NqshLBV+Mo
QdXGUOBp+64/HaD3CTNngSeZW8CR4/+bcASl9R577DXihJRStjjCwBaOwGjD
oCyKIzCgYbuxmqtFue2w54jWrVZzNqOvthO1/QhH2I5UkCP5n8vfGSO2LM6R
z3MZ8aH96JclcgQVHJI4okufCUes5uCoPsIVJTNSggTeMXDCcSMjBU6xs+YY
fb9ngFKFOp8AzJE4HlcOSXQSmZAEewiUHNEk0Q1DhCS6eU24hFRRegvi67GL
Ruz9wiXL/d6BMoOZIbeCIdaQF8uQ/L6BWepPjxZFpTDk+NrrgpsvH+E2RbNJ
dAsWEQ6E15oh/J4wBBArhSG6AEMhhkDQ+Lom0dAKidDQSfD4QxkK97V69XTR
H146MUSrE17jFTU6P7YVyaJrrwlZrA7UiD6U7odCFrjcpDZPVrnWoHK5BcaT
BbMseRdH4VjsD4iQRUcUCll027rqlLCKuYu+os5OmixwMcPQinALXl38FgS1
1mB2Ql/X20AW64lbQhZU7UEUriaLmJPSyILvYcsNlzQ0dpAFOwHgJ4UsUmOq
NciiNzGrOarDvRaySBx8GlnYGydk4SJZLSKL9KyCLoqBgReE+mn/ogyywCMh
JSccQTxZdEE3IQsccNNn/hCxx44Zt4PstI4gGSlHqCsACVlQMgWrDcgigYII
HARigJ1f4HhMOWRBOe2brh4SCb/Vxa2sWtqysug676J+wWvx/MBBUvyVumM4
nUv4glqFMExhi0J8sUb9n8GXW68cHTzxxNyg//DXfEIj+AKDaApfpKaE5osu
684x5J4vGuBxvmieCV+cJmipVUXyRW/9Lb5w6G8RfKkkXztWW+xY5izZSpaq
o1tAGS7t6SmjK8WJ9Wr+iq9QZCivBT2Xq/CU0dn7uto8FDJUPxTKYDMDnR3w
OQ7Ho0qhTKNRaUjWF3Q1wg4lqS1qbaI7o5rCO6CIcdkW6Sx4MFPmjeZF1EQQ
lLkdR2vUy6FMBRPnuUe3Bz3v3yDUqSyBNXdcPd6tMjNpwwLWwBUMAOFzmjWs
GKWxRsdniAnLYg3w527DrKmLsEbiqCQol6u2+OytAnThRMdEukiUlNAFlEAY
ikUXvcl3j0f7+yNbSBetjk2a20z7eU2X/H4NWd88WNOF9/ERuiDyFXTBfuZM
w9/xSxyL/QERuuhqRkIX2ssM3VIwDGTGm59SiVutjnHTG/rj8reZg9XeBVaw
7ds+zNwJrlhPXCxXUBO178NbIlxBcblrLxoQ50q+zT/kCoKfUO82XGHGUPWV
Z4dMI3so7KoWV9inIFyB4apcrkRjY+t0DJ4PdJLSeNz5IZErHCEiXFE7oaK4
ohyJeVyRRCvmimxnEB8gq9fBOB5REn+q8/gDe9n6bV81MIXGzXyT+m1rCumg
QaEQMjlAoRd77fAU0hVIhUJQ2qS/iVAIbUPPbuhCiDoex3blUEjX1k2zkVmh
JMjWQNCsW2UcKPP7hYbUqaQCYegXijoyjj53gD3WgBfLHt2fUdjz8C0L6HyR
7EGePD4erjQTKNVQmpUAR3DcAc4p7AFMS2GPDqaNs0d/T9gjdi2GfiJ7+H1h
j9oaefboZhalsEcCzGPswVdgnkAsMRkDDm8Be14ZN4ZSETds/7rBCL4S9uT3
2Q3dLjAmI/ZQ2AM3DGrzavZAf0M8omYPGPWbxu6EqBNwLPY3RNhz98XTyfUY
2eIYDnc0/JPwEyubd3dmD4xpCx30wJtDmD1YeMAo+GWaF86htcd62Jawp9MN
M8thD5axW698hUxsUIyEPcCLsEnYw/4+YY8kLbU2eyDZEesrtVCjwSzVkesY
7NHpExUGQ3gDVhR7xJDI39Hs4eTKjAQFgOfi+NwPx8NaoM/hv9FQXfS5l0ZP
pO2OppNlXoO/Bv6ZnL8mmkYodIJ+Jx1hhE4wwXVo7EUQOwnHYn9AhE5WFw7L
s2/VodCpgkIn0Gvq63OISIcpPW7kiMEUv3IXuGQ9aXr8isUg+GYUg8Q+oIoi
ZcJApd0jDMKm6ZYrRpH2hs+lMQg5fxJcImlKn4dlU8VZrxNu4wzSUe1pDBJV
S9Qw7kScyCAuQSYM0k06LAZJApT48PV7Tt7IaS5zIU8m5IFBHoZEmBaEPPih
XLLN4dYdD/bTlmtZky2CKDrUsdYIddROG7FDC1FYO4sQBcFeqPSnicJdaQhJ
J+N4iH/EeEhO9sC//OUv1NgY7KhPKT9mZfZZSe06y0k4ohsdt1Xe/q2fbCS7
AHEkN6LFRr+kcQQ+e0eMYjmidbQXhs0k1UNksZSxzudIVYQjWBK27PiSY7eq
8lp6rfngI08U7YlhS7Iniv6eEEW2PhwEn0gURroQRad0tIAoEicWI4rKAYsQ
RVRDIsqhZawy73/4gScPivw1GiFiNUweREqiQktSnpRuJ4KifrrvGOJmEDus
yaML//3ak6foH5Btv2XLFrKxdbl6UUbM1Lp1jpU2KD4d3YPBihLYTeWScJSA
J5QOJyNCWSNfSIHLMrUwAjAU5NrT56h1/SWDS6XWbVeNIwXu+WEzfKV4gEmW
I4taiCAQauE7joomtcQOvScvW5pa7vt1KaySpUyWsSJZpVbAolilt0aKVfLj
YqyizoBuHdWswn5NdLcDcCwNlCGrkGkrhVhQ96jBqOlnma6FVbrDibCKU6+I
O78xavq1L4NBJ23dujW46OTuCMLMpIUd6yREYRDUuEGjFkUYhNYP8ILqJYmt
1BG1Da/R5hzlw+4Gg6wHL5ZBujuqZhCCiUGLEhl0Czl45pD9WKopxBnEu3rP
IEm7FQbBPlYMg7TnM4FBAnfJeJH1rUgG6UwTi0Gc1egZpE1zjkGV/BXdjThq
cwgXIvwQtyfMtGspZaRUWIMRtFlrBG1a9ZuFMpyuFaGMdoaeguPBJT1s5b4/
/vhjcOHBTwWXndIbPtH6lKJ7utClsAaVwWA/0KxBXVmU3tes0YUuZd1B8P7r
s6bk1p3/RqyRMIKBo+ZIVhRFuACyUoU5zho4gTRrEC+Rxhptq5MYzDq1hRLv
jmKSsEYzSW4HbRAOoiQmsWdGmKSzVCwm8WpYiEkqb9hkEn4IoqKP8HufVmKS
DvQUJiEVHvufpCpgwiRd4v83ho+0JCZJuZNbjpoU/ObAbsH9l78R2Q8hFRhG
wHjtyqlTf3DwCGmExQg+n0Lqm94PHc40QrAn2hxG90M/PY3Gj/9KHI7Ji88V
oyl0DTsjARYnA/q6XFEahdlbmkajhj4PxUlYphNb4kxCnIxUaE1gUgj/Wm89
1JAH0TnuWh4mHj7NJGrgW+jI6/jViiRQsvMoF3naKgSSeikNRhSo5QZqpGMl
xe4gXoc73UunW86UiXBIF648FceDyuDQZYc+B8ePV+Bu6zCBbAjxNAJk0BRS
4JBGAF+p441finShvLbK7iZt6H5ODqk6kyaHdIA0PgdPvcUhdlKmcsgRoYY5
odvmqqAeqIdx+mAzBR2NNaaQPjX+CjoUgIvt+RS0eNBojDsqn6Zc7ugGA9LQ
VL4i3GE/L9GnWDgyfW6dM2dOIn10FUqhDxqbo42Spg/idmBm4P4B+3K+5fNP
bZXY6qDbA+/AYZo534g/KJtGNx7xChKQMzrgDUvRS713pu6DtEZXZ2h0shTp
SneyFCG0GlFunkbWgxdLI7QgAfY1je66ZlJxNMpqGjn9xvHRnXv00WlOo5tN
kZxSa0XTKO7NhLqlaTR+9ECgPE6jWJQPPhmnkdjTIpE3NT4rQQegYQvjmJZI
I44aEBrpSNQyaaS/Eg0lzZm6+TatTiNdRtJypwqNEIyAOB2UeLn9hrFCI2hy
SD0AjSQF4XwjBuE0HA8shUYVYJF748z976eKLtrMfc8lM6kxGVhUyVxyvAr7
tUz/0VTr6ozgUeGSpCUkcenOlnJJ90HNqohR7lGdqUwkUm1kPbrpsuE+qRkG
BZ9Vb/NIdj/SGI9yn18bp97LkSgWwIAVixcWpmMNqX4i7mOEygijhA6aUfjs
8DHjExnF+xRhFDfbNhklfTcKMErfPc4osYnzk1J2T7HIZEadv27dOtoQgVHv
bliPkJ5URkHPw0KkGQU9D1UAnu61AIEJwijodZwYJ8XJPaN0jdbyGQVzA2IT
NKPgSEIsqVbyeJMUWZ10qbA6I1bBWp3axRgFKx0xynr6n5tR8K9KqYwXhs2A
sVoYJbYGfJyrs/B6Eq4xq5bMVgtFHpMkVQ25BmATAg1qmCVgBO+rfEe1KJMq
40zSHS8+53DsquIIFQ8KSiOUhEjECKVrOCURipuCl0QoBmbYcI3rLBGP6lPC
s3XFVWETWITaGVD1HG2ETYjQFjYh6+fhK972bNJZ1qfjeEA5bLrm8CHUlkaz
CboePEfa7KALz1QboafCJl1qY3djfbLYdMfPxSakz0kxRYtN+A6YBOrA5uBw
LmwCnIVNEncj2hmosPn9d4Lpk4aDDhLHIDuUGKGw04gTCgZjnAOxxNYXJ5TE
zLECV59AHo5rE/JIrFAx5NHGOEUeXQYqTh5Rb5mjVKqvRByWRh6dDiTkQfdC
uF0Rz+C0OIs8knN6vhHTUz55fnvUxOCS9j1BGL9R0iXBK4247WojhkHIo1uo
7W4sRUckkcd6ejvOpxBloINqyuiaxOYCdOVo8rCqwkvFUmbLB0uDt96YjDWr
OrZoxCiDaIg4ZSjLaER/ilAQykgwtlBGVg5GsFBGWsoIJ3ivL5RJsHyXQhnJ
RC+WMvv5ScpF9VRqeryzfAlVKNb00LkMVlRCE9MDr2E1RvXuR+5duC939QQ9
uJ4NInwuMMoTnIHjfv6J2sehFLLg3AMfoeg2vYRoB5CwAOUKoIBpFkjotUO+
Z4F0OtOh19jpImnUYsGOzz4OM3xyo1gokkdYABFwR8cJeSxAGcpSWHB7x/Fk
HQAIOaxGWACxncaC//OX7cGSt2bo6koJLKBaZZOGq+1PDV0dbdRFPkufe3ym
AAvieXMxFiSYrjV0C7GAc44iLLBcqHI5qu+3fzmrBxe3idBDFzeuMcILwtWj
SnfmJE64HUxGOIIOneAI13kSjujqBMSRkh5aeHPFYS8EN583KsIbXdZDeKPb
3nrTgOOMlPUQ3kAVi6teOmXhSJVMCms1epgTb6ynL1b10v1qNYOwJmgGDRiw
3sdnhQyqiTAILISZmoPeMlKKW8oQ4LOSRa3p83//9w6yCTjkxumDQKXtu/4s
9AF4xXpQzW4cWOiwiKxf9aYHt6KQMAieHWyhSmNQggG7FAapQml5DNJfkWXp
6HB80YoePaFpuvYph1DWeqMTf2qM4INGdpki9hprTS6EtJKMayAS7NZXn/bC
BUbQ25l+sSmVSGyrjhBJh1sLkXQnWyESqhk80n0YXD2eSLqQmhDprfVbqR8S
KHQUZy8IkZBm+t23f7j1p+ASTNhxLulCynEu3dHx1eDBm98InnhidvDs4CmU
x1k2l3JFmkBJsa3BrrZo/tQIkQDOKROGRoiEXRRYo4gkqhUzJYlIDHshkjSS
bgGRWBaI6YFcovKethnEiASRdfz27dvLJ5K1r9E5QEIkEAtGAE0k3YZFEwmG
bO4dLUTSJUBKJ1IlE+nsAx7yMdnSaKzbtSvJGKCJpEN5hEjoWYs6zY48qfsZ
hJCiugGa+h2t0oCQr81BcLd6Za4ViKRTUNGJCI3K3R6/GC6hdj8KmSNVG4iF
EVi4hH11IS5F7AFZbxjWXII9GoY4zSVY1PBVmBR0njSI02Iuxd9O4xLngQth
xDXGpXjogmLWK1S9M84rt1O7YcGCBeXzav0HG6iOfyFejZ+5npJ/NK9eHLCW
nKZg1D50rHGQ3i7NNT3HkN/wWMdV3migo+XOxtECYkGSXXLoMxSUoFcrhM/B
A6RJpouey3YJQQsg3ogJqzzJdK3DPYx4uWOM4ra3/BQMg3cV3fhAKcUwXfdc
M6xTpxHEMFwGJUSeHzKdaCAMk2oHEtnfvHxVHsOw5Phwm1xVKM0wnIOlIRcj
FDa1wEKH8zoGDulAPt2nXIZJyIPFMLYx+/hq/D4OyssIvXQrjWLpxZu1sCsS
9qtj5rX985//TPPWphx6sZ81Qi+dQiT0Qjcx0EnTC7USpe7bPlwxFMsYt/Gj
ztCg132XzJXlSzeGLp9Z17YbTvHamlnXnT2I9D7NLMQxTJjwdWT5smzZuomM
LF+6/fMvVCQquml4ZllPXyyzzmt8LLj/ptkRZnFSUZxZuoa0ZhbM3mAWCAnd
EfhFCyOLWZKCEGcWYhW2fvl1GrMA0p3b1pnM2vrRCp96ABsFCOzjsHO5Ehwe
kMQszqsVZiX1ohH6IkFVM0t2TNncoiO+5FRm6bwJiYE4xli4flJm6YqKwiyd
X7SP6kMAPywsfLB2I4ShgxGUeg6OJS21VUYIg2iFsFvALpFk5a6J2fc0rWD1
5qI9Ea0QxXzcIpU5lmmF/mTNC+fk6vK2hFa6nWwLaRUGd08nIa+7hknRhHxa
ZT2tcgFuNqdgjPj2y48Up0KVDRZCcE0EPv7FPSbPmkPUrosRi9eken60+JqE
Wzby5cWBWy6r1DqUyiorsugXxnq1d2ux6rFeI6mPumZVfiRDlgyCyCcCn9rw
eiVZe1ABoRpyKEMHlf2Kvi8tI9bFh/QO7rjw1Qix8LrbfYsixNIpsLVMLGiB
qLoYr5LFBeS8JoiQb1RgfG3efE8sRFquXbMkRyzr6SMdZRsiXTvDj6BNbufM
Mv64vJ/aNvcnIKPUyEbwA/ZgFhmlqHUhMkLuw14ibXUQMIR18N///AnOF8PH
CdNm0GUL8DG+kmk+xtuPlMpH3XskjY869lbynoSPc5ZsvXzZsmWJfDy8DFRY
naIjHOZIpAiHrcxb3atKOAx9Erql5jDbGqlGF7oUxjis+7afi6O1nLdrTfhX
GXqq8F6XKhbeo/wXzCqa93gN+6Tmva6+upfR3uQYHaYe9nQvyPu0fu5Z/d5Z
ozK73CtpbJ/YvbcM7uvqxhb3kSiMzhH9HZOwOxTuS/0VfFZyPDT3v//jx7TA
CvelGjLOCffFoMlyQrgPIsLGiTVabIaw4aAqRJz7YrZM4T6bUjz3dYJWnPsc
iZ7Kfa5nUZD7+rqSNXwsX8Pp5Hv/9a9/pZnby5jNtmUiI5EWlqm0LiVHGK/h
tAPzG1RPImnOIntOqQiLsEN07OUAKuG/bs6SyP+0jvFl0aDaUKprjShGkQG6
82OtsgJJ8xdRqnXruz2N5i+yV9WF/EkGWL86JgPkR9Hb7sdCCGYLvVeJK1Zo
5uue8i1kPv6Fj/7FEa+Tmq0b95bCfCntrJkvW9gI8xs88/kS3qqJLeyU1+fQ
bRHG5dRpH1Ip+1n2PlgSQKK8mtihr1PCNEvhsKhJYb76rGe+alpQFPNfX7zl
kpUrV9Jc7u7nsF2ZKKiMokBYzj34IizXac2yykNzR7CXXuWhuUvXDWE5O0J8
9zGu6iQs17XQzsNxD/9YR7QOvKsNbb7WcJ74pmWqTLRsk3XymTBaF/EURksL
PzhPjo2t6qtXLgrbOe3pn68+yuNQhiX/UFFuQnm2q/Barju/CqOxKE+Z8j0x
ulu3GcmMznpG33v9dPd1R/8MegFM9t0yKopk9a7P36f0tTRWI0wMTssIqxvp
o7ACs4rvWY01e+a8+aT+wz+Df7fs+FK3TOMCpJmGIlit24cksZoTsCOs1v11
hNVW3xwpBfq5KuN2nLGe75mynpeKjoLruQ7KEaav/WQn6e+a6brHoDAd+Tqo
t6uZDrsxOmuiBCJKIcaYruOhienJG5dWpEJ1ik5veXUQkzBy5KeJtud6o5Oz
sB86vpR8O06VuYbtGaGg1MDT+tUlrOfBrlGZszLyv3CDU5YcALEd9YOXXtoI
8lvlseMrOzqcSANoqVctKztQLTKAE+YiMoA34ykyoIoYsnzRayQDuJQwG95y
goDlg/eqQOuGIJC9QMwuLhXhihUEOt1OJyVoQQDZwyVWvCDAPXCvQoLAaNnr
BcH0hZuQ+VNQEJQKj4KCYOGiZqdbrI4IAp0+nhZMhDQjKO9aECBaD8V+8If/
jgkCHcF6HiPUqQB7/O1vf6Nn2yNFLrQaNWpS9HxdU8gKjhW5AB8V8v20XNCx
SXsZQX4iF5CijnAKBMfeWKRcsDY5PLkRoVjQvpcmDxBKW6Q8gKEd+3u4gaSq
Y1aRTORBtOFvKA92/J6KKabKA1HplSeZ5UEDhfzhGloeSDN6LQ+0DRHPBLmF
Hb0IA91NXtLsRRjoTEEhLtenSBUGuqNYmjBQQiNPGMDygEzif/zjH6nCoFhM
FLTucWOkgkLACoTCa1jwtHUPRVnQDIkLU9J/X3hidxECj3VcRcXArthtYOY3
Ptq7p9/fpAmBFvOgxkhVFPLrDq9Cfl2STzb5CEp0lI+QXyf/ilIABzXUS2wJ
fhkrKLbpgzUh+S07TsTAn41YOKvVj5VzLVICiiQ9kk+uubA/bRYAfN43F016
jufwhMQCDhKAdEJ6vdDHSQ8rPhQJvPfq2MGU+xgnPeL1c6WZsr4YGgSLkB5m
PAgtkEyi8YX0OptRSC+b+TTS6yZpaaRXwsGT/pc58+CZmzZtKkCAwlgouOJz
Y6cI2XVicVp0Fvouw+Wmya46odEfzPqK7NgVnFZ/DwHxfIZj+7rb/bZnd+N5
27UU9zVGBqWQXBedEZIjKQzRxklePCE5et9Mf3ttZIXX8Vy/VPt+7AaaF87J
3FCA5AXd43BmPnbX8mLIK50vcuSt9uRFJL8qZSucA26Ft8LpNN6Cc8AxeCPX
gJV9++9WmbyFJR4WefWeVA4L5i1aQufipj8szNhy41wjGwkkzp85K5TVCWGl
UFa3aiuWslwD0VNWr9MWZQt6xrlhVEEqItESTQc0FRFXgo6dmoqqcBP9cfsO
y94mVLygsceFa9asSaRi4m+oZYphI41aaCBXTUoRDXjtYV5DbTShGAL+p72x
NUIxbVoTiul66serCBQ09oCj/HpvWiuTYrrrbQGKaZeNRTHph+OAof1VQjFf
8a+S4IeVjOPy0wgGbRSWNJAIKWUbP/nUEwyoBYFUVLMn2Pwly0yCSZEpTTCp
8MmVl1pKMN3bLY1gOo2GmyFmfmWsiSWBM41g2O0iNDIpoCvNbaXaTNEf6tA4
gp2tiqTB3q3rSet8NCGdU3xxngRHWaS76JBelI6mSffglQuDu2+elNjDTXau
SFdD9VvQrcGIptzTSAY4wQj7uq5lpKvTpKM/NHGD9qlIlynEurvvHupZx2Vw
C7Aulg2TxjrNLM698axDMBjUTfUe2bE16+J2L2Ed0qCFdVI3miNDhHU6P01Y
J60Na5TWieAxsE46Kqq0ANbM7UbVmnUwty3f9L1nHa7hfjolqZXFOkvD1PUC
hHWosTZy1NYI6/AaxmTNOtVbh/5AM0efs9WyJiU/s0bQcodc9K6XJruVwzpt
RxbW6bYIwjosfYMGbYqwDq8HjmiOsA6vEbOslzokiTYvX0l8E9bpKu7X/tSs
69lzQUaKr8FXJIVkKw3WPfbYzGDASMqQkSBJ7vBJsVpxysG+u3jVu2mUM2jF
lMuFP/N7FfxmGuOwxOL93CYvXIS4S0EmjW6yQRO64VFxXtNNpad5uuW3v66U
YGmh8An8dZ3BVhIi0ww3SA1FsU/NNN12R5iGaoZw0FrWW2EaaHTFKf2Eadja
xZmmQzU65NY3VIaj9a2k31VnWGaFaWjpCyVSK5XoICfFQoVpusqhMA1tfrFP
00xbs+0b76890Si4S0yz1PrWYlqvXs0Zq3C1MA2AFKapSru6pCcwCR0uzjQu
WiA0gHMFq0UuhafaB1AqRgHylexzib8N/yzWN65Z6xmHbZ9T22pVQJMEHDcq
8y4eVBNOZxOUQjgd0JxGONE+Wak9wVjaWo1wVjGDHv3GBZOnfhMhnM69aWP0
ShBGPXrVUt/SRzqQnFB3Qx7zwMaLm54htF3IzDu3odtpmzdvpgdvKod5OgNO
mGeVzbEsJrr7vGznpGCI0yYzexs+EWEe4p6WLllAzLvmn808oCm3xvn6vMI8
aZJlMY95UqM+CqPMlNfneuZJDmmMWsI8Hd2IP+YyGUVAr7dXrKGvs2EmjXmy
DUTwdUuZpxJvimIe7+VONJa6koBZKvN04yxhnu5SIsxDQul1Zw4mLp2nev8g
W9sxLcJG9BsEsi5ill3W1B/rG4mRslhmaZJWU2ErHklHGMr6hggFVEHQ65su
KH8Ssww9HuF8QHkRYpml36cVp6ojrfrpBzYmcqtPn0UZq468xS3UGgXWHD6F
W/CJQVvCUhXnFi9RNTF05/J8qiMBgoo8wi3oX7CfyNuskfqd2fx3ltHXOb1b
c0vC9oVbWCDj3DIaSUp6Tyq3dFpA+EvyKyvq4gmyYzsxp4bePG/ePJq3Bj9t
sZJQQqQZs2YGi9ZvjhBJZ2dXp4T+6I4LQiREAEjDrPOUIQQePkcwTyRd+vri
XNiplwoN4UPmP3i9oRRWp7QRLhTGI6TRLYBkadIV5E9SydkgzeYP12U6gjRN
/vmKq2VVp3vU01/vzh9SNA1IM23aD9hoZayK13HSwCYJBxwsBg5EQhpRysok
jY6/M0gT55TUEYmThs8LaagsAoNa9l4wRUgkrFhAYqSp4KBhlWsaaZrAuqzn
jg6uDX9QbSJ3ePt1ci5wx2e2NZazJk2YNDFY+dH2glSa884OKoSo1yRV2oq3
X1mKkUWsrKYSqAX/WcfTX/RUwrrVobFnhEp6TSrpxwi9uMFJhF665FWVkfEm
9EItX6SSOm3P00tXlt/bWJNOjkW9v7NoXkgvSzEvTvOrziMatEBHmOoiuNWp
00hayPC+Y0Qx3GJ/Vhq3sAFBkGoCt7Dcoc5inFuyupTALRBDIk8a1YNKvloR
3GKLjOcWl3ZI5ZYkbrMJRbilc7HL4hb6myD2XHNLdxQWbk2fvyV4que8CLfQ
0wRGQ80tVL2COUNzCzxC5gO4VWEEp1zK3Dqz4UGU7cotU6VyS++qhFvgGnp2
J3Wvk12VrjTv7fX9ZwTvbNoR4ZbOKvs1cwuWxMmTxqCpauaqn5hbI0ZslTzm
PG6BVyiF/fzQ6boriXBL111M4BbUqDi3dIyYIo9wS3JB5W1ds0dziympuSXl
6Q8unUdIaMXXNY90qLjEy4g/W3iE4j4VbKFR/HJaSP5iVRIGhVB9XxoefLTz
uwihdHEDIRTKlsJUoQmFlg1YnLTeB+cz0rBRhUe6BMGUAQ+zJpQOABFCXdzU
z0uHsgh1VduBFK2lCdXl6kVUClsTyvI6Y/EaMWFVhFB4LenZQihd3be9qmuK
LsUbN6wKCWVt/1qJULqwaZxQ2DkBw7H+JGmE4uCOGuOjQigdf2UQSsdo40+X
6MGlFq9+1yKU7j10CN9J/HkSBsn5mDWKMGw29CTSkZWyGMXLAXNJOwnw+jV/
df7KHdc2NzeXz53eLw4BYyLcefblkVTSV3NHB2o0GFHSwh3EUEmH7vPYXSwt
UhEe7fhTobxbErRxGdPntPpOXhbUl0MfHRcl9EFledjYdYNvays1evQOWn80
fXQxuTZGZflTmD6oziOerCv+ifSJ1QOO08fJbx8DJfRBMHFt7HNzmxd77uig
ZIM78bVKF+GhDKS17xF35s+ZiLVO7gQwJ3FHCMGaVxp3pNVPjjs1edzBf2Pt
w/dOyX3PB+qVBLQ04ui6AdUpARjQ6rjsmycOIo1RM0ATB67h9vV3UlcpRyoh
jg68uMxYd8oiji5nKoY7vEYqcNImyStyboOEgnCaODpqWNad15dtJEcUKHOq
cgFLtBMRx9KpfzLihAXNsEHq1estWnNyTblzbMiVWQxZg9gmROPGWZMrBVId
CWzKY01Y6Pr9NQv927qsBzYdy9e97zDueMOXl4Cj6hT6SBBSCfRR0RKp9OGm
y54+Omm3xfSpZfpAh0P5nEKRFPmlc7LSjk7Rp8bX2gBXwBnx+7avuz1zpbHg
1JXyQxokYOnk7mBLZMHBAoQNT6ENkC6rIbxBQi54onkjdao+2bEzcxrzBm4m
NCJG+bfLW8obrM7PdtmaxBtdrlTzBgY7GB6k5G8h3iDOAa6lNN7o0CSlislq
E1fkNG8QAC8mPY4llDvBZ8Opqi2hiw79S6ILanrgc9j2nGqsNiWhLI0uVv56
v0EzpO+pp0t+PG2WKiPClK3pgvha1AHUdOEYCE8XncxSFl3O2L+TD6oVuuiy
bmnbG52vnqaf6e2N0AX2A2leQnSxtOVi6QIPj1AFf4hh79lzQTF0QTOg/uxh
jdMlV2vUpou0kkOMrNBFhw7l0aWaFDEoZPI2V5CpUBZqsIVNEnIjQFp29cIW
sY6ZbKnWbCEWcI2ZqgSSYHiktMypxpryk5JEt8KqZ5KgtBNKtWjDGpduIXqE
gUL1tJdBgUPJB0GYgiYMn7vKyAepLYcvlu1aV2urTomH1ZmcjYZ9rY3hGjot
5hpCJ8fLWpsvSNjq1au5GL4gkVtq9Mb5oksdCl90PJyEoTvgOwmOY1bv7D2H
dAIW/jimvABJpGtWGkkY9kISFEwAI2N52tKRLk4SpGq7j55mJGWUxA93Dj0X
P9u5I3hh2Bhf5czKg9QxBkINXRBe1g+pVAhSnEPHOlo/kA+JuAJpsSDU4FiD
zNXGOlIWL3SSo/Di3ktnuQedE+GFznCWdQQ2W/hw9DqiM5zbxOLo3F4/c7pK
csQ6AjMZ8cLSfluJF336LKJ6eRYvwBmpsFsqL1SYjueF2rUXx4us5wV2TMfG
IJxAALAcVxUCcG5yEgG4zP3pRtJESaBhAqD56Isjx5sEkO26LgBkxZMKARB0
g5R/vTbAwQKwo38vHDBctZ2IAEJwnEBHY22oKYcD3HQ+wgFdzUs4YFX0Q+Lv
hJmbIhxARBv8mg73bg3MJSj1GzpOcaAy+NhhCvYu+F+cPnVJMTSIh9sUBL8u
wRkHP7opSNxlHPwrN2zKAz9I0hRDrQa/2kRkJAJM7UP4c9Va/dfoLxP83B41
qR8pIrCdyD/dkP7VfkRjASUM9C3bPgkGj53sgY6UBfSnTgqCSYvjVJl3DPQq
H/CCbB9ETblNtBsjbvF3Ynfx4mcE6To/oSrp2QXVV7cdRBFjGtW6opWgevAz
f6QdgkY1CkGjJp3WeGRDver3X3tU6x3CGUbvaoJ0jX++lGAY7pfXYkjjveeH
kE0nD9K68hRktzQlFEgrd2CLIY11wW3lj42BskhIc7iXWJ0VpB128oV4SVKP
sS292AXbOqs0DduIUkFtVo1tHZUi2IbzAvZWCG44LDo09opgWzzogm2d8VaW
FLcMr8A68F1Iw9eFzkO8V5JUR1wypPa6z7/fx3BanMGCHK+h5KOUk1NoLgLq
Lc0yRZ8pBf9IZWPHcB7+8Tdg1GyUJkrFvzSBhiND8K8iUVLxr/bKHv9ckYnw
j2ix2dNfAU8E/9K0U/DPCn4S/mH7mdu8OA3/aEHoCEbRTOXgXzqnC/7fXPFe
MGTcogj+dUmjhpQAR73BPYudC+JzwIxWKdyLo/saQ6ZXF/k7KjXuzz/ocao/
rOW8rlGUpsHrePwGxj0qGvTsP4wyZJy8F9yjqAHKlQHxZzLu0dMTG14sAe+t
W064txTKQrjPkC5DIuCaC/tnpHsaw55QX2VUIoxjHw2i+g9/jfT2OPZ1xTHB
fi4wN6v9CB77f/rDB77jRBr2pWjB51yVEzZT9z3BvsTTF4l9LixmYf8cI1S+
WMxo7K9cuwr9Z81WzRb2642IRGsHK1lg8L9d0NgjD/vipb7GkPllYV/LfMG+
Li2QprnrIA/RcbBz5Tr8Ec0dAR3IAjs7VrUTUVMXthD12NrfeOmQslGPXTjK
Caz54KM81OsSOxbqlRfAo16VyPVp+SrjxL2yUY/XDseCeiwCiHQqEvUcAJWG
ep2aVRJaMnY1Swv1un5VvREraG1bReLDNoOtKrSaakY4trGXNfWnV9caIe1W
4a3E39HIqD/rgM4UygS8Vxm5/WmaPWI1+g6YRXhvMsLcBfUIdUIcrtujetRD
3Ist80Kv2RePevmxjHhVS8NGPeS5pKXn6TmqymQxqMeaIKhXgRglo14y+QX1
sIu66wnqJVQ9AfWwQiEbWFDPwU0W6s81ZH1JaMkUzogS1ON17z7NEdTrGq7W
HlZQD2cxDDXA9q25SHMgn5haFsIvOOgJskJqhOs8+poUXR6R5tBd0BNWEK5L
xuzLCIf1XiLNz1bWeumy1+FnQLgupaYRjuA9uHWkTJpGOHedS0U4tBZoL4UQ
joxBaOppCOddsiBcSiJKwBA3xROEqxghHYKUhnCuSFEWwq38CgvhulRZfUrY
HZpHwiqjEQ5bvMjw2wwZbtVTs565Smsulx7aL7j1gnERzUVn0YoM15UiLJuj
aC7zl31DO1Vgez/DHyUIRx2yN9+YSWFChHBrJf0ZEI7zukhgtZK5bEvJQzhM
krpGQ9QGkw3+47tt0pU+Ezeua4QjnUIqaxoIl1Buienh+AaNcNwFsnt1roGk
IFy1O86cZ0RmF4sW+ZzT0/OCskdNeT2Y+dbWxMDS+pT4OJ3lILnjiGA4rb4T
Yft2Q4aXhXDL/qiT8QThVvnMl1/eHLw4dEFES9E9MvY1soXOMfpjXfAzIBxl
vaRPQyUfYXNGMBwEpUNzTRHghnFGwK03mVnDwChGlkXzp1by25IDrjHthK1g
Gi5chLKmYFoqIa3OtW7U6ewS7yeY5qyeciRgchqcbkhab0Sp7a0yCy4+6cmI
mEaFyQ6NvQi+dxhRaVYpyIIgvunIsVS/LinlTavaAIIOs9Epb01GmI0lpgXE
3OgpB2JrYSwM4qa///3veSBGCxa4PSMbTFU9S0AMsY10Uq5Vp0EsekQcxNDG
Jf1ZRw1UJoCYLe4FQHwcXTGs4xMDMCdNV+UhWIefavj+xhDJJSIjhO/gsZOD
N5buTIxRFvjq3mYCX+ltpmUw7Ie/rgs16Dtzwciwo5f+kKJHX9K+J/l8tB6t
e5XVpGgZTz21gKriFCODX5k4iewj5+iMzUljaKf4z4YvLIJOUAl8YaSWwJU4
fKFqC3xVIYBE+MKqvXb5G/K2pGZq+DYvXyXwhUIPGQz4Sn6+BV/pOpAGXy19
y4Kvldel4VtnxHNZ20CBrwQ9Arh3GdK3osiHrNbSVwdtVRmO+ZoU854up2Zt
A0X66nJq5xjbQIKvtcDleeVbG7RjJ0/bOwWgWrMVBErZawEo55SEOkQNGT3g
mOREDw9SbB2P4ygtCFY2ouDfWgYoirsIQAV8FkDPNyJ1Y17qCA5fGDYmaF7z
TQSHus1rXUrwlKq1mTlDJediw3b5bgMyd1tiNPosEbjpmpkCN53zVJMSUwsP
IqwOWOx3M2pm7huLhYK0PJfgVkXwe2fRPEhL9IGi2ivnAXYV/jlTPOfFwk4K
ZepyRlUx2D3nlnonHDXsRF/VFYPESR7CriFiCsYfVPBN65pJh0WtPicjyejm
oOk3ZoI9tHYV7MGWYGCP2ywTxqQgexr2uD5t6XLH6luaBkrLRqYjwgWUulnp
PewV0VFLAU0u4zJNIFpJrTq5SBAKSzCy8AoJRF1f0hKIIUJryME3ccIoilYa
PmZcMH7sCEIs+pOcA6Raa1DK+h5uyaojZYLwx3itKgKqXHErDaq8PCuo1uVB
VTwgsJZhuYffvDIGUWzNBKIw6BaAKNfBMiF6AX9ei8eCs58GS91OV2AJM8Dj
nZdFYMntcyOw1OXhBJYoGoKaPCXB8rp2I8l4pWGpi1VpNVOKMdYaoRcCS1T8
RrECDct8wVlPaia3yKQ/BNQBujAJAKIoRLx924dnloFQDloqT4xypQyNTbFL
CTa1vznEZm0eNpGjgGxPpMCpFG4LlpCugCVWdrd5t2DJHaNTYaklZ8HZT+v/
qFMDBJbwMDzd9b1Ea9Tpxk4otElVamkZJDxTjUbkxb/uQUu3Xsp1uL8gElmY
0qC1TgVFzFq4I2JeRUgnBwJl9jcE5YUqpBMlsIHATR+sOeOnQJ4uURNHHkL8
F696VyNP9uq62Kb4fCtZMdQ2f0EeEKots4gOEh1UYIdrcWQRyGDBjqsv+cuo
2ORMB35691WoL2mzWxBxuq+wIO7JHnOo+YhGHLcbiyBOV6gVxKnI+qIQd/YB
D9HepNBWG0s1wtJeffUbj7h+/VYEo15dW3Bp1jLwYlYeEYpA4QnbPiTl8etd
n2ZO88rjzwQ77uSrYSdFjwV2KgieYZfVsMvUKw9RHGaollIAZtxD08NMNxIQ
mHF/7YJTKjlPcCz1GzQjMbFDYJbf8yar6yR7mOl88/vEzP7rXgh/SZS0EYx1
OPhJCm9JcovWMsYIc0O3RNZZhH4htCVpPyxSTbedFoyJ4//5gYNIDXxv3fLM
qT87xtyWeOWGTRpj8Wqm2u1ZCGPiRhWMSaeoFIwhnAXbFVmIpTI/PnkhP60K
Ly8KY4VyJ8SMiDDcgb3/EMEYQqqkDPBpRtjh/dEQw+IwZiVD6FaoNSnhhHDF
o/Up0CWbYKyakFtajuk87EsIY9Vkc8HWAjodahtwEdJTyASe9doI/qlLRhiB
L233i7xRzGMcYZh69lWnIQyFONBtOOeZCR3r2DpAH2uIIQyvBGHYjuA2KFTV
d9AkQRh8RfH+yIIwCZvFJy+KBn6nz6bAC2U8B4yYlxjVnWal1pF9IsJ0rZn7
o1F8iQ9UG+5hkuvKWFsF5DGjD4lWzHSav4gw3W/LEmGXK5MeLNLos90+GVNh
vEdjpK9Y+DuWZTpz19Ag2JUZ5VuJ0rlEFS8NirqKhoYibMQcXSFQxK4gWrmv
LpKxDEiieBlHXXvdTcNRdiACR+nLDTg63Akc8QTxVr1Vag2XMESBIwQeWIGf
fkR5o2dZVyMotnIT4P8WFMtCrONTtasQNhqHUI9iSTC7rKl/pnNOSPoHKPN3
JKJAwH/zkePJJZPkTRTwP/P4h9T5SoNfF1WyvIn7K9mK3cdH2z7LXMG7EuiI
iN1mmfrrEP/Wqp3WTDZrvCcNNVuNAIATchvYz3c4Ia+GjNpoNgCQY0WHoRta
IRyOuymQy2ZHQA4vOdDMcXkWyLnCk7f6wEGEc0ipvyQXhOd/Wlqf0bQhSvQh
1KSgHFEdEoUtKNdtpwTlUA0gw2HmPt2I6hCUI4VSHqBda891g1GGOc1to+NT
6xnmsKEjlknDvGe/ScGK330VgTmi9+B1XPfhx5krDRl/cmGMp3aLBtPpd4Px
ekxKxPiAAesJPcCRVETRnQXbMlDxGvYfgNqBdc8UTIupM4Lpygim3b+6XDqH
Knk4I1wlDudSR6MgnK3waiTYSJCSwFmHVwucEe8BOKNK5GlKaIcWy36ZhxjO
+ubl/pCCcLYSbHRimRWMWmeE6gmcsdOfNH8FAfkAlUiJVdRpvwznnNTGjmvL
x++dWBjRIVmjP11aHwe8mOF9OleJK0negjK+e/+kLich0NWFe05VGBU9WTCK
rZEoFwNHz4ljFIB0+ohgVNuESK+gZ2tX4q+q8r+qphAOoRLDo6hxqPuKCQ4R
5o9dlsahDnimWvV0yyNaNgWiIVx8SG+yUxZSj/XuS7CmK9gL1nSJ7QONdrRX
qXIMiDlaMB/9huHxVl7HogUmq0bLOof/Wsyq+4kAJ6F1bNWOA46bsQjgtHXo
Ur6Tfsq2Zf7igkIR0Zwon6vB2E/VmtImJfEsChhhyRQwnspghCUTtnLknDzc
EqFY7NTVp0R3WqqsLtdWZwTGeV+5qqcjQhFlD6HKQih2VPVBN25YRbLwVy3U
Y3eNypzl3wtpWSpkn312BSWrhmGUIZBUHw4nNHKQlbIgAlkomgZksTjjNGJH
HcpFLdXGpstSIFvqL7YgS7+4OiWc3nLv3N95tPc6CmQhT2FCQLucU404zTTI
ttrUCWSvP2JUcOVp/SKQfeCKN6mEbVJ4R32K6UGnTYlshcUeEAVYr9bJgm4N
RzBcCmQ51SSy6az0FFWbzbNGZXaVIV111YRCUJUAuV8yVGFYBVxhEHD4rFXC
GZiEy1Bwqk1WFk6tLvVpP7MgPsdMn0sl/jU+YT2dPvOHCD6hT4r7cS86VnoT
FzDpMHqK0YimiwFRq/t8WVPVkBKnCfcl1Ez3jN6wr6st16XEdWAHhWUfPdUO
MsKMr2YVEzsmQBPx8l/v+vS4ZHRaxlapVWPteyy0cZWiPLTBVodXx/M5Vhrz
9ADYBFCvQ6CmzVEW1Kw4nwh0dAh6FUMHBbshyuLWUQlBF+hgNWbYwH/YXiWB
YkFG/NkjBnSsZ6rXUuqcA7pQMmdSHVSRUt07Lye/oYaCbmwpC6tu/CVSCkFp
sLXD/t6RfTzQADERY14ZSnUsNn2wJvOL1sNDz54LKDBG40G3aiQ8VAAOJ/Ls
YrmMfwMoiBY6jdprLi8HBUPHT6P+OxoF2kaevFGtpAUP3mNMu9ugtjfM5GWh
QIciCgrQHgTxChoFusmirFVdu87w8QsiEHR7UxEIb7//KXmOMf/X0rGWBMTU
1+cEI0cMpuiZHZ99DAyQWcUJiHatBwid0i7TqzsIagGBNQWvTuBzMJZQg6v3
v8mDBop/CjS07aNYaNAzVxlR0gINXRhBoKErm4nuowMBTzE8wGXh4orDXqAy
r0k6jCwUui2gSAdd8KBJxbVI882DjbiW69g7B6+cxLVgwYAn+P+x995RV1Xn
/u8eb6fbW6ICthijSTTHJKapUROTGGPv2LGhWFEUEVGkSS8iiCIIWFACgoVA
JFFJUAyWkEjUmJxj/P3yu/c3zh1njPPH7447xrrzM9fzzP2s9c69duF9Lefg
GO+Svfbaq83vd86nP08+/mg348F2vTvS0J0CxXzSqUJrDZQNyWU8pH1YOtsZ
ugwPtr2Q4sEWANs5EhFwRCTUaUgjeIhF3sUEB8o5klRn8RDz1tqoky9EPAqn
i+DAasFcgc3ACQ8DGsLBEZs2baoJBxK44Ufxqsjy0JIbc0phNEdU/YbG3EZd
6pjbhHkdc5tsuZMxy0tF2zAHnH/MPN9Sqp4x90VjtTXoWQfM8fFtttBVTEKw
iZW6NtiSnbFoS50DbFLPGSIhMAeg2xBZicBIdsQ+DQ381zZv3txp4G2msA68
bd13lZn80UNIn9GBZ/1n4HEHNUUU5p901cDTNp28cTvwtiKaDrztQqEDT70Q
KqHVPfA9I3U/lOw+h9yJgvkQMw1q1IHHl47Cmp/8tU7l3hHf+Zky8AQ1qmhI
bxZqf3+xoYEnm5hWllUHXoog+aG8OhKw2ixbVAIt+dEU0UBrHXjpiZoO/G/f
/sC3566UXt0jEpOjA48UAMPtLG8bxl3byMDbchg68Da2UGd5elvNmvWXilZh
neVtbwQdeOLAXvrda37IzzKMp68IAy8JKk6HKB54/02vVL6uPL6239k1Mm6m
31mmr4ZGajVVUvvKOT2+OWxvO5Y2VFTHctKc1V5is2Npi/vrWNqY+SMiTlVP
4lw/2sy4xYo82BKcHQXWfFvGRMcNqX7srAWZcSO2SuKmSudIugYWJyQ4Zmp6
wtA2nR4Xb7/5u9IuPiTZWPdjdO2dzoNSbjCtL191/OzE3CTKu5Z40MBiq6z9
tBFu/ur1Lckd986vmLfYURAKQsY4XLTjaTW1WrnZ267GPx8wLjnlO2Mzq7Et
5BHLUdRJ2abYWn1dJTAdY0qQoZUxuueJRE7fErQ3pHJWavIVN732m13qm5cz
A20TEnWgbU+1IX7bZktc+D8G2dSztlpXQ2Mci4mk7C49Bu0Y29xU5aztmxbT
uhoaY1sFQMfYlrKwAQ1aBaBnxDynY0yJxdFT5/rR3UfGeMai5X5MGd1BImUz
HyNho31veHXtTt04ttf6bWumeSvjOm3OvDDxWvWp1oHtnU7LlQfW5tXpwPKZ
ydcOLOoUZK2kPl1Xz8DqBB3rohJbWGN2V5u41C+SH7+3MbZpJbWLZGGlYCyE
ZoLGm4Uo3a+B0VURCpGKmh3WYirBe5nRxUvKfqZz/k8mZVNEUWpodGPxS7HR
ta1CdXRt3aUjIopSQ6Mb6/kRW35tKzalre2pG1t+9zFGNKZflt+LjbxsFSXk
5T71ja40kO+catZuBCPtmnGdBMnpvCwl3f2CK1pQ6aSuGlHr+uuImL90RG1m
1xERDaihEbXhEUWLrfU664jeffc6Hy1s+Yr5A1XXjiiCsbrwLjEJEGhAjCga
EIJwry4eUamE5cdyqKy0eEsQl8T4oapNQ4P52Mpf+fo61QbTlkXbMRIKHtNq
htYzmKVmUvl8MCyj2h7JbY4tskWmTZQeogTt2NpOJPtGTJuXGtMmSg5jS4Cs
zMcd2zC8M2e+G0wPsUAWHV6mZ6RrLRoii2+tw6utUenVJFFOIU/JekB1ZG0C
po6sLWQa03HqHNkDt27d6tOU7MhaI6WOrK3SG0tbihmsdGRtPOi+EfX1cmEt
3k2YjDMDNQj1p20bhtVmJ6kMRRlyjay/QVZZBGAUHavsNDKm8598lsKF0dwz
HVM8EYyhHVNbnyWm59Q5pt5o883dL8Lw6K7bOcFW11Zifs89dXpmTGGvpnzr
mPJ5xkPrM2PKZ9hpxxTJibUVw/MVwlZUW8Rk9uOIkJTH5vqGtW86MVYeVhsY
cVNEr2lkOCWQJky+1tMcSyXcMeJIOiKi0tQ6nHovUJvwLUtRm70a61pbZFq0
JYX7RUyL/U04F8OG1/kqsVTgRyDG1Xidvb+xlLNP+CfpNGo6GnbUtGC7jhoB
1eon+GnEWtQ3N0KPPLUpjBCFaSg/Z0eIz1r/f0cj62hO8eFGN9FEvKERQ5GM
hjeFYyeyo0FTLrX36Wic8b3JIQpUyQXZ8kshdiOa1RFct4Mhl/au728s/Or9
vUb0TTw6AEb+CgxEO6b72v7P//k/YV9bZN+NkX0nRc4Xw2vfGq/REdkXu78j
IvuG1ngvfrSamAljV2uv8a56RvbtENnXP7JvSLovJAvzqSAR8sMaH+yvNR4X
O1/BBLv98tsvv/3y/w0u77/5IPzriOy+psi+ar6H/2YvcPvlt1/+v93lU4Gp
Vwig1kDpbIJ1Egmwrn6JAQ2cO1aeNvaYA7vxvnNpAGkcuU0rKkqJqPW11H7e
2G1XfiVdf781vI6KSU2tnGlr+Nd+dZ6jnJv3l/Cv/bvgPnpWf6RY+mDsjcUK
73wpsu/0Go87tE7EVE5zbM2cI/FPXCqdWdf9xs9RNARd/d625V0WFEVqCM1d
+AgHb8NvY9ctgkhFZlUY3kO24d4qP2v9UPo8jkMXrh2x08eWx1hXjdi+7b/9
fP62XrpXliHiFIx1TPysv5Ou/u1n/f62/bf1T7/b56ntv63ntwXLYXqKllI5
JddDTc5SVUnbjrDtv62Eg/61Qyvdt30R/LzeX3ctgvvVDqHts9P231b6bcH6
tzv/+zvffIN//Wv4l9/XKz1IAKmbrxftXSDYpPzKVFWR2e6WA60X4Nh3c+6H
yXOlqVpMk+0e+oX75WB7xhvzP3QkGSzG1swP81/ID6/0/9sp1Nwq/5eKlHzb
yYpb3lE6qsxIjmv2u3fz9/ielveQn5WvEA4PL6HSsf5ZKWKT3k4q4PbK/NTe
3XOZ02BrLrmB579mU5w0KW35HD51nxqfWsDhfj64bLHPGP7e/hw+fT93B1Pl
ytVPl3kj7qAUA60BA/ZS56ZEuEJelJ6Gr9I5Y7/0bgpcGOmLTZcn/29//nz9
Wz7zb3nJRn/Lllu0v9MBKf+7XV9H4bHpfYR7k1lDK5Nu+Vw9a4+anrXJTq2Z
ekItZfCm+9/6XD3+rh75yku1tNbye47XIU9yx52Xon6wWamOKpWMEXf3wleR
PjanKr+KSpey/1ajcXNNI2tfww71IV5fc/kZ3vncPGrfmh5VZ/mjOC4VNFIQ
t2YOe2/qYP/TNz8Hj5/G6e2cIWYXAz09tS3e2Fbp8ZvCYJQrldXx9Omy2FOY
X/Uh6kF5+Q7ULhjK9L7z+XjOXWuGOPALy/bUsoDjH9A+jLv8m5+bhxcSZiS2
bgC6nD59yP3LIpJ/yqnhgfV0WVzJJXWKCdNNuj9dUssLnBWtjpr6XLm2X66M
9HvvPafnTlW3HTPvvry26U9zt2KKrNsJ/53P22PvXPtjd5qRp5pbzEo/Otvz
6Q+fn1dSlnTsz+3jd/555rI5XphTd5J0jMCWjkSv8Ian+lvlZ3LJUikcq2th
qkrsaC5dvqWo4qSjl5VBzbmay8t5ov6dHcN8lVdl7DkyU0FGMExR8fbn6pn7
1vDM7+XQ5D+nk3Bb+bZ1dk0//+Fz9Rb6ZZcix5/n3is4l+WT+5Equpk3V8oo
uoEIBijNdp/MsL3DvvIU0K+kSlb5sXeyv5Xb+mMXX+P/6uLz9cqcLx3mdhEU
sutrmIdkGknNBO0ZEaO8eqew7BOuWApg0buwE/ROkbvd0oXn/7+78Fw9A0Qz
Vnh9aXbiTifjwealXWmOKv+Xyq1Tp77XR7/utOj5f/+/2/Tr/2+bfr2XDpFZ
+zLAk1fWJK+nfBG///z0+f07KW8Kbcfb9/533btnhoqpLHaA4MrKa4NV0c8e
mrpaOyLLUCbOOvbTff2+1k4/La8obZmVyvx2b7+jRynDrlJWfdPLxC69t/Av
9nt3+SpX/5dte2UDGn9l+3x6r2yfLn9l+38ir+xzizKJR99D7j8WeXWQ/9Qe
+oLEjkmfX00NOQtb7tjIvn3kuToHgxVfdm+5bFmuEd9ibZfd22DD/Ly5hisf
sY0vrP+2vbC9P50Xtk/3vLADu/+Fff4Q1iPLzFhIugJNhdnYMZWYGTs2sq/o
vRVdNv1dH/fd1HovWdJr2t8213DNI7bxVVWCWI33XcTJ7npV+3bDqzqw+1/V
5wlVOR6WvXD5N9aR0aQix1WiYuyUkX2xl9Zc25X1vVl7Qo1XLZUvW/5tU22X
PWLb31kloNV49zFOfgLvbN/ueWcHfCLv7POHsxqWylQN6Jm3n1aaQbpk1YwI
K/VcvXcQBWq8av5nNV6taC2o87V1yQr6Sb+2/l3/2vb7RF/b5wptOa7GJN90
muuRcYnrGT4BxbOpjst/0X/qZ4QK4zep7RbkHB3xcyQhMqCp4I0VKVf1vM1u
0Eo/6be5d/e+zf0/ubf5XwSbQviYBTgrA/q9nTyOYabp5J+JGcMq2xQr/Lzq
xfcOvy57TysYAStb5yr8vOrFYwbNGl9aheyk+u/7U3hp+3T5SzvgE3lpn2Ok
iR3Y7y9vusz/U1MaSqwg0fYUp+2/rYSDFFvbsyo/r/fXXVmVR9SIn8/HM27/
bXfPIxUK0h0VYn7qK+y2HWrbf1sJB/nChLVgbHvxgE//Gp/FZW7/BrC0fb7a
/ttKv61aRaeoMNO2FW36tGrm9W/wuT4rNQz3+y86LjnYVS7H2PWlGu+K7ItV
Ru3f4L3FZuCza7y3osqo+zV4P7F3FXveWt9Lbuhint7mat/5JyzX3R3Y4Lli
NXz325b78md4L/yrZ9ej9MNuRlqsevOAbr7/blhDil5TY3N57a+pu+4/V7+1
swZQvR5U7LQDajxfTCIoqvXdVff32ShGv/3y2y//Gbq8NInq8x//8R+hAZRM
DPTNDMeJaE9Pqv4ffphe5KUab2lA5Hw7RK67tMbztZTvZYd///d/t/fHuTin
3ccxHFvx2Toi97Kiymv03/jZqFUa4tHo7pxvzkkG/+CZUpvfNieDjno0OfNH
k5K7rn6r1O63bt/P5yZDr34qmTn5H6W9ktlT/+eicL5ynzh/619I/p//ucX9
Yssf1iUz5y9KNr//UWlHv232nxcu35w8/+o/S01sHwu/LXfAkRe11z/+8Y/k
J1+7M7n6+GfdrbFtTs79zpzkygufSCbeRW9Qts3J1RcvSyZMfiVZ/ARd7tg2
J48s/Fsy/L5Zya/fousb2+Zk7pPrkseXr0y2/PVfS73Zlh+hoNWOf1st8rZo
J3jswTf499Qub+unh41KrjtvlX9PbfK2hl++Iblk0AO8p9Le4W3VAJJW+wY3
vLQ8efSpFf7d7SBv8JW33k1uHTXHv8FWtrWeuaUMq+SEw27NvNVB33skufS8
RzNv9YYrnk9Gj3nBv892eas3j5qSrN38sX+fHfJWF67cIK2A/7XUN7zV2qmc
eb+0sj79G1MyaLzke0uT044fl4y8anNA46WnLkxG3PqSf7/7sn20kff7/IqF
yTMvvpR5v4ueXpXMWrDOv992trWeuaVM5eTYQ67PvN9Ljl6SDDpzTub9Dhuy
Phlx1/LM+73mujnJqg0fZN7v4y9u9v3teb87sI3dULX32yzv98S+9ybHfGlo
cvn3lwX8/uLw8ckVZz6Zwa9718kpx92XTJ/0b6WBvN9HGnm/ix+Znqzb+KZ/
s/3k/b6x9e/J2Ckzk1+u+1upJ++3rjO7fbzbK3+43L/ZVnm/g49dlpxzytTM
+73zxteTm4YtyrxfPj+19q3M+33mpS3J9Dnz/PvdiW3shmp9v9/vPTQ5+etj
M/h179rPGbcP3hjwe9VZy5Kbr1/l8bs/2/n1vIW95P3+73+8ndw9fjLvNOB3
9frfJWOmPOHx24ftQ3W+3yN6nOfxavF7xs8nJONHfujfbKu839G3/jG59vq5
mfcLnpkP7Pt9fuPfknGTp/r3uwvb2KPW+n6/1uNMPx/Y93vmv0xPLj7lkcxq
xXwxefz7/v329Nt2/3nUHa8m1w95Jrn2ysfBNt94jHckt920xv1u4pg/+338
ooff+n1Hbty4keWo9GAjw/Tumy8lU+c+kplm7ELYj+3cOofpyJ4X+WnbDtPx
h96S3Dv8T5lhYtguv2JKZpiY1lkM7eI4ZsKk5M2tH/hh2pXtvAaGqUmG6dje
w5KfHDYys0we/+VbkmGX/CYzzQy94Hk/FLzoDr/tFYaI5fPaG+YkI0cvT6bM
2JCMu3+d38/wMPXfMnyRO899E9aUWpJR965Irrp8oR/isXe/2SojzgjfPeL3
/mcXnT8zueGW+f40jz3xUWMjuX7Nk8mSXz6XmdDsgrwT2zl1juS3e12RnHPU
7MxIIvYwgdkJ7YqrpiWPLv4oI+Yg9kx7ZEVmJEdPWZC8/PpmP5K7s409aq0j
SXfeC456JEM4xMXzT5qTIdxZJ05Jxt/7R3nxbFv8BDdi1DI/eo889kFL8vjT
/3S7b7tjSTJm1B/8qLiv2mT3kqc+9oN0+y1r+apJTjVp7FY/3Ndc4ZbQc6eF
Ez665G8O4+6nDzQykI8vnJWs2fBGZiDtyr8L29l1DuT3el2XnH7kpMxA/vyI
e5Pbrns5M5Dnnz47mffwXzIDOXXmpmTCnCcyA3n/3GXJC+tf9gO5J9vYo1Yb
yJKfOpPj+9wJAx3L0jGEnbDPshF2Xn7xQ2YMm2ETTPNjpCPlxjK59MK5/m/e
gnfb/e6O5PaRT/ifM0p8BYGH3jQ3GX3f6mTWg5t7cdisel7pnpFlLiZG7M5g
zaxzsI7pfbMfHDtYpx45MbnxqjWZwUIsnj57c2awHnzo3WTUpPmdlIups+ck
q9etL32BwYo9ao2DxYzgVrUwdVbSx5jbGKY2GaypEz70IwA3OvyoNPsp9Nwz
JzJopXSkWt2ssd7v4+/ecS/473bguxmNDI9d3vpFpJA92U6vc3h+2Gd4J93v
rG/PSIZcujwzPOiC90/dUFX3e2zVxmTUmHHJkytXO4UMRjUfuHXr1mAUmNr4
aH2r5+XJWUfODKOF/Id8Z6nlZD/PB7RnpRYL1gPz3hL2VBqtlmT+wr+E0XI8
2oXdsdutOlCx1cvKIXv5rRu8lz/+4dq1a/0JJtc5bijIiCF23M777txk8KCl
mXEbOnh1cu/YNVW1y1/+5t38uCWvvvFWsvChqf6pqo1b2eCRG61atUvllpMP
ETb8mPSQ0WJi1NHKj6CbGJ0c5fZNCreRs5PsGVmL+kaEii/IsDywcH1y+/DV
yfyH/lmaFE51RPQpjz74mswQXPj9R5OLz3m4IQWUzzoE+8gQMNP99c+v+ico
P2A1K0qFITjtiEnJZacv7qSAMixuSgtDYNeingVDgIjHPqbB3cMQ1MuWu8ZO
9KuMHRYrIhi2+KF6YPbf3Cc3OPfXSRleydd7nJ1cfsyTYbzcv5NzT5uRGa87
bvh9Mmz4kooKrU51MlZ+pJQyy59fk6xZtdg/WhPb2Cupc75rrVG/bZXhQxpn
dWKoehUMH+LFFVdP8Z/2ZDuxnhe6hwzfR++/5gUEO3xWaIixqoVtXVeTV/KN
noOgWBi+q45b4XVmO3x3D3srGXrj/Mzw3X7nMr8yVRs+FLMHZ45DEnI36R4w
dpMNDt/ZR872woQVLk4/YaIXvO3woafNeGCTH5ai4XPKlRf5+LQX2wmNDJ81
HveNCBUx9rUzfOMbGL5v9ryMRcqdQASNkycl40Z8kNGj+YwGVosercOns+X8
x5Ymm3//gn80P3yxV9Lg8FVTq3X4UI1ZmxiW3iJZoFrL8DFZNiGOIMo+vIUD
/EED2I5rZAQ3vvxsMn/p05kRjEkbloAdbOu6mrwV7MZOPAwj+KOvDveEswTE
CrJo6ccZUXHcxPXJzIWrMyM4YtycTiO47tXfJ08tmeMfrY1t7CbrHMEWGUHU
a9RnS8BzfjLdL3epIl2eP2UUS31EarQjiP515/j5yejJi5JbR89iMPfnsPsa
GT0WiydXr82M3nXD7mfMykJ9jn+9GL26riZvRBTnMHo/+/oov9rZ0WM1nL/g
g6pK88iJczuNHtPn7Glj/KO1sx3bdaNXTZFW/l01ZFpyz8jXk5tuXRBGT/Uw
Rg9urvjNB8ma1/+ZPLB4HXrZARw2ppHRe+bxeX62ZNz6yOj97p33kltGzspw
76HHNyTDblnuudeH7b0NjN7RvW9KTv7GfWH03L+9bGlHD9lz5py3MqP3wNwt
3laVmT2nLwqjt6+MHsbjdc8/7h+tg23sldQ4eizU53/7IfcpHb2Lv7vYi5mV
NGsdvcuvvN8bJjE69pDRcxK+TpP+D6sUx7EA3nzXtCaG0v102dp3veGRHzXJ
GskMO2naK/7TTrIPNc9NwuUJ+p5GRv6RuZOS3/7hT5mRX7/pneSOMfMzI8/n
aVPf9SPfl21dV5O3KUp6GPkzvjnFK3aNKOizF7/gR/6NLVvDyKNlMPpO03AC
v3vA2E02OPLVtPQ2M/KYJEeMWhY0cvjK6N84Ygr/b5Ld02Zt9IczuqMmLmj2
AGjzzAcTihPUEzdv7yDGGKfSe3mJCeCOsXOTa4bOcjhxU4O7uELMnRHCuNW5
w8MMRVT/MOA4WJ60cuXK3f75z3+OqmccdxfUvP26O8+k6ZnZ/vmXX0vumbQk
M9svWLYpufGGJzxqdmR7dwOoOaHPXTigA2q87fviZRnUYOZhbbbS1o133g9W
MrrpnKVrkkkzZuPAC6h5+70PkzW/3cAk6JYk94Cjtx01TUbXOfnY0RlrAaor
CLHWAmBw43UrGGcxm7Z6A7eb/f1kwPrs/l9S6GAH4jesCFMfXq3QGTvjCZW5
/R84ue2OJan81tejCjhgEwdlY6YtSR5cuj6sI4tXbfZXc7ORlwz8LAYwnYiA
YDtneTJr4Zrw55Ydd0NLn+OhXtj4cXghIxuBFDP248++mIEUutf4mcszkLIT
0U5s6wKwDBNu7WMPuT5AKhbPELM4dTZ3tHhIMekAt9+/+cf+EYuHR1XsPgst
T3ksEeeApamS2aPdYAlp3g2+YKmXBwKjzagj781Y8IKfVwAJs5Mf6XtXJA89
+UpJwQQyRDHzf6DGTRzpctbu1x/gB0Q5LehYsHxj8tyGj9xbSdcyhw2vmjsQ
lXZg34jwpDnjlsJg1TMLkl/+6reZ9ei1P3/oZcnpD6+Jziy7sr0znC9n4VLP
1DFfvs7r2TYOIBZnccs1v05G3r2iShxAOu7o3lgh3ULUP2Js7MO2/Mg1mrsO
73FOctF3FoVxx1ZCfJAdd2svaZGZxK1C6p/244m92E34rSIhMC8wPzzz67/4
r8fPXgZrPeEZS6YbxorPTgZJUdDi5wbRA/lr8iJNs/+o0kezeHvyK5ObmJIn
X9zSIWDgTFzYAcUtBm7fnY3MEzZGRAGCAHP98CnJE8+9G50ndmc7op6rKWjE
zlY1eASXHcaZSsYaBc0jy1/xoEF6cevQAAHN4mXLffBWAE3s1VRdgtqCaRAx
1YFHPa8dghp8QhKxgATl3XagBhkG8w3aIiOEWxWBIvXA9vEzBOuBo7aHjIyi
XzOguBhZPSCQcVgM0imgbzL83jn+93wPMJgu+DdrDOfB48fvc+tRLwENl+Qw
t7u0M/vuaAQ0KHPMIhY0mNBHTVjk4bJHZFbZi+3tjYBGrHsZg/ppPxsHVDIm
oljEkTURpaBpDb6oJc9vUmd9qb9RVZHh/8eHb5T68bSx99MAcn721dHJkHNX
tkcsRC2CHLRThgbPhyIH7dRJGIKcNj/abgrwSOFP1p4mmVwsOK6//f5WGXSw
hZySqkDYL9pUS/JnYQoDdw4c/eQnXJxdfNqF7fB6Rm43wYl7i53kWgIqsTlZ
nNjJ5Qts67qa4kTMiFVDcmKWYGuIUpywQoET/i+xqyWdYYgLWPHUfP+cO7CN
3fG24+S8n83ysRoWJ+AGuxP/x0alOHHqjywdzV4xQaRk+FJwdHhhYtHKTQE7
UbC0Jw8/vcGfnt1OF/KTDOuZW4HSGcOdnp8qOnZje2sj6LA2ZmslwZ61+uWP
o7PIPmzrupqiQ0yUFcN8FB2gBbnUosMauhQd6pbj/xJjVxoo6PDxou7peM4d
2cbuuEZ0fLXH6cll33/SoiNm52qRIC5iEBgy1g4iQdCCGEYQ4rQctYCg8DB5
pGOezh5Oqgy2ZwMIK7G43f7fiCZudYkCYg+2tzQCCBtv3adgumCZmXT/Wx4Q
/dnWdTUFRLVwoaIIPms7SwHRlqzZ9JEHBP9HT8aO/do7f9IZw+kyXpDFh7Qz
Dxy76Rox8b0Dr/R4iGDiwpPne0tZGRO9/Yqimgfi6PlnT/baiWAiyBp89+zL
f+sQPIAP/doNfJvoMYiiTAhgAQGXlcWtMDEo7Mn25kagYEPDFQr3z5yLSOpB
sLtAgc9XXzXfQ2E/tjc1AgUxoVYPRrr8fgBQxZjWmjy0bL2aSrxB3I19mBsw
shEJwnN6HMTeTwM4OPHQEckNg15sjdjSWiW0k7lCTVrgATkRM6jawNnPPkwQ
PYpBgC6C5QtDCguQLDgKAjCiIPgC2xsbAQF0wXjK8Pc2PmR0Ezsf4JQcP26T
B8EBbG9oBASxkKczvzUtue6ylRU9ITHbWC9jS3/pd6/7YR9gbGOIlx+9/5pT
s91Txt5LA4P/o68MT268cG1rxCTWIlsUFbGDp4onTuNWP+Hr+IOFyXNXlHoW
jz1CBGeC6cbQoWPPr3Ts92Z7fSNjb8M/dOzRU0eOXVBxAthfogjmzf04ufee
V5IH53zEnqGNoEGspFWTn2wwacysZdGAWgoOBka8mv65Y28qk3bbUVhMxX2X
tmNsLedCp3/+jNIvLvlJ3zHJ9w+6OoBHDCItERuY+l+wjWCcKpsnWv2KwfCD
DqG/IKctjxwvbzottkW+Vi10yLCxySmn3+DVmsWrNscQtC/b6yLvJd8MqfCF
ZJs9Viwos6uA7+9bf5+Mn/5AZvXBGzv5wdUZ8HWaeBz48OddcvG0ZOSdawBi
7NYHdtFYKlbF/Fo14sx6AWOmOMUqou7EaTM8SveLxFB4M0DswWrIpE/TtCo0
nIlPdibpz/+RQOWWt5aKtrtmb4XB6kKmQavY+EUD9ivfg0vX9xTx1ijHAaoY
Z5atfVeMLq3+85U3jE7OvfRGb1jhOwUrK6EY/N0077ZDIo/Sv/43EstPz4B0
06urk3mLn8qAlM84lYHnbpEZ8iC/bfUgPe2E8cngwXOSu0etB6il2H0X1RSo
dyQ1h0hiIzM2wFi8XQyt1gbYO5I5ozPrG1u2Jg89MNEL2z6gMPZwNRRx0cIB
nXqy+PoaWmUnD9CfHX1nqTViI1R0otGThZEa/tM5FZUb1RsY9agATabN2++Z
4OUzhSZa/qXXjEjOGjTET6lOfi99m++uCLc5sM4HbMk+oOLNhqTERPLdIpPi
l/y2zePtyrOeTC49bZHFXPkei6rD1DAIzQX25VgwIOHQk6dvrGgqVGyNm7XE
r9J2JrSxnD6fpfwUuYIrsTotreH2y11EKk9+WWxhBjj52NGlloI4M8nqyTgS
cEXgHLeepwXLN9oZkEkRj4Zqb1mYtXgT4dDhE5Mzzr8ak/R32H1VwURX66NX
neWq6QCxWe7LftvDG42uH/RCcscVrwXk3Tdmg//WXcJn/A8umPW2efwUlrGc
zliQow3WiFkmFZa4O55e9bwH5P4RB6mHZWx4apjypPxBuep+kcDk7hy1CfUD
gEo4TwAoWWqYtfNLM2uoA2Uwa2sAlgJUlFALUE1FBKD4NBSgauPGeHWeW57d
96XvhfmvAjprfe6KA7tLJDWqT0RLic2JX5Y5ES0FhN5w4Zpk1DVve5Re9Iv5
TcAUW8Npi8I1LysA6TaPYXOBmwUNiETjaiBlLiVdzoIU98q8Rx/LgNR6c78Y
5s76pchy2afObR+KZtMYWJsLogaJQ2O2TCXIMlglPt7/iU+mp5jZkQdZiBWs
gBewIkO6xVld+Xx1zsXX+1CQH7Dv8gK81vsKKs6qitv3/vhyMvmBhyoqOLsK
bpe9+JfkyivmesR+xW+bLW5LTSC3KRk++HfN/KsIp102jM0F7h4budpaEHhi
7beKVzR21XoOELwufGKZD6Tmre3NNjZKBYWxVEbO9TyoOD7upkmMpKRJDKKk
2Y8c/nIGohSFkcU9A1FVzdVR7HQUb+hv8tqLFzG98GixCkbvGj/FC5tOGA1x
J+D3dLfyj5+9rNRLcI4wikuJuAcNcJo8d4UXYp20cBiHXVoRDzW9pljJrwyM
Yw4DqwIpjIE1IicAPjQC43bAG7vZWDGxesdU8RrLM7exukV4xd6IPwGk9ono
PftH3Nf78pJiD1XVvtjqDeI4FgChZL86rleyLKex8XiZWNRbBYQaUxcDoUMR
IVNgjgAIi8Pb7pmdjLhvkhuzRz0OCW9pFrXIzZ8ei2dfdJ3/PRhG90YgEAe2
HNvbS6w+5GryIo/P2Y8+mSxftyHZ8Ke/J2tf35I8+cJvkjmPLfN4d+f9Kj+7
OPJKKloKFYS4gZ/99asV9aJdBIS/XPc3L4Giax8mIJwyZYuXWq8971n3eA6E
dd2BIuu7vYb42N9MyRATC6zIwp0x6p7VHlMdEct174jl+oCIw7s/29id1oAs
U6GFaDwyLQKyBp+x1Od52ukNX5a4owVZrR5ZQEMCpvh3qUNgxXI7fuY8Dw8L
q5tGTk3unTI7mfHIUg8h5MRmmcqAEPuQH4GMTo2cx8GwCfy4y4IkHBtjp81J
Hn7y2eS5VwlCff29j90pJs5+OBOYgRRAdBizoUPlIey8sBF0YcUgG9WiyyaC
7BKZ4g4RKw+6DlPcZZfNSs4+cWpy22WvujF2KKvrTmxtHZxiFmU2dlhRZvNa
OyIWcUUZSg26NPg6UFA2a97DPp+dZx/ANnanNaAMRpx6+MQoymxuj6KM6hb4
tGMoMzESsiDu4JMKdKj5YxFkchl9/4xkykPPdkIdEw0IAzpuYmoSxYY5C+QM
HjoqBA2zhrq5yd0uyGr285VDWvLrN94t9fT7eiTTHnrMBxfr5Vl7l65a5y/D
XOeQ524Vg3yrRyLI1TBVd53SQH41qB4Q7Cxw/F//9qZXeCwcbbK0wtHmJR0i
lvEZ0//ijY6iku8AEi9oBIkxd+0F352fXH7+Y1WReMPNC3zJKYtELIrYty0S
rbt+IA8fe101IPE7va72CdYg8dxvzSWiJ4pEVY+J32AlLRf8yCKRv/Lc1ewn
HZZLhLomWfoYaiAD8mYtfDGNKnNaTB6NTGJuvtNMGdAoq25J9xFCuOq3mzzu
+vptm/+5mCr9H5ff+O6/KWBXrt+YLFz+An/uNGzbPTi5I/4Wr/yVX/g5tQNx
CsbzGwEjaROzFyyuGIaoYLRpVofIyjvijhe8RdJhsLQz2/MaQWLMZ2yDoBWJ
Nne8o8CWvfKVv/h8CjB4kCCRkokvr33aP/N+bGPvqgYkSuacRyL/v/Dk+YVI
RNHAtRtDIl5jRaIGH6IQMBExoS1auUnBiGHmxd+/7ae+mbIgY9+xYEQGAzZu
3lLg4WRmrbZg5OyIbmUwtiYLnl7t8/VUFHSndFhIkQhwuQTc2I8jzm0EZbZs
h6KMkHrNpFCUYfNBnrMoY+XFrgPKdmV7TiMoo3gQGbUWZTZqOhYAqyhD3pNw
lKjmcKCJTEDWQHM4gCePvavqKDv6pZdeqoiymC/EVmHJo4z/SzJXQBlCFVCR
cVeUMaH85s2/+Plr8ryV/ud5lPF/VtOQHJgGO/KVRFl7FBHS8vLbH5T6CcKY
r1TZYNF1i2+YCrmceKoDAt2M7P2AsaL5VcFGOACZXxZsgG/6w2s8zHaOmLsV
bITEnfPTGR5su7Ot6w4UbD/uMzo57is3ephpPo+Ntm4pAJu1VfeJKBM6pUl6
mH/mA9nG7rRCMk8rmXZeqANiksQTIGYLDzZHUu/bJYEHi4lCzMRCevGfZdEN
r9cQCYdpkihoAUYGY5x3+Jg5fnZTjPFbVAcVEhVkfKdSnlt+dxB8Pb3mlZDs
g7DmLi/46tEJX16YczImashDT77iMwP6883p4S3l0nUUWLGQ/QcXPu6utjED
rImzV/jYmbKluhkhLhlyzQLMfKW9AFbFq7VEfLyxUGwFkQ22VRBhW548f3kG
RFZX+FIkyPYgtuW7qpoZlAWR1xTOWBpARHykZP8EEBFORcCbBRF+NkAAmPhD
C9CofCQdgMAaRKRsCqIdvdzFfkZ26vxVAUS33DXd77MgQoqSKG6/xjHnsb41
eSG+ORxn10O5nr8HZjVUifS7Xn49tRHgKtw51SKZu3S5Bzjqh9NQDKpqnUB2
Kqj8gq156aot5SKNoiIQKIM95MvGKAfShl3629LeAWm13oGijyqlrI8WfbYi
RRH6iDhgyrLos/rBl4x+gKWNZz44oK/u9fK0ZcuWeQsbOJRKwAGHxOVpNVTF
oYnhDOnsYA8fb3nfgIBN/i8RuiHqn4US3PB/Pkt0lhfkFZuzF62NYpOJjWPA
t06aYBSs6gQnikRJZzjEP8RAjuecDnMVlQlmNofHJvkp6zXzMPMrP3eTZBoS
dloj0CSAiUnPQpP8FExzFpq2JopC8/qhS9RV5+7AbU9tBJokI156zOMVsxAU
mrbcjULTlj1UaFKfDc8voDzYFGwg8yZAM/auqkKz48wnnnhCi/1qlDnA1OLq
KsGR6UbWmUUkuoEsr6VmqddgESl51haR6YjvHmKwRJj3YGPimr7g+Sgg+T/H
OA3U2z4AMuIaYpta5VhaZz/6ZACkAl8BibinE2gekG7CdiOVfgfosSPzWyZk
7M37cNQpjaAxFlBjQxt0SbbZUQcLGkHnVWc/7dE4kO0vGkFjzOUbc0nYuPeY
S6Kvlr4dN8ErEnaitHEJh7CNvavqaPR13XM5DzE02jqBikY+Aw2KFTfLCq5o
JGvbZEv54W72w91HrXX+j38DM+Ax94nfhJiEHBTFbNcRJDeOQ8LTzyJgpkhs
8ahlmQaJbvpVnUMsM/6O5OrunGXwIgmwWnN2VmsPwpMbAWGl/N/h98zNTInW
E6wgJKLhgp/P8SA8gO3PGwFhzI9rky9iIIx5L3RKtPWXFYTEIWAt4pkPZRt7
VwUg9LEIaQJ5qwbbe/Txf6fCBnWWwrskx1j4ARNmlJDpbeAH9CQgNQe/tmDl
VbucwK/Ju2ZbC9GnkmMefcy5S1et21EMJNwByHOLelB3rdCp6m5PuSPQyukg
Aws6T+XmWx/lf1I9Y79jJH4mVmZO0WdTAL8k6Js184PkzB9PTu688o1UVmSq
TG0t/pN36tZ1V4pILGXE+lfzp2F/If3HInLY6GmaAVaovdjIgq+yjd1pI4i8
YdCLuDOCwEhVcEkSF0S2Bo2XtVJjsZoEmUyIzEggU4NS8bs6tTMgE2UB9VPw
UQ2ZQEiRqbKg6h4KcvGgKDJZ+VllWbVjyJRpVEx9qYjJpZgUJSI7TT75aSOw
ZL3ChWvlRGrpzV38SgaW1CLFkFwOrU5VmOuuXZTccsl6Ny2nsCT4EKheP+iF
1M1b6135US5y89qUFIWlTVCKOeAUlrZzjMKSqEJNSfk629idNgJLluvrhzwT
YDnsxue1YkqApYmB1gySAMshQ2cn1902wVukJX412HsVlngZvAVFDC4FsARL
7iv5aXuIYFm5/rUgAYoaX1JMovpwnJsBM8ZBfmc9d/2M7sItqbMD3cVj8sRG
MGljXWxBn2d+9UEGk2OnLUvGjt2YwaSVFr3u4tari34xPzlq70sVlx6Wtd5Y
BpaxPNqYNy4GS5t9ElNpFJar16331mlexeFsf9JFsJTkEYHlzj5pRMMK+KNM
AnOKGoeZf0S8TKNWh43zcdFAV6JWvcbhNI8gRopnw8+YzJzAUt0W4Mzi8qHH
V2RwieZz0VXDk/umPRhwKQpTwKVGyoBVxR6rtKr2MtU6hJRNRGgxPBeaEikD
Pknzx43gMlZhyHqEY1rMgYLLiRM2J+f9bLZH5AC/bU0GnTwv+ckBo5LjBg7z
QQs3XbQunTN/1Ag4Y65imxql4LTJJgrO2+54wgexVtJw1Jr92jt/CuD8BtvY
e2wEnBIPU2qKFOBO58V+mrMZ1FVbP8aXqJu+NLni+rvTaASpHqL2GQWoqs6A
gYnR2h4BHP5owHLP5FnJkJtvNwBN59zzLr3BTTtlgDohVu037ALDnA4erH2d
8l0pbvmuCLeK813kO2zvzLfcCuICzmOP2xMawW2sUqMNgVXcXnThFL+mW9ze
euuK5Jpzf2lw256MvPpNrwyd9uWpyZmHzEyOHXCD98YE/B7fCH7p5HPS4aMz
+LXJUopfm9Ci+LXdoBS/2I8wZVJMPobfI9nG3mdX4NeWsFb85ivaGJHUW5Vm
P7Y2ueaWsT5fSmu0im/YLWIAo7efAJEpAUceu7ib7xw3P7lrwtTk6htvYwJO
obuzdyUTgg10mY/VuaLWpLETxiXrX/1t8stVK5MFix5188Nsb76XsDD/GzDt
jnUPnmIaxT2L6RYfGKSRjk7H30PgzG6kXzUm4cvZi3dwXD1w3iESmKPiAbER
aE6V9PiBxr+jEG+KmDu9gYlqxwbig766MDn9y9MCzJ2428Fhtd58BuWxMAp6
zJEjY1FuO00qygmVpXacRTktmSjF4aTbKMqbzEvTcLMj2MbuvpMfsiLeJTxb
8N7mo2Q1ekxrbLjJKw0i6+nlS0Rg1aSvvXW8n7oV5iLGKsqZaYEWU6RFOdpT
HuXuuxZRuIY7xN7/wCP+cKQQNeBjRpoyfVpr8v7f/+qmr01vvpFseO13ybPP
r/JghwgIK0zAzQJuTpEHNyZR1g6xUu0lu9VIxRUdsH/II+8R3mDOa6gYjhUE
wiB64x3TfEGgnSPWAMUw8T2a26UYBue3XfaqR+9+ooqBYcReh193HNtmj+Of
HzPKH3E4290jd5oBrK0OUOQkt7HcMSe5Albr2M2a97AAtsMDFq8t6hjAnTpx
lP+MbLzu+ccv4KWVX2mByzODV1P9UGvFVMQrfian3CheARtTs8qt19x8n5+i
1WIvOrniFQjwFfMcmNU4irEzn0zOu+DO5PYxD3o1f/B1N1q8qpMJsMEMtS8A
tLnz5/XweO2R/Pn9rcmL69b4M3CI+rS4Eld98fdvB4zi32SfrBtfNOFByMYY
UD1A92xk4o2FB9navTtHbAVFoAWIgBQw7i+g/dYXL/YTrgXtSUePDKYuD9o9
Gpl5bb+gIiDbKp4xR31fo7xhlKUgcArkFi8vA166fDpQN0UijjyYY6+/VrHD
wlqyDgOsSdYS96j/k+JVCmukYcmc9rAGKXxWWIt3s1Wc6Ng+sTbdO3ZM8tiK
1MR679TFyZln35oMGz0zGYeVYMQ9aP8li2mAqtKraoFQY+GSx3p7TDtZ+qkn
gvyNYMEdOFzvYKy1EgZQ2lv2AX3OSCrkcdzu7o1gOJbCYPNoFMM2jXGgSe0W
DPs/iq784of3HFgA3e/texWxJP6II9Lj9nv//fdDB+5dGkEyVU2oSWuRHAs5
uX3oBq/ZVXL6K5LphEWe7cRpM8q+LIdiDLfpp7JpAh2YNzmIbWwEGoGxxGQG
GNtcGv5E81MYI11iFNOII9CCM121KfGJpjDu6ZUpcGZhjEBy1rnDA4ydsNsq
CMZeAIJ1elWYIpQ8tXyZIhhRGXVPJ+wIgtVKtrdMzkjMgB0ku/v2II69p6og
tp4smymOg//Z9R+FOE08W4SiWxAj7d5117oAYgwVZ/54soL41OPuS8499KGK
IP662NScEOxtFsfvdyv+yl3rwXG9oVOx+DsbIdBPcIwzgoBPa7EAx5o/3hLx
03ocxwahNhx3xHDsI1kkuj1WprJNQjKZ4dCyWPsVu+LGEj98D7/YA9z5Djt8
x7FX3HC3B+6YqQ94L5oiF03NIlfFZ3C3+sXnLXI13KACctUevK/sQ0f09o0F
L6Rzb63jnYGtDcxT2Nog9p1NuBS2iFDpzt00fgbqDClsxSGrsCXZ4pxD51aE
7dfkOEwZx/QfitnCfXLH1TUBK3BtY/B6Y/5sMMEOphGXg2YmShngaktWBa4N
Jr2QbWwYGgGuiSXVGFIFrq3WosAFyN48MHuZB6TJC+oE3HmP/9IDF4BfN3yC
B+7oiTM6ARctTIEraRh+Kv71b9crcFHYiJ8vAK4a0gbIPsQQKVeeAnfneoDb
L1Lct0/ESRYLVa4EXDLXLj1tURFwf9D/WsIC/RGHiq34zivf8EkczM/IzWcd
MhsL8lcX1vpAGQDb4jEK4BO/ekdy182bK8Zm9YgEIujMS1VIChHlAazBCa2R
mfcitrG731YAixtYAYw5TTLIOgF4+iPPhdA+nfMUwD6tyAH4kWWpbo/sefOo
6VEAj09FCA9cYIgapuGFG177nQL4Vy+tC1GxVQA8UPb5VDvubMNHKYB3agTA
tnFun0g0oAKYEOmbb1pWCGDxsBUBGEvZTRet80ccIkZjZmKcwxyP0wMh46SD
xiQXHLbAXcT9rtYHywA5Vm4mVurYdmSLxS8okKWEaQbILFsKbgWyrWd4MdvY
3TcCZFq+kGIOkMUJokCW9gpRIM9f9moIrKkE5EVO9uU7jr/jvrlRICMX8L2i
E8eul53d/rf+9E4K5J7eVswpmeQNkP3hcIHD176+pbcBtqTOOViVLWwqEHlg
79gIsG3rv5hIoZLw1HkvqNQbTBIavuDAHUwSWkcpxHnVgPCDzRSNqxm5A2Sf
f9jD7p7c8Ts0guxYwGIM2TFf87XXz/X5dRbZNjlFkS2ZUf5TWyR+zCM7Ni61
Ibslg+xzz5yo3hFba0ZDxzC3kVdXRndzQDcqv2bGmajukmp4yA3AceEzz5cR
PubBZOSEhz3CBaotoodZkDtYajYnRzl4e4gr0HGE4DyxIMck4hePWTPSsNsX
fqN+PszDMsEL0Fv84dw0f0++uMVjvVZEZLBug2gV67ZN8C4VTRepGw+R2mId
SUXFjPqw3uxDLJzq54/ox7ZfV2EcFyCGC4vxC8+a5+vYVIqnUIxTzRMZGSR/
NVKH6RK2sXe/TXhus5Ub/B8muBtHTNH2NXjb6oHxvKW/9N/zG3XudYJxu3fa
KYw1Zhdbx6Spk0t9BcVz58/z34NhxS8iBb/ju61/fc/b4jDTudm5h4lJy+K4
NRi5mbiRa4g0Op6n6dsImG3fSAUzdWhx2lkwWxPGAMmuJ/sPMA8adD/SiOKZ
DBvmYItnQn6cqJzB8wn7DacKiT/iS8ZXgjnj1IMnl3bkuFofKoPnWDRlNMj8
vEeT6bM3V8yRVjxjcsboBpK/FpmfL2Ubu9N68Uyhm4vOn6l4NhlgIfzHAVLx
rHW+Fq3cFPCsYq3Fs0+UqR3PfHTY9RhWHwe4dXOw4Jl3tcTTRMGozjc/+y95
rMkf1uzdJUzNWKY7KmK6Lcgr2DfUxuHY6mHdpxFY21ALhTVJDpg0rG8awRsZ
xcFYBO12Px+DV6RkyeH3MopT90oHCU7xP+PDq4Tng8Q8p/5r5mgnYe/Mob27
E9K2VF4sIVshjZ2ZyCInigRI2yn6MraxV1/kmy4DWVIkFMgmRcL/STRwHshM
ZZWB3DsAeeEzL/iA4QpA9hByx1qBYsr0aV6f031oiPMffdjjtI+A+qnly7x1
mVNcdu2dDvR/Sq3Q7vcO8M0C6tUvPq8Ju1KMJwW1BHK4uSzdx6kyKmPP8M5y
rfP6mth0qtBb1GKowxtt1UMaalORxyFVJIsOmxnhUajIZdI+40cTawWuqpNM
4BJ4UdqN43qGW845qBWhsW43p3xjnPfjWYTS3OC+8esyCOUziLQIJcICG4eb
eEtfjyTgeoSWX2lt3uiKCKVpjfTn7YzQNotQr9tJeHq7qHbe2yZuDabDCDDd
204DGxSkKRodLt2bwRuhUy25h04UCFMtZmKAz/c/P+MSfw3myvH3T7CoJJpC
Ai1SVDYByi8LFpE9sBBifzs+YLHWWVXxaYvUKz5t7sSOftvqZ1myuikhgHBw
803LAk6NtJvBqQRmFuH0xP1HhpjiAwxOORac7hFwWu/sui3lzKxP2npA2Lf8
+TUBu7YLy+CA3QYFhqMPGpKMuHKTJgMpik0p5s4o7uFRjP5PWHA+4VEyssWB
nEIaKWD+EysykMZZMm7G3E6QFmkgQJrf28hOB+MAaexvfK+QXvLsWm9QRstz
kG4RSHOrCum2AOlDzJSrVfA9pHs0Amlb0EchbatfKKT5jKxLjDGQvuuudSIH
98hMvXlYU9jg4lMWFAoOPz1wdDL4zMdN4Furp8jlpy/x6UX8BjvzFzi+ozvx
HStfhYBMUXLrKGFu1qbtX4t4pa9gGxuPWvH9s6PvtMluim9TNC2GbzwMaGCa
siNh8cHOS0JRi0gUqE5oXnOXLFd8uwGhgFnfZMKs+R7TSL3qP8HHDEewNoBT
gInEKxkfYFrhjVWOw/npGedf7J0fnkpO3jDw5uoqCHeGt2aC8mQnsK114DPw
pooTtgkLb1uDQ+FNZSFscEgVVENwUkOAt52x8/CWmlZ1wrvFT+O/+OE9Xtdz
0N6bQ9sbQfYPet/gpYxqyK7mu1ZkIydr05wYsq9kGxuKepEtSXOKbFOUqDOy
08BNEKvItgmaIBscOam3uSq425P7pj7gAa3mCCRjJl9M1U38yv1e6xdxeqIk
Xv7dq2HyJmST8yu6QTrXQiV0couiG7GFuyLRvc1M2cLHkkomnEos5qUfs21r
BOc2JURxbiuipjhv8SFypCqB8ylTtgyIpBU3yQx83fmr1Qfj/+8+B5hz7KkH
T64I8wFG/YMSZJycc+jcfTm01ufLhmhEkkpilTCpN0LW8sw5bxV6um0iXgzm
V7ON3Wm9MJckPIW5SVauBHPwpsWvtCSbwhzcuklYYe4D3BzsNErYwhxtTGEu
gZx+3nZaWYA5sFeYM9/+4Z03A8zf+tM7oXwXMOd8WOi4nsN2CvMWHxSqZTZD
yF46ews/M0jnLkkUPZHHixWbror0WMwRUfjPrv8og3TtWIkAMm/uxwMixmZF
OkZlJn+QzuRPHqkiHUfKL740IYN0PrOfI/pH9MWBHFfrw1WFeSzf9L7bt3qY
O9m70B9uGwJ8TRyHwBzz0OMLZ3m4U27zKl5u7I63Ee758OYI3MGfVsqxWaQK
d6caWrhjo9CMDwffILLE4M6xTLcLlzwWhA09PdB32FW0A2MN6QDtHIqd4+kV
y0F7q6DdI33COL9bA6ibAPYhOYw7ySuUckdXllybNOg5Vre8Ku5t0FIv07r3
lpGzMhY9BHTy9MuG6uz03hwBvdRMrBn0+0aUzwM4LtZBoHoUU+/bfBeBan3/
ADyR/FaEuWrILN8K2IIebwxVjfOgJxCEyp78rVm1OJ3jY2NRL+glo7VS8HMV
0Nv6dwp6N0kH0LuPqi+CrLQaGaDvEwU94gkwZZ5G4ObfLCmSXuVWQKDcGuyL
inYntLvzuiu1mgOwseCKFBtMqbki4Mudi5o187qsmcYaoVQEfJ9IelWsHaUC
HgKQTgXU9xXPDJM+JJDZvkXEEYv5k44e+aUa4a41BQgdUV30II6r9bkycI9l
XtnkbYU7pS7yiSwxh7pN3v6auNAV7jghCfonD+Cvf371Gl5t7KYz/TTaC7sk
ys9LyXtTS0cVdGOKMkXSEyvFV+eY4rO0HDO0yJ8WPbNMcd9XYgoVfGLSkKQA
eJ/jiPvosuC4IpM7cBYtV4kilvNAFISkdgmkYslAIRZ3vfKkyZBDFpwgBend
EcKqhCGkS2MbT0j38fbC+xzY4LhUbJChHLNNaZRjttCucgyLj8RdCceaPZFQ
gx0j3FtKCcaCgPsT7p12wvgigpHRqInoX5A1Cc2aU1iiHZwen3kf+3U1Tou4
GWvriQ2f5nXVAgGwg1IbznEwcJOQLbgpQTA+NtEJtUPSIck8Z2pBKmzL1FrP
Y6Z0bM/T0caJlzTKy7arT+Ngevm4GJiE80jDFbXwmyVlufpMmyY9Bmbit/Id
HjovYT5lzS1bMImlDDbxWYkpS5wsYS0hKIZsYneODtG8uZq6tpqExOra0mBI
8ukPkcAYZST/dzelDjht/fjA4nWpYp57o/3rHJWqZIzFkNm4mh2FjJQfoasJ
NOwvZOQzix0tzNpMzAFRvhC0iInYq7SI8S5yHHnImhKnqyf2KnzCovwfIj+3
z1PUeaoupCohY3W4Y4SMGW5tMr7q/XSbRP6zkTkQEULSMl4z5WytqGtkfCIL
ZlFXvzABJe+V3Nf+vya/bTUTVhII3xFjqGk/pQHxhQxVDcrWCtWKZMpQTLHp
2piGR+QZipqF25e0IZZcoWiTzwfpERhKbAOWXj7DYGglDA4M1bAfvnPrpGWo
nCYw9OXfvRoST7MM7REYyp3aklTYt8UvU0jR+oanOTM8MXHJD3tv0y7z8Wdf
rGJibvYeFIlfDrQlgp61lSpVSlsoBpUdVQNt2UcoZzXaEpWvVTKahbZYO0gJ
5Lsf9L/2KwW07TIYt0RyXZW+F//gMR9IV42+tjms0pcMQYoNvvrGW53o+9o7
fwr0tU25aqBvrOtos07a7rP/Lp22yp16W2N8lfxuG/9fyFetyWb5qp1tTAq2
WPZSvlpNT1Otps5blEx4YFkRX/VP+arZsU+vWB74qmFNnNb92/KVxdjyVa9e
xFeN2lbO4nf1jcbmrkgVw0yz5DpGoTU7Cr1y8SOv/fnDaF+wHQtURpJoSfCG
jk7+bDMLIbsGn/l4YCNWbqzdlo3Un8GZE5qblNLSiDCPBVgXUX5LICuXcouo
l24z7Zgbx2IR6WLdvmMuIRuIsqNRMFEgEWIPM6STbLFSLC3XO0BjDZpjU4xI
Ru7Rnegu0kFMWorKsJZxkqgQZVzatfYL3hoH9LGH2GrctoK8MkxVP7tPcc/n
4aPH+xoghnWh7gK0ahau+ExHoZwkQQbKqWQqKTqWcizIlnJqkufWpaJeSe0w
vtZIGnwbRG/28Xi4ajX1bdnad0+oc6WMDU/MVtxmqWjrOfaJmOl3iBQW0VWR
3HZWK/eXlhQtpYGxxB/Qtm8PEyOAykicACshzdZ6FXCUgHICy8scbfH8/uHA
mzVJs0l2c1rCwqD1Mf2HHlrnolkXopW3tg1Ivby1QTg7RVpWH2p4S9ijzeak
AysdBBi4q6ovljHZXp83NOish8E2W1kyMgoZbIv6WQZr2yPLVvRAzeJUu49d
ua6/fVSUwRqxE2MwDjmspcpgDVCDZpvefMMyGKHWMljdDJ6ReCZyDFZjkZZ6
I8BCwyhZOPm/Y/DxdaqjseGpyuCYOmqDMXeMpHnoYkrQJeonNBp08rwO4zbW
6kC7+W2bJySJprDtZwfe68noflYrj/v5bS8vIZtSxD7Agng545X2eavuMuE8
Fxy2IBTKqFebrQvxrZFCA60FDKf/N6beSgUzmk3/5HwnUdtT2bJe9ynr8X5v
enV1NdbHWixrr/OaNHknDlI//vLvL/PaTp7wkrIihG/LdAbS4nSO8E3CfbtK
W+7bHhvW/ac2HzUtxbjP0qgRT5W4jyME4kLajX94PXDf6sxueVbuc+l33t0i
n8q+Qw6bPHchlzgkdaWsfX1Lq5DdSxTuOdTr7uvrrdqs9ig8KlITNW1fHkVr
9ZGqiFIlfiy/yzpeYlL0PtL/lDwBlFdhua8UPkCYburS+D8Ju66P6T39Z2U0
f2rS0mP57icHjPp6hNCx3tJ1gTlGZF2qbQ0n9dPHCi/YqCslMsTONyb0uq4s
1UpkUoK1LU5LROwuIHJFb6YQVBqfe4KedeIUr712JmiPTgQlBNVXqNvwUa5o
ebmxSIydlokiL9sY7uSmW24O7JR424rsVOe+sDCwUwMRZX9f2c3KzOnGpTXP
Dvd328v7fbBOa0QwYja/1ravLMBwkviVGAErev6UWERckBRsiUUNKOpHW2JZ
b8s+pm6Z5ijs1zihWPK07l5KqB6eNGf8aGIglMlV86uxO0fp8AibKj5vvSyJ
dd6hyD/VHPIsUYOulq62JUuOEEaIR6UrGWHrOtTCCElLC0Xz84xQ7zuIxtaq
OZDIoMz9gvKg8vn16qYbAiPuvn96YIRE34aFBsNsYMTYMTvKbmsuMmTAiaJk
cGfTAC7t2W5dl5rsVjYet3uScEZMsZJt76uz0wD0+42QJFacxwak7xDxguwi
JMGGo2Uj2o0yqY78/WsjDnIipSFSyHeu/ddX9E+I8919rvQ1qLgERInJlrGl
qCp5YrV9LHlsVEy+RwvRjtp6oMmUIc6Tx5bWVvLYoq2fAnkI7AW45CqLQhfI
oxkPSh5MKQhlgB3LJsodSh7KISSwIYy1kgeBjvNwDbdOKHn0VDnycGXOdPFV
1yWPP/eSkgepkxuj9LaSB6L4YmyhCni7lybRPNXvQcaplC0ufa8e8vQsKBBk
fRFKnsdWvKWBMIE8+OxB+d2j1jtwlUtTEByGGHdABfKIhqXkUctJMXlaPHl+
vP8d3tDjxLdvNsKRWPmgGEdiVVfI48eVYDkCb/IcYR8B8XgHlSNwZsbk0V3J
EVtvJcuRjihHgBdhIw6QmrEEirCN6HqhPceVHsC8ydvpe3uYK6b9tO7oQXXY
CvRoNmsIyxIuxAfmzlF2qFmjAjtG3HVn8tIf/twq/naMGkh7LEaOIUoQIYex
YKYBNNQ8YgnVfdoJB3p8txGSxGoe226ZShLbw3wXY9gAsaw8jhytwhMppmUy
8xriiS1E21eO4zTnH/awrwjwre4kiS3gksYUt9nSRP4PicwRpK/hBnYFUlS/
IdyAF/hhQrJIvdxo7cSNc8+cGArad242F+cHyKEKigNbiywfAIdoFeUHcpfl
h6JYEj68Ao885msZO35QpyjPD6kMV2o1Rj9qefNpR9lnNZM8NSQZVk0AcrqM
2OcWDs2o5m4kHSDQgZ/woBT41H0qhDVMEZs2VWS9tz5tpYj2xGaCd2uKUqRz
RaOGKGKLKVqKqKz1iVPEtHnyf8hjhiIsMYhZliLW4P4pUwTN25S+QHBB6tKk
Qa8vOIgSdZXasPt66KIKsxZAm1CmqwJFxLFlGYJ5zDKEfZymBoaIAS5cGYP/
+JnzlCEmcSuwQb3RZVGy2fZlLn2nEYbY+s1F1nEiKbXeeJ4h+IunTNmiDJHU
k88kQ47oeYEP3KjGENvURxliAiNjDEGrR4snV1wZQvi+domoxpByJYa6edHZ
3CwJV23CB+oSMLmqoQr0kf9h+UA1UIkLboQPhA9zCssHbXti+YBSEuEDS4JY
mj2N0IkcCZQP3HCeD8hf2oJXNRGzYoRMHGJTqN3xL+zJle1ot1wgAmr9pneq
Gow1JSvGBUKBJ07Y3GriGRXEGk4BN2hVhTLSrwI/Tj5oHOnm28IPr4nECn20
FlQLq5ULpsGVXzVyXKBwGFygV5BywRZa8nUTair30QVckFhC7cSsLR0QOF5P
SzGmiYRKBAggqA1E8JV0c0TAl2IiHpQITPga8bCj2ZcnQohfSonQJFoFt4fy
L3kuWoHJaSmeI+SKfcloFVrARkmBwU2T0XU1NIuEt0fw5JCE7m1H1rNo9IjU
t+lTYAC2OVx5omBocguKEsWq1juZ4AVcqt/Z+3KQXokrkuJSxBVKVOuS1MdE
NWH14ohvN7KW1MofW8pJ+WNiemP8IQQizx/awOLS+sSkrYpMapc5W4PNhUU+
SMEhvVmKMaFgYwu2HLpp2M3JTSOnBg4x1QNZ9UcqiVglZCFqhETQkjuTFJgm
c1bOQBTil4zeIck4gUTcaZ5EdmVBlWdJld7IjZEoFllE/C2lVS2JbBc5JZEa
g9HVnc7eYrpxodXbwCD1ngB1B/kaSWR9LkoiW7eydy5z0i1GpaM+aRKZ/l3J
My9tqUSixcuWBxLZzjFdQCKp87ctJCLYTdMmQbH4AdukYCoWKr4efsftyZBb
x3Uijijke9bPEc6qIfZh9Uvj+JDlsCBs+NPflRIsRxIGG2ppm9JAUeqobKf2
bugDjYQ2DbEmVnnb9ptRjZ6CgFh8IcauOdYAbqftK2ukslpGRlP8u2XJnbJL
KNNmKKMrnYbpEQGIu5J1y1GpW5lk67Ypk+iMR+c7mISKk2MSJNOmeP8SWY6u
2HYmSRm3QiZREUuzjSNMwt6laZVgXfyHyiQYA2LvHDXSd/wgPP2eSTMrMQnr
VxGTHJCVSVyYM0twjjIJbYhKExJ9qwzxLRRmzvO1NJVJ1IqTcKDAJJ+EltrO
OjFJin9vE5MImoI51czHfEalLzOpZ2CSLSGEYIf9WP/tloVd6mATZVgu+Pmc
IjbhxNfGkm3i9HdKklqs/Z82JPFRNF+e2vjCFCvUGaOT7dOndKKd6v1zl3k6
oSVVoBMt+/4lsjDZHpPanuSSxik26KhHkzN/NKkhikmqslIMnmi5WI3szlEM
MsCPC6+81S9742fMrUQxpVOqdpUphmVCcimVYqySuty4FdJTrAnp0klmrFba
III/7OOIovR5PUjI5NuuRciEu18bt0oP4obIFDM024YQfdk24ewvZR0yeUbZ
akU0oUT6IxxAvq+HUZJYVcQoWzFUGaXd3dGXYBfOTY0CIJzGaWTdy6gbrng+
JCUro0zUqNebMoxq8btglAQCpKRqt2uU/8NYzWFO9N4WQp3/7Yd87Oc2EKqH
4FqJhBE6RyS1Wd8wfJR3po8aP82Ld1BArGWVidTu92mAmEaa+iAXX+8x7cMt
ZgoT2t0eUh2VTdwGKynBMsom7lqTNCybCO1Uk/u2sGnd8493SkW0Rul+UhsJ
tw2GaXHf7CZcwpMD2nNlMlRb8o0rLj99SbdzqcVziQgcUo5PPmhcSySopiEz
dq1UsvmISqV5D//Ft2WBSjSPzVHp8Rc3e47cPGoK8dZKJbM+eSpRcYHDNry0
vDuodPP1q5xQur4eKjHFYyXDbODErpRKPfzqAFax1t06aqyPjLRUgg97VeRR
Ty/BsZqgiCkvWG04ThvObnrzjZYK9IEW3BEFOtTkoA0Uy+aFNn8anLpqlRT6
aOcOKZDqPx3aCKVihfVsyV+lFNYH7Nvi78lTinholiWpo+4VF+KkpYmRpZQE
xXQtpcqZ/+ce+lDp6E+aOyaa00txOe6QYeiXoSkLyFg6Uipl2GWIoA1WKSfX
dQNtTN3gQBv6hGsdvk60aQ5xzCl8U86oFYH1A65g6MtzRm1qaiXn064VedQj
FMGwBMGGpjVZHT/F+lfuSqBrFgIh15BuBocJZ1iafI0mKd+KRePBpeuVMz6a
wMl3DXOGhlT0Y7acefSpFckDC9dnOANX8BGJXyjPGZw0+IGkmIxXU3CZwiMn
7lnOAHh3SEXOSHaucsam0ytnWG4I/IxxhiO6lTO2Q25Pv20N9fwMX0pKGEqe
QRiams979LEjI4sNaiqpAsTTUuLv4k+GNaa/aPCbLF21TlmjOXhl1vQOrGHF
uW/qnBhrPIphjEN0u5CFcB0xk0sHg8oEwjhnCaQViTHWLVj0aJRAWuyYS7M+
unXSEohGv5gfXi/nt7cKWbQsBSbuwxohUKzG5dgpM33MsyUQixC+IsnEyRMI
wpBLMGXKFs1NTzPy3D4n49VDIEmu6RUhhhLI1n9VAuHVxZrQ7QSyObFKIK0N
iD1bCaSFmSAPFoYxEyaVvplbbpxo5iM+xfH6KRFHqrao91VLKZhktlJHjkCI
WySyWQIxx+sygLLk2KEEghgaeVCRQE0+2SYrn2EogBFSJDOwRxNhOcb0F9G4
bMsepEnNyxX2NElhDIp+E56ka660nWiISEyGr7z1bqZoJp8hjbXVsQJBItrg
7C4solWZ1FLxNc0omywFy3yQphTN7EYWtcpxCIvw10l+pWMaYVGs/H2tLNKS
g51Z1OLjPzF7k1vw6htv2WWImBDePlXySSmgGgvL0EX1RvN0AYdU1QZoGmr/
ermTeocwQGkEB+5/4JEMjVArkOqURhSceefdLaW2wJG+hlU5BpEsnmWQ1Ffx
l3NKUJRBcnf+koRLuzUrZVDfUHRTT2drItGfAqWIYwiTxnmEbcH9+yvZQJ7y
q1a6jLh3PCTJ0AVTN71MLF2gDxXEnSQmdGmzCWpeWmMRcgBvinhvrLOIxlBn
/GjitlCGrHFKQIwytco0BEJaFB9dLaanVobYzGxliMa30SSCNccyBEOBNkNZ
vW79t0w5WlhB5hrlyF5e+3TaAb6e2J56mDH6vtWhL6thRouJfsFx44CSiYjR
oj/tQhFdHtg/bf7iihTBQAZFcAK1GWJo4GefCFnSpM22TMkG7HUsUU7JaROK
eO+UVH+QWir+krJfKWKCPsOaiVmd6FbWRNQjXcukdjkUqmuV6SioVBuLlsYM
B22uH7okShvmeN8g8xfz9zAUwRlKCaFtoIitZtssW618whE/7M5VxSZBK2e0
yyC2ab6DM1pvyNbmPyri5rnwkxHITMP5GGWArYTpB8oYPEYpo+0ooAwwx2iV
pwzLgaWM1skrooyqLb6N4P0TfIC0uw+ljBYpAO9SvMRfUkruHSaROrbKnloZ
oAZx0/rUXIGFyal19ak2yhVcCagyxRJZi2+hhQ8HvjhOxOiCMIbLp066SAp0
rXTRBQxrxPf3vcb3CT/uk6bLyLtX+KUEQWvojfMzdLEFP74T6bU1qD66pAU/
WgJVbr74peSKSx+phylSpKOIKZJX1okpKOUgfMHTzwWmsB8JRpVxZYqTw+pk
SrnAnfTz7BCG2OKT0gjDX4r/u8+H5TIJ6POlFg3OJtb1+qxlHZHInF4RC7My
QhOe+bvrrnXKCJNX4zGLdcxJQ5UZkY121nxlG0faowo1sp1ispGj3UKN9kiu
cw+hhgazoYsgiUENrYCFyfmNLVszKwkl0TU4YBupkWnO1TA1JO0sk9BFDlie
GlqEUf2YSg08JZrChhAENehX1Cg1xESn1LB1OjAkaGSqMFpbG6GKiNRWOsDQ
RWPalC4cg+25YbrYhnVKF1slWemiKc7QZfy4TUoXdklkmTcDo9k7jnQFXWzv
r5Qu7V4243w4MrWHmNCqdPynRRVoMWz4kgxVbMvyo0y1GfT2baDKOd+ck5x/
0pxaqDJi1DLtGhGjiia6lCuhNmsGQYYqqBjkzyhVACEFwvNU4XuoQlZ0o1QR
Q1yH7NbyNdL83Hp6MjE0TUhhBxqZMU8SUw22pEZl9HvNWDugEeLYem5KHNKg
aaZriUOtAMQqp6UQ4hkjDn4SKYpqiUNmDVWLlTiEVJ976EN1EadVtmd/ZU4o
SoM5wRGpMcLEGuTFCGNrBChhNLwTMknmQSCMbZT3nUju8wWNEeasI2f6kqY5
wpj2eIEwtwxfFAylsbUlDRrLEMZkTwbCaAEla3vitx74EcK4NSZDGE13VsKg
AInFuRNhpLevEkaZkQmlbtbGHCZMptmfUUNndH3hbqVpU6COKQoXqMNnpVND
1LEV0XoVKPg4OPHow5g9IrxR50sV3gjeM7xhAREbWpQ3bSbWk1i47+x9eemE
RvgSa0EW40vnXOjWUIU0xhfblUn5Qtsa0jk+Hb5IWL0mqihfxFkeeIANq8Nw
BcU9xhUWKPV4KFfwnViuaMCAcgVVRgwAnbgi9jflilYnkDVH217bNvFWqlT+
WK7oIqRc4SmpIZIyImUMJdy0LTLfkevWEGdssbOekX5lfaXzKmHSkrrj/09j
4T2FOyYj2hbirpc7NuOziDuEUrNmHTdwWM3c8Tgsat9XK3eIfSb+BdU/zx28
mLSRsdyxHSo+ee5IRb88d2zB7Bh3pHlkJ+6o2wXuIMARtBCK/DWVCzQpiUp9
aydQD8MULL/PPr+qVI09EhqdYY+uPj1lq6Xc8mXfWGkQ6iTHoCHyIHX/9g9/
ypDHZlQreQjgxHcJeSTyLJDHpFB71QPyXHX200oePCbYs7qKPJjVIM9JB43p
XvLQO4LiTZY8hDljALDk2VnrC0yY5PtBWM3GJuF8yuRpi5Nn7JgehjcEU+Z5
88TTT2Z4w/+ZdIkM0OKYyrdtpA6Lie///dv1gTpmmcxQB3Fw5fqNGepoWSel
DhFm1AvNJSR52hB2I0GcdVGnvcDA/MyLLwUfplIH85pSRwLQotQh3RnqONlN
qYMCj3ORZktKHXw3RJnVQ512OY7PlHjiU606TkPU6VyRIKUOMcs33LygE3XE
r5+hDu3LCPD7ZKhz7Q1zbAxvJepY37qhDjIT6s6ceXMz1Lnl1mHJ0NtGFlJH
xbxaqaP0zFGHw5AMSdJuNvuE6BnqSMHqQB2tFlKmTjmTLRdfZ2t7EAEAcfZv
hD54DSi3aemD1WDu4lcy9MGXOfyeuZ4+/H/G9L9E6aMxaDn6QA1aquwQoYXS
h9VJq8UrfUxt2tLJ3UkVunFOnbkpQxUyAIjKxMycpwppay+sf9lQpc2bnh+c
OS6k0RCW+b/+7c1zawmB6X6uSApNTwkiw3RMsrTlyY233JxcO2yEX36UJxQ+
ctxoEtcjFENaslRxn2thiviALFNYz9wZqzJFnP0ZpkgGQGAKlrhla9/Nq3vK
FPFieo4MrBQYo6yIxZHZxkJ9/LbNey1Bu3gzPUsenPNRJWIgbzVADJsd3SMi
up3ENvc4GRIc23tYctLho6uSoHPxgFavt0ACwpXzJMC4jOuxrKe0eb1Fk1/w
uxAY5khwVi3RLnWToLUTCbB+teYYAJyxROUYAC6H3nh9CIu3DFB4syqQZRWs
VW3BQGwZ4M7aIhAGqlqRQyMvce/UyArYKl2YAyskGlmA/HomIY7lbuLsh5UY
HCZRykKMVlVM/OtBCsP5pHXRcP5Iu9361o+2iDdTY2GuHz7FM6PMlFbvzVSm
iK+/tJfQxNiIQ1xMN9CkofUj1iE2Rp0hly4Pzcrz1IE2eeoQDKOV/b8jcZRz
Hn7U571AHTRi2nggpjj6lM7uZtGrNiYRmwVdJIfMMumOYdcm0+cvqcgkgI39
IpSZaQtWM11uckxi9cnGDDR7708dTMIxZJlk5MaStpFWJmGFxl5OEeevR6gj
JRQDdazTpiHq2FSzWGiMil7q2SQ0RoICKlIHV73jgHbMMtTx1uSLT1kQaqBJ
W9fPDoVshYA0EKbF04dgGKHPziaBDGOyRBsfJQTCP0M0PzZmaZGuqv8nQCBi
3KVhS0UCaYcK8YAogYA6BMJxaQk05ObbMwQiycdhVQmEAgGBVK+JECgb0VkX
gfi55u7UQqD3JVYaksQIJAl1gUDWdVMXgVpNHCbFA97Y+vew9pCHds+kJRkC
qYcTAsm/hUBZ/+QXIqxBfCPhua9ZjPINlT9V1tgqAJY1MGnUPavxWyprCEzG
OoZbxukuKWs6kmfX/Dp5fsXCkAcDa1BlEIL/9z/ePqtLiXPFpY8kcx/ekiFO
3rJqiaMuf/W1S7RKnjijJ84IxLnNaTVXXj9Mc108ZokicWKVEoefdSFx5CYt
cYjgt8QRM1lF4mjAXIw4UkYtaETmfZWaZcvEI41rSns3QiZrR1My4QOd/ODq
DJnU54mQd8eY+cYQ0OxJJoQqfVHCMS2ZIAnfj7z6zT4FfLLpzO0S4E9mDiuY
8OoX3Ukpm9GslKIyOpSSmJpdTMTZpBmz4ZCYAVq8BQ2tB+1nzW83aI9iW9fz
zMY4dfo3piSXnrowue68VcnQq59STl0y6IHkkcc+qMgpbdOU51TOxaicQucZ
PfLmDKduH3GH55RWwgC2IMb3HS5ziinDcsp9rZxiJdF0gAY4RcQmc4DllMne
jHJKI+1inMIkTWUpG27Ee7Kc4ljeIz7RLuNUZ+Nai/pBvb1g5J1rlE7QTPui
7h2hE35/gtXcGlUrndJkgA6bnuNbJxJGALXIn+luet123cs+H8DSC0cOlocc
vbSaOvU9lV7ajAMN6c2tHyi9MMZhq9oGep16+MRk8BlLkyHnriRirVZ6ifu8
E73el0x8FCaH/JReu/jlaMyoYYFeRLrcdffdUXrZAEx+h8pQgV98rbFsdfCr
XwGXbEb0+2lxUuFSS+ASFje3LmvYjjHCBRphn8aj5OS/rqMRNgcUI0sjrb1O
5ua8uR/vESln6DAeYxIUgEm3XfaqMomSTlSXrsSkJmESqaEwh3gFYhcQBvGN
4uBxvz+lO5nUOX+zIpMIayMJeuETy0JIAQuXqEmlpkgMaFfSqM3SyP899sRH
zMLa7lKDUMqm3yyTMIIRsu/wq0wCm/ePHVFeqMaOcSLv6CiTWJm0BEcXMUnT
bHJMMm1IS9rX1xQPCXflVqqv5cgkflElE4+rMp2SidQD6fPdGJn+vvX3yfjp
D2TI1KkCWylbvH1PYZJXotyiAwcqMIkwA5jkRD1lUqwvYWcmtXoRj4JqhGnj
9yEE9PRG6HN8nzuSE796R0P04fP02Zvz9Jn75DpPn/mPLQ30QaDTiFClj+0U
VUCflCq9Mo1J00PoLjy49Jwcrt9X6jZcJ+X4twNOrZSDBMiHq198XikHcKdM
uCtKOUli8GseHgCmEU2sgarY0QsoJ7F0IX6OdW/D67/3FQd2zFFOcnaUciZU
oiLlMAWufX1LnnKZlPFmjUQwlGsJPYiFjl+MsG5AA+NZsSF3a8S0rvbBztXd
mtUdm2EqWUH4UlmVKjCVf8NUd0ieqdSMUqbaOjlahpefHjdwmNflTj148hkR
kg7sSoQrsX/UZ1Ry/KG3VCV255S6Fl/Kl7JUGWK3+qIgUmPUGz4cgUvfNm20
JWvbfUq3SJ3YnRiiMyoTXJJQo63Em+13R00tvec+vTf1KHdYvBPxtpGc8hoa
yhYjubYzcdRSkuN/mjnl3ijJ9WdYT/BT4J/QfUwOxBPESO47R+hqKuVQ/ac8
tcVSWg+1xSiZpzYVe5wIa5s0qgNYqa2Nin3q64wnYtTu3+BIFjSHr0xvG/On
9Bafsgkyb/WfiRBHfcNCSVBfjOOkzFLQ3i21luPHDLjelydVjtsiJJrkxwqM
h40+dGdGCD6gqxG+LSTvnaRNHk2le/G0tfliJjBccma9xPvqG29938SkU6Sx
RkLrY/iv3eMxrzVX/a4rCa2tvCoRmmUYQrv/p4Te1ZOVwBRL6LvvvKkqoX3M
39qnM4TWMg/WI4BsbpduuCyKYzV+kz2ivVkq8Vt006+ZLDAyozDttJt1Wyqi
lJoktF2Lf/MH0THjfKGA4fUObVWGb/79C74bq2U4Dj/0VCtqk1ZCXmJ5AW+m
N5JWHyrta5hNkBQyNvQkJtEwm1X6B/te60t5N0nAoWG2/0NbpU0MWe1nFbC6
y2BeK6s7InmMvQpYvXbzx57V+DNgNex+Yf3L3xcjEV4/EA+a3UR7enVip9NY
5SdWASad0uS7lhA51G10xugJnYMtdDdv10QOqZXS6LqqD7MPK7RkcVlKW0ar
rmsZrfuqMNpUn6jIaNGRLaNZmqlE3iHGJ1zxUpUyGLBjUY+7s/XjMLDBkWwJ
I9lq2Wvr/scSj5W9y178ixe3LXttE3LLXoxD/B+rLnVfHTWVvWjD393nCsPe
tk7sJazfkd7L2/6G9+sa8HY1SVW49rXCHEmVoI8vX1k62sQVa9/xX7BtMcFh
tay2yXtTS0eV9L9Uo+iC1Vba0NRKT7gIPTf+4XWlJ2YmnqwSPQnZUgrH6Ilg
aJMwOc5J6dqT2dAzFazdDKHURZivRFM0eXfZIpqaap3h6k74tjRFGcaJrzS1
PhXoaitK2QiZvRpceGOjXHXhjQU1U0NgwbJNGepqYIClrimmGaUuKrPw0lKX
ddlS1xQp838Ytxzjz25wza0L7PXS+ZxTpnrVuBKddzXl/9CHofL8x5YeE2lv
e2pjKrGMaGau6gJ7V51cVpH3nXe3pOteL79MartNbFnYtCrw2g09cnEfndW8
vQtC6nyQ5zUohfsYuNSJasI/w3Em+1PiFAy/y0Sm2PQOsk/DjCy5xcsbTi2/
s+QmgsmRNpCbEGst0SCdUku20RVO1Bc2flxI7lqHu6o5LEZqDNmsv5bUBCVM
m/puhtSmtmcnUktbNi0CZUl9dP+hqM+B1KZOlP8TH1ERqbcZ7fWS2eaaFpFZ
c33IBXI6sJLZppkWkLldHsGa99rMY+m+BhbkK66ekix56uNKJAaPGvrfYhYh
S2IqdbYLg9FDicl+X6LT0AhqZTCQg3JFDMZ24PTfwGDtJWIZ7PbVy2BThqci
g4XllsFeFHn33wKDjT3b14N0qnZJ4++sr3bPikbt6mNcdTmOBbp2jhFvDhWv
4KzG59k28nnmqg4cYe6xA25ipa7IXEnfizF34LZCu17G2gTXIsZSbxSpmei+
0eMmKGNtgasCxjbgsb38yvsDCyNM1CxOm6xjK/T0EAb6stSibioDiY8aPnp8
VQYyFREejhbMb2IMxBxPVwTtzJNnoAb7cWYtOYICmqehFoWrl4ZyjKUh1OKT
0lA6LtgMvkBD812UhlU9upZemjxOMrmk64WF0bbTUnrZHvR5eqGkEhckDUiU
XgTxYUAuohdu3AsOWxCjV0XvbShIcvA1kMUTprWANja5tTJtWrUUr6eNFIgL
Sih54qKGNcqdn311tOdNFe5Mm7WRRJv6uLOfx7oGAbFMMNZPLZ7jm10pd8bc
PSy5+KrrvJyqPIE7GDDAqXIuxh2OQ95EH1UXjnAlcAd/NhUZlDtanM5yh2sA
enio3JHUpELu5KrKIVRqVbmDzGtRC7HyyRbAJn3JKa6BT+LLaZxPsUomtkCj
8knDjSyfbB/7PJ/wlhL3EOGTl0MPnSt8as3wCXoe039o6ZzuJJNNfy0i0+zF
L9Cxx5NJ1qPSMcaTotV9TulWMkmHqyIy2aqKSiZMG1JINJBp5bKHk6tvvC2U
0h1/7/Dk6iHXZBYrSKI2UxYJ0uErkYlWHlJxK0omTTu3ZNJyc5ZMGFXd7wOZ
bFG5SmSSeFclE1/rTyyZsPJYMtEcRRsfUS6b+r9KJl4LWl7DZLKtTZRMtnu3
komkJxr/lL2czT78CE8n+RcDImTCDCN14/JkKscatSrfPJkwyfzswHu7l0w2
jbaITAQVUfiaVYn4PILIlUyaytQFZEKyu+2mNTEyIdHRRMGQiR4CUm89kMlW
71Uy+ewgt9IgSVlrBilLVNsF/JXIpORRElYiE1kpqrtxPpZqCQL31+e31Gmw
fesbI1O2/L2eTz2I+XeRZxXP+7qUFVJWmTrBvrDWy29/EM5hNa89GmGVzU/v
GQksj2lUGg77wOy/+dgB9jsRL0Ys4l6lynytxJLaj91LLJtkW0QsKsoT0IPB
Uuo2BmLZeibdRyzqAPPZEEvS36oQK63Jg+lQqiw0wYbS3smtw2/zok0Rr8QW
UZVX+PQlQcmfDzip/YTjOc7yin218AoJVLoEF/IqVuYB94Ty6nD5xmSnY9mI
Benp2zWJl6Wd66GUUxgJiWWq0bodlPSk3CN5hWqvsB2/+0QUKmUXseeDTp7n
EyyGXfpbZZdW34Jdpxx8vxalV3YhMmKDLLOrJbBLmHdudxLLpt4WEYump0SN
Qyz+PefhRwOxCH3V5nPdSyzqSTuNuT5i7RcYANoJNsW2wOeRo+7yNRMmTZvi
mTXkums9ExAfJaPE+zdALfZ8yKlMyzPLuta3hVmwyE0AYZ8tXBdr2KLn61wq
InXDsZ/WqkfIW1LXnIQAp8xq969h8twVmcwxFq/FqzaXdqmLVW1+8lEzjnb0
nDl/UaxhihKKXEMaD1sh8N57XvF2dogyUNikhSBhk1SB4N+1sElaQXYrm2xK
bhGbyGInfgU2EaXmmFU6VtjE8sUbDO7xLmJTayc2uZm01NwglZg1MU9gauAz
UOb34yaO91S66Zabg6+JBUmrImnbB36j1OI4TH3iffCzsmYf8T2ahIaY10Ml
qMNx9VLJ9CXqtJiRCZWnkngXW0UKNGaIkCUGq7Ewulde3xrVttc//vGPEM/D
n5Qo1uWpc6XVbAbHHhHv9kBJsLVskpR1HzR6xxWvlXoXUEpLdkstlm6llE3J
LaIUzVG0s7CkuwdK2SYp1SiVqcnVbUTq68MfGUrWDcDLJMk9QhCOVyJRwc4Q
qcnffkeoIoemaHmEDOk4mR7WI1jDseSxomm0SYxGxnpeSCOrGxXRqHNiYbP2
As/QSKtBZHKgetgYEv8n+YaewRL06cTPTDmvpvLYtfX/8MMPfZs7ZhN4I5VW
YwHXfSsGXNfOGykBWcgb0ay8Enb+YQ+fE+lV1xBHbF5tjCO7qeeXsMnpi3yz
YffvYyOK0c9rr9bVnqcH7EhmTv4HjlzJl222fVGCyI6gobWqijhitRmQyf9B
7cwHZvnZFI4wNT7x9FOVOCJ8KOKIZitxprzdgZ/GOLL1r+8FPvBb5UiH7NPU
3fdNJKXVfWw8o3Zm1WtIC0hzXDa5nRmCUkWH5/hDXKQ7nyYjmyIrtoqRXhlL
DxYfRmSHupak1gO3bt3qqcXchTzsVKSQUWgrsMaMEbHAjCJeHdN/KIbwwCty
m9CnbE4hx/Ibt790XncuRjZvsDLRWr1sp0ST2KmgLWmRiIbluzjvJo9/n0Je
hbyTlLeaecfYgnZs+15/WvCwzyhS3mmBItGNlHfI/lqzqIB3uK4JZOBMGm9R
xDv15CrvpOVFhneIjVosooh3tj2GXkNLnJWPa8u0ZuU8rH1Oy9JceJZBQqdk
QlPqGdu5jaDSi2M0pEbltlCPFyaSYKDeo0+t8EVaLPUIfCSSwi5p8+Z+7OmI
mLdfAfWkulGgnu3+lafe8fvd2hj1vt7j7OTyY57sMupBN6UesuDLr28O1COE
MRN5XDv10vff0fM///M/k+8fdHUl+nUF+9SuJ1VW/P8Z7kVLF3tbWZ59ok5Z
9gFVFssC9gEeZNAY+/gp1j1lBtIjkVMx9uHS0uw+3FDar69dOCgF9lXx0pZJ
af5vr0zHSv4gKj/RBVQXXPfiZMFLqyBhCXI6Wkm7ptsSbCJIBqHTZtP3a4Bv
xBoiJFCJwlYcsz2VlG/U6UdktHyzGT1FfCOx9vpBLwS+xQpRUFyC31B8v1v5
ZpPsCpc6xzVKIsM39QsfK82PrdoKot0aUTqpId71+Y//+I/k5GNHJyOu3PRJ
8Q5zBcxAugTpVXiHlQKLSBXeaVyT54lT3uzqkucdx0j5ikLehVXUtx9/P8QT
a6H016UtsvtNi3xt+2DyJwuiNYHgU3PrYaAdNgxMgsieSjtbpFz8h6VYOEZ9
tGvxtCMFh7Sb9Zve6RMpV6GMIzhj/LhNGcZpuQrLOFYvQvgt46QYRWCcLTqu
fTCNqbHUkKWjqxkH2whtgnES4hQYZ2swgxw3c28L4047flxy19VvZRg3cvjL
1RgngTlVGYcEBm2gi84VuhYhaVVhHGRV8bSAcWqx9z2XJTJKbSIYBxphHDqa
9hSsxDhpwJwyrtUGRak6V9IqGFg3NbT56/LCoBYrHbXKlG42NU6LasZcy33r
olvzD9euXRsy3vpECk7EYjV2F65hMMEHPPLqN0v7F3DtxP1HUm0JM4TnGu02
qL6UFpZI9+E7I0k1NZdIryZ3bu2Z0S386xHJbetZwD8CNpR/Ugdd+NfmXWRq
cMLaMn3OPPD3s66l4EXnz6xGQS1dUo2CGuDOpCHlawIF4dPEyfdnKjWLnV4p
iE1RZdSKFOwbLP95CvLZ/kyT44SCRQyEbajR5NDEGIhqRliXEySVgSb4Q/NS
AwO1yqhlIJ+166AyEFJLc04fOrV45a/C+0XMRa8jMaZOBp60cuXK0LOzT8RE
qaudzRjX1c7mnBYxUJLXAtvwL2OOtAwk4h451DIQl/UgaYv7mWAgn5WBGuWh
DDTuM89AguSfWjKnixmIB6CLGageMstAAI02ZCvWZqjV4e00Kq1GGNjsD+vp
qZBPMc2zz91JE7cijFP7Zb8cC2nXpizkpz4KPexrtSlo3o3mZEm3N/3ONPzs
REEtSmopSNSi1rBRCtrMFpHtQ/NQs0A6ytRPQU0z61NgzSQYhOh5S0HT+7OQ
gk5t882kWoxJRcq5hH3iqPZEu/izQDe81cR8QDcCrBYseULo1u6jGJnRiZyh
XqeNBfnpZ4Jz1sSuNWWBoRZrUzFROYfaU4FzJUs6q9yqmy1Duj5etuVlVCGd
pz9rmVuESpouRkSVVlfpVYWBeC2cRFrSDqJS8cwHz7v1sU12q+NOkr1b5Qy2
v5tPZWlCM2yPBNzn2WZ9CF3BtpgB04ZaqciJCKoL1wGGbYiOlm0STB+YRZ0U
rVLdElH5PlW27SkFB4Vhnl/H5NobABytZiQL3WeEZdYBnBYf6pNhiF3VUJ4m
T5tSyDDMkzUwDCLCHlRAUA9rsFRahmn2ttQ3CgzTToyWYVrUIc8wKW4WGKZr
nFRAUYapq0GMLcowG5v1NSMKaLS1rmw2CEtecilWxKxOrp3w4osvduJazHip
1agt1/gs5QwyXMsbL4ltHHTyvOwq5r53Kl2pWfbZGkSXfFa5RpILgX78kRMN
1ySA5FPgmpSyq8o105A+wzVM/BMmTcxwDePelj+sC1zjWNu9Lsq1nj52GK4p
t3Tlslxz/GqCaDjBTFq2LnRjJ4zThtjCsk6eOq7iFqewVHOzWlFMaaZ8Eu+c
0swGnFiaqTNdaWaDi6UOYKAZAiu+hQZodvRLL73UiWa2TkHMYqk007Kdlmbo
YvklTaIZA82IOJZK8IFmlP4kfROCfSZoJgHDhmbNPjET0Dq6hRq62vYKvP2k
ljitWgg2YfL6IoJpIchqBNNy0nmCYbrLEwxZj6XZEswGxFYgGOEU20gwd2ZL
MAllyRBMXetKMJZHvAGWYBoBKS9CCWY95EowJEeNBlOC2dAtEToDwWwr+l4V
w7eyZFKH2xtb/+7LB1iTpK2Bu5uQacqULT7PHzocKGRCO8trY7TxdccFMhHP
yDHEmyiZbF+Fi6sFbHU1cSijJfVpM05sjBr54tOqdf24lgguSYAoIg687XLW
qPcLOW3Jk0urskYzmgtYw+kR71j98L9VYY3G6BewRi00MdbsJAzRtUa0S2WI
NeR/W94OyzfLuNSy08KVpjW2A3jjK42SY/2md3wFHEsO+i46SmTIQW8RtbsX
kUOCFQM5CPglOJiIkCYj0Il9vnRpIyvN4T3OSS495vFuIcyPIu13TmxEgMvS
hDY8I259qUtpguoiCdSZBH7BblWaaBpYhCYt/rDeWrraf239bkoRjfkSp5oq
ST7ZSwIee1fhiLqvlSMayChWT+WINbUrRzRiSgrJKUesOa9Ojvi4ec2UVI48
++tXk7HTlmWkMVvFUaUxm8xfxJFzD33I9+hRjmDKQ/K67vzVgSNWGmuII9/o
OSi58PuPVuWIrf9UL0ekV+I2cMRHRilHaP826o5XO3GEjONssd5mTZGtyhHB
fU0cQWH4+9bfB45wbAFH0r6cvfzygSikUSAxbuTryeil2VcvQVSeyhHEGsKP
MjFPWohN2WHNb7WywyOrb6SoaSxgcLeIve0gsZ5ZOrjpP41P6ujUlpQVgpow
EmnRZNQWbzH4NEhBhr64jwIpJAsrQwobqVsnKSQJIbl98MYYIYr4YLOUuooP
IoZl+KBZWQV8QIwCx5X4gPfXu3TffKMqH7CY5fmAp9xxLvAh11dHD7UG6m+b
6AjMYZQ1Uz5YE1lDfLCVQpUP8GPEHS9k+IDyThPdMh+aAx8ojpSGDvX2PdUg
gJJBc0JsdV9jE7usq4hA7TGiiaoRgbovE+Y8kSECeVRiYnaqROfWFz9ugAhN
cMCNbzewQPM7GmEBkLYMqpMFmhGsziC3clRlgVZ5siyQeMPAAg3Ny7HAGpG/
beQjFG2iEJQF1oLVEAtiJit8oOTjWhaQr4uVt5gFvTQzKrBAC0rYQrkE6xFC
fnlXUeCEw25NRt/6x6oUoI6YhIsXUsAqEf8FKJBiu8WbfdHFc5BHOUB6l+qC
gRm23IuGv+Uh75SLAHmkmCzkWwLk5dJarFrD46TBk6Le2nQV9ZADqZHaX4p6
21K6LtT3KbAtEXyDLamS+qyoB93VUC8IzxT4Eimo61BP60ASJaqhns8kSlRD
vVULPmOo1+TXItRrRXOCX9z6FVCvLQFzqJcKXUEyqoR6N/F3Qj2Oxd5mUq+E
+kxkW0sIScv4EbOGVkU9ghFaAEW6OmSfyXpIjan1oj5mNLJZsLtFAqqLUG8a
ovs/pKRTD56s3sGMB7DLUH/S4aOT24duqIp6Kp1Tccuinm4ixK1Y1Fu5v8tR
32ZRH0ptjL5/RltFsPfOFBqpBHYTYNLeGM6VUopzQkqq4TybbFfGuYSzKM41
7ktaESjOO5tL03gdcI5XTnFuY5sbwnnM8GNDKdXwY6uiVsZ5zwzOCWTGMGrc
czrbD24E4kf0OC+55OglGYif/I37fCWEShDXfAGqMxKmZSGufTgsxG3l/h91
P8Sl2EyjEEf61qTS2iAu9eE6QVxlJYW4LcgYk9nVDReDuMST7CSHAm8tn6D4
7mzqTLVUWeQCvk25/cbwHbPk0CSZuESL78sum+XxWg3fpkurjUf0kVJETInk
0hC+Y06y04+c5IvnVMP3VUNmJc9v/FtVfGtYYi34Lrvxtg3VJlc4oBoHrC0w
tu2oxlUgIlkU1XLGQlRrpFQM1ZKVvZMhAGZRi2prn1RU25KjimpTXpSE006u
3g6L4JjtxcYjqSRC8jJ2FbD7pRoQDNqRxTWIHdM9LiuRQi5vxKV7xjen+MJp
1dB67fVzvWGxGlqJhZCZqnR8Le7bFL6tBbb2qmg1JWQDWm2xpiK0SppGFbSC
UiRvndUVrUjlNMhT/65DY0ArV8m7mzrX0iijVTooKVqxkWhIn4bvWevht0wG
vnZJ6RBVg3RF7CYg1olkPRuZhmOmE9uVJGZQrwzilmAoJHD1JweMyicBYzG5
opEp+Ks9Tk+u/OHyDKjP/c4cX7+2GqhJwseFZEEt1dUzoLbJ9nWKGN0Eb1vW
rwjeEkFQBd5a9SwPb7XLs5+qOg5/neDNp11zUJbSMwplQnDyULYmwB9KxA3R
BaiBiB8YQHgnTiXsqAe+RfE1MW0wBl9S9yrBl9CBs78yx2bUqvOnIQkiVq7l
vO/OTQYPWloVvtRJemzVxgx8tb0VwD0xIiGf0Dh8zz9pTnLPyNe7Ar623usn
A1/JLcrAV3pUdYKvxMMpfLmaNnpuN/vUlnecwBfoYvIjhAy1AAg/9OQrTZQr
am0Ew9aioVMw7WYuunBKRhJmSkaSBb0Hs20CugpRyi5QsoHGbpoGB5pFiug6
2GLLoJ9FNdiOvHtF8sjyV6rC1gq+2wDbc34yPRl795tdAVvbmGJbYdvPB5AB
VTX9VYKtGrb1Krjdd8tBVoohK2QxeOchaw1xClkUOukM4/8QLuYuXd7EzlLq
qQfFZIE2NYJg2yi4KEiFCo9ShDuCYOzMyMk/3v+O0rX1oFWbGP24z+jkuK/c
mGliFENrtW4sRWi1gu9nA622PWcRWgXVilYxd+XRyq9BqLpnFK120uT5tQSd
XoUCwHm0yp3sZJAp9u2AVmtOO86YFrSPkcbn2u5+/JVU/SmCZa3JWcWwPO3L
U/36T3P5hmAZ661VKyypID9z4eoMLHH+EXduYYkoKwkRnzIse8nWpnfYStMW
kiIflBST2s89h0lUr1owadvBcxmMCnlM5hZ9Dle7nmLSmsCOM4aBPCZtUkbN
mIwlMdlS0rtHnHadMYnRlqmSKNaGMHlCn7u8w7kRTMaCkRSTlA38Sa7HDt7b
4z8TmJQgOw8izb9rEJNa4LMSJlntFZdawrYSJsWA9cWIsUrxR36Ctg1S/Jmu
prXjr1Z9n84bKEzUSPlyJ/wRRYpwyada8deRWqtS/P2wz3Dv+m0Ef50DIFr8
Z1IM/v/2zjzKiur69/f17W66oRkUpxhnE5xnBcFZ4xyNQwzOs6ioKCKK4oAI
goLQCAgiCIIgoKLIKKIYURQn1IgKmGjU5PfzrbyX/PJW/nAt16pX3117n7vr
9q6xbyNqu1aX3Lq3qk6d/TnTng6sCW+892HQLVa7KFSMjy8vmf2bTYJCDmYj
bCTNSC4K6yIp5M43cBuqcZnz5CmwIZRDyNPP7Q0d1Gmsb9KDcBrW+tw6EoQR
ZQ0xJixtqi2x1m9jc/Xo5M9op9lyrgARdp6dPueZkzllB1CDSJA1FdGX0NH4
9X1sNF+Be2VDaKfO4CeLC714k2zP21BodDtn0zlr487gjrVNsESOnSdmfVmV
n8xyvxzBCTYBTPgoB/cbr6HDiicz2KfEIrNxxKBCkbHUW7uEsQy0+EiDBV3U
DoYySZjUg7BfR7vmq+bIHY0l97beozLO7xjDuMRx7cV6Juju2dpauDlyE9fK
oSFt4ZiGW7zTDxqSqy00dbcJNqcE8FgmIWvbRxu+YNVpLS2TYLNB9ijYCuCY
7M/6YhpE3BbrReM72YA6S4vgPdab0SLKbbyyxsd5DO3AlG0QSS1CkjRKi5Bb
6Rah125wL4ODpm4RGMv8ibRrEVo/JS1CpgXoqf062iVnPSc2CSz6ZZtJaya7
ZZnqFWH1e3OTwGdJNW81ibgdyXPBIW3i6IZ+5JmQpU00GJ4K23CbwNoM9jEk
nJHMhidzZkMMwhyq7y19dSUGiUKKBoF36bU4+ArvWHqvmqBLoHdG16DqowZ3
rG2xZlBuZhPEK9QM3v3wfUzRuBkUaXaEWRIevo3CX/I27cCWNaXroj8MDj7+
p+BDtYY/a51WB2slqdN2MQoFPXkW5PU+QBbyN+JYXRqvcgq92pl+Be+jGvp6
Zx48PBfetw4eQ9uQaLzR1eM8sOcgrILMgdDFY+4DvBHNyzn5joQMq5U1WLgO
mmv4FbmTCdpyIfje6nharoMvN1FgJgelVAayg9O1Tahe9c5b+L9ArbbhCkGN
iRX6eYFaqcToDz4KL7y6+lTlLI8wqoLCO23V1iT16dbOcTBDwIVBA37TjbMo
SjAK8Lg+vdkcCOyHt7ue/BrywI6stXAfLsFeSzY2ydGHv7tHTPLe+uBjmeLA
n57VbvTHa8tjKtCj8yRvca/g/y03xYHHACviXAuQZEPSAmSxqFsAb/3TzBag
QlFCLQATx08/X+dagFLAUZgt7Yrywkun8UvoatkpZxUnzm503uYGw6SxpXLu
QQwt9CT7ZGwJFeOiEi2i7y3TvHkr1oZm/HA1ltYgm/7+1nA5PrqZ0/wNjYUe
7rug9bdcG+AkjqE2oLLr0Z+kOddtgJcCSW0A1mbdBl5fvQrNq5qrSNbBeO7W
OFbh5jsy+Ur1R20Vv/Y7+zjys1ZsIvmW1ubxuatJS6PJ13sEZCW/YjQI+Ye2
vYrcgZLI19tdu4nP7bMkWWRhO9ZnY7vr2c+9QKwL8ZwZmQR5VJKmpxhazle7
Vq2W8T0aCxtatLfXpDewzRB6PcnZCrsKDHIG5QK5qK/LIKdJu4J8+asUbCiQ
ow0AZQc5d/Qy9AS41zglI+bwmO/DHG2xvnPGKo1kXPaf1lsQWq6bwrje8kkY
h2tQHOO7VEr+lWAb+xAiZZxme9aSd2kyo9n2e3bx+o1jO1pL3hKsYrbMDc4l
JI1hVXZCy8aqMmSHWJUErMKqKB9hBcQUffDIsSarkaa3tjHuPvc9NIv6U82e
zugh7MFKHcdeon68a9vLvYsOn5KLJWwTi35RswS9B+x8miWd2mmTYQldD0fD
unmoZgl66JXLnxWWJFdaGUuIMo1hSRmgQyxJsjIZ5iXrO8cWBUGnn/z1t3lw
svI9o2uDAQ8gbcE4IeMYui6AtK/CSfI258JJx7Zlxen+B172Hpm5NISTjm07
jXFCRkveZ7dw5KaCk47llDReGqcQN9VuPlmGE3jROL2weCHuIDiJLkLjxNFr
TXBCKIeYszmZci6ckNF/0szXI2120jvpDP4aJ9l3JhdOB7W9yLvsqCdz4YTP
vJNuYXvDyVt6p5XvrKFmXEGcrr5iqjfp8bXNwEm21pX1B4yxSDoXgZOYCcpw
gu92DE5qp9BCd4UOlE2yWQamg8+9vCoXOiPHTfLmLP4shA5cXaAs0ujA/Yoj
tdzAhihbLB7O32dyIZfhVwe9ZEXn4UfWkHJ/4lPLHDrayeq0MocWVOcRlUHn
2qumexMe+7AZ6JSHCGBNjt8AJwMdccUqQwegxaCjtttz6OAu2GBLvFs4d1om
dOoNN34ZxKBohxeURqf3tVO8W694LYQO5ucn/WogQZMLHR1akhUdaFHK0WFN
SQgdnZZgk0Gn3M+ZYz9I2kCHw54EHZmCl6GD05KqD+jMnfc0fG0EHWXSdOjg
MwJKtQPpxCefyYWOteUM4qaHDVsdmv8gIkT2rZABS2fSz4WO9o/Pig5M7EBn
3PRFDh2tdjhNuXaiXjGdTkKHvtHA6Fik/MAEqUbrdVYlGk3ErR3rfUnyKLTA
AQT+dkxLWy453gSDDTRpgohyDw0hwoEbzho+4pHHybRXCsosBT8KDnMXLScr
dJSJTnDQCbGkJ9F5D2n+UvYgqtgqFv3JHYZ4x+51Ewm9TUbRPzHzGxL9qCnP
OdHrVfnpLPopTz5FShpUUw8c00VZtoTo9fpJAnHEV7xc9LK+SiF6bRTTotc5
bxEU4Q80uXoHbBEHl289J9GxNTKwYANUzm/mcJBMIMDhliy9Q5Xh+C2IYI6C
aJkoRNorZwNxsrUW24LIy2+8Rf02qvPw/ANLZWHRMeQ6oMCCRVZPZbBgaUSO
kCuec7Bo+1F3Xg8BqPLt6Hk5TQU8JQ811kwWnzH90NToPZTEDKpyaxT656Hm
+PYDvZP3G5hIDcK5EbWiqUH4trjGWmvq3xmhgodtKtTobcXgAaKpYVVgoU6Z
UWQDFo3MuAm0onbICF0aGdZMh5CR/YcyI1MXM4PFOhoaZD3uWPZCjpXOj4z2
es2KDDIqCjIyFunAJ+loeEORHw4ZKF9lqOhAxzrnvKy9TfF/Pl+nRh4KgYqg
pYbPgRSO3fenWgEZvCLOT8ayVe95gx6cEeknJ2To8E5tazh374n5ydA+oFnJ
eOzx9eQDocng/bJDZOjYowqRcWPvp70x41cLGQ+Ned3tMmSQwXvThsgQV2ZM
VytAhjhrajIkWXhuMqy5qk7gJ2TotJUyzEhKSjBxax4ytCdkVjK0d7C16pVh
hnZQCSIdgvlr88m46fp53uixq4QM/5+0x1sGMrQvIxp8BBmggLdRiCVD6/yF
DB3VmIuMR6fPJpu7JkOnNRAy4H6OPXc0GXr7j1xkaC+SrGTohHVCBu93GiID
ARScqnPTIUNPQMh9iZe2bDMXMkRNUk4GzmGTKpl7wMyORyAzzJFMhtpSOx8Z
On5LpqbzXvozWQujrIcSiICEF5iaIpXhbXnIOKxdb+8Ph47JREYHw3vaskT/
TlkP2ZX0hyejIy9JdQI10Y41jhhUz+WTHW3LicAuS1jrCBEqDssRoaP90hJB
L1pr7HpuhaZIX6FToOxt6E5zEaF9EypBhE5qfwYTIUF8qMPu+YnQu6A0nwiZ
X0D7iSEOM1NFhGjHoogoGn3E0cby9eQ8RFgzzocfX0ZKDk2EtuEJEQhewiZT
uYnQHgZZidC58qzlqxDx1gcfi8tqc4jQ20c1nwg9rxBVuSJCKc1iidCmFiFC
B77lIsKaaWqfEyFCR53LqAF7y1E7BVG+A/IQoZ0EshKh/bSt1akQoX3zDs2q
JNcc3HrzEm/4yJejOECs9Z33PxTHgZ5FoIeY4S8gx44aLBygJ4vjoEppLnCb
P322trA/br1ZUM+7fv7559i5hj6d6N6nTEstgrdyFFreIdqwJoLXu3r/EscL
A6lG68T13lhZJa0zD1qrzX1xZN867JTU+R//+Ad96urKklIxrsWN/9//4DLZ
blGJ22XC0d1xtSH3TuwgJnME+KpMnfEEbUsvQldK0Fihi58I7rgvjpcY75LY
2oeNHkdzwigfDssktpdSX4ohflsIPVMJqgyTalYQdLY+a3G5N45WqWJ6/Xo6
1liiL8TJ3toNzZI9e49R5w2NtJY9rCZh2bch2d93/xCXjEI39n1wz8uy1HpN
zEwQ0TxIEa3lrvPd7Knkjiw3x+7ct/ALyD1tCer53CkdhnrH7NmHhF1XAZHr
VeOeOFoFSiHya3s+491y00IS+R39l3tDhi+NFbm1VbglcgmbwZz+mefnhUSu
0jKwyANfr3vvG+z2lmSj59643RVZ6rqapb1k5ds0hidpnLVpS6SNlaFIextI
+/KM0tamrazS1vkMLevn7jhaVZJC2tef/wJN5SBtLP/uHvxcrLSHjZ1DgRZR
0pZs8LAPwFXiuYXzIXURtNI7RwqaE23tiTtdlUfQVnY1vbuNCFoH5ZUL+oRd
by9sBUFfmVHQ2hpVF2PmtgStnc+3N2yYXXC0qiRZ0F3WrVuXSdBQH2Oz+iRB
Y3mOeLTlr74CdwcRtIpaZkHX0GT/jjsH0nfcmgt74DZX55EyNkfFIi1JGYxB
HIocLWXk/4eUkTlvC0i5VzYpU22KMlikfPERU70rLngiUco6z6NIGXHESBUB
Kf8KR6tKkqW8/VdffeVdd/Ws1FKeMPNll/xQpIwAE06xw1KuIZcCxHtBccs7
mTrTIsbiOFHDeRQ7Bu2Ge12bR9Tax9bS7nY2LEJ7KacEiPrULoMLm0PU12QT
9f5r1qzxenYfGxK1lUjZErVOkriDOEr6Yv5g3Z9J1DvjaFVJsqhrv/vuO5d2
duig970BA2fFihrpLUTHLjt1wx1RssRLg4YvAnRs7LEtDVqFqvKwXe2kjMbs
U9EFd7guZfXS2qNorLpkAo5gUuxlEGXY2ZN3qZTlNoTsr746Qca9s8m4+P33
3zu3NJExZH79Fc/lkjFHQpOMd8TRqpUYGbfjc5At3Bf73z4jVra8p25Itkh+
Ljsydma9COIqxPlFW/Qswd51+430W/8ev8LlN+QRbOOkqbRJhRaspWvVLs4i
WNlAFCuuM3Z/sAMEe32WQrSNyeVvSVLn6dvBWFFvj6NVDRWUJO8UFJKk3nVi
C5akci9jzyBLkoGm/Y5bb6AM/CTGPnnEeO8Do2hBrMWod83cwjCiUBJG/x3U
flCUAu/cvSf69/BlmbYkVIX1LMuzuo7wbr52WS5Z6kXxdjhaJaiALIt8RL52
JBfSg6t2yhBZogcWh9U2StkRJUtsybcLrr0pSw0WSJgSTeeSv2vXXxlHoexC
Ei49ZZLN7YJtT/1jpoeL+KxNjvpf9wrNibT49LalIj7t67stjlYJmugttdBG
DP3U69t/ihPamPGrJReaE9rAYZMo4b4WGoQIuyaMDlsqkzUMshBarTJ0SqPU
Qhszbixdu5MTWkkFSerBBiUgVj07AWlnXBGQdsYVAen9ltvi2Nfd/qBwbYgw
fnvAIG9g37dCwoBwsAzRwtD5I0UYWI/C2xbC2MYJI0mrGLxnrTfqgc+9G/pO
hBjob9Lja71BI6ZVswywRwfStuhOkLdKpdrfUg1nIgNxLxB3ay0DyEVCCiln
xi05Gg7PUZxcdJqXzoY5YA8VqSP74dVDLmkfTpUlsxFr28e0skKWCs4z569p
/aNVgph+L0pqT8z6Ept0VhsrRpHa43MXOAPuVobUOrGEdFAxpXW9NaOE4E6I
FCT+KOWWCNoD1dLb72F0bW1wTPvwkISsHZktCWlfIJEQbHjIEAgJbYGjVYJE
CRW1hFwnpzeQtJZ9Iiqd6mZrQ1Ttlf8x1LYYxfxO7Zf46YBs0oI5oonBVafM
kPaknT+tfq4Gx7QPD0kLae/vv2NdJmntaOzvtBmOVglipNWe29NV14x0bQl/
N/ab5M17ZX0xZsEGu4psz7GNIaR2LCQEQWBKAcOoL6Rt8dM7sglpq2+//bZJ
5m2d86Gz0o5LCk+r0yMh3Z7y4VQ3YgE5+7fDIZpEIc146u+UcFYLSRs9O+Jo
vX4OIfnLbG/mwjVFY+UlRk4ITbxitZAkKFsbOuAtCyMGSejOLCR3VPNw0Xlp
kZSPQwOufMM5TVNa6oFZRCLBWjBS9fzdQySMtiwSjEvIuw9hdGSR8OQt1Msh
96OIpD2O1vumEAnn7XUiGTRkPjaUKaol1JDRj9CPV2V5x3ao0UxX1Bqa/Coc
38z1ZkevWLHCe3LON+7Nho98GZuV8ZvhR86Snamc9Xizt/K8GaLLL+n5GL3Z
6uiXasM9h+RwkVwt4ZS8npHjJXy7DjgWjen5O8aPd87xUCujH7+wX0XWU3ap
5KvJnkC9jn1mj08++YS+SKxWCB5pcHQmtriUUDFV6jcb+EPQF9FVmv6BMTL0
q/O9yOqswCtVoyqtJ6Sou+hEcsaDaCK1JmNlWU+IrKwC1ZY7l7XaMr6NX23W
26SoNisTZSmx6gb3r10z3qOUPXa9+9evKlCOtpUjoco4t3vKc3s041rrufm4
qwndw6OaKRT2akbZot/VflacSH+McqhgJ23d3hqqalOea732x3lt1uYePSbb
TbDuR1gnlb52Uy9f86/N3v229lOt12a5NmY4DG5RXSil7iTU+C6Jy6RWwlqv
jeJgp/RoBedaB8Efa/laahDcNT1Crb1T67VR18aMf6Tf/RrfkNn9K/cvOscq
CQZSDgfEnX2O2USe90ZZIuO4VRm0NIHDuavKLvQWFxpljzQct5Ev/Ct76Tte
UX6h30h6sbozdGH5F3zh+VxhrkQF18K4ynallb77hh+u38B9Dz3r4sZCj/Au
bqHf0/UlxSz/1n+pqPuVXVsUoasCy25y/nVVdKJz02I6FbA6xxsNhc9xkZGh
X29EpNXJfhH1fReHigsVc6EQlKOoNrrzCktbqzpdVbdPWdXcDPzre5XsBCFV
46LWKk9X5R39RzZ9tahqCInB/1FQrhpXVP1Kpwb9zHn0vz2Dr7T00GDksypW
MNrLv8t3ieTzfpHlFUUDGb7OUzQEs4fg3xH3K/07gGlrt+uel7p4DIA2OaGT
V6t1OVcrNR9bnKDI7jW4/5dyLW2tVrta61NVa5Uej0ObVVSX2mBwfmFrTds1
vWXEayQWUXo1NUiWvvtt0G2cK9OXJj1WtZtdbQiqJZBlnbqjWYIqLrT0Z6W6
7RF6iaD/zFTnsoQNvRSXrhBfPCdnVuGFrCvBNLVTto5C5IaKC2S5uLUupS47
pKrLUpvxfxdUUBWXSv9sQ2MvunRBa/1yEII/RQkXuaJ9Ad2au6fgLbYouzQo
YWw3RDIq78nLKr69E3OWN4mqWPxbKtYuXlnF1oSmpjIPq83QGZSKIPYDt73q
4tbK1CNYyt6g9Cj/342lt9W1KD3vgtYa1jVsvkEL9wu76uHPFaHXYrVDWdmm
w6XpS8mqtmHD4ojiSFGi76evjZySxZTP/S5k7ePzobJqJfpmIRJKkpPylYGl
dhjXU4joLuLnWq+d09drkyl1Y6gh68WHzB/waX5rnbtzpeVF0/cI13upjMGa
ze46dPljuo5abkK6Nyv1PizW8Now3PE2LvZni8FrBoqR9qozdl0joxFxP6VU
cTNRNdaIelF+XzrXqUlZG6lgLMKSbJvorvhe8voizXJdjy5mSPqhhV9A+KLW
6rWrt0OK6i1viPS5SJ9rS0+QYTX4bHUfrRXuBVo245UiX1/1eq4oNWEhFUL6
zWhFRdhowynuVEfmYsFC56qVJKUGusj9lMppyUZ47lcb4Rk76ndjaQZumrXG
bJnuxX14oFlu00Qxt0Fxsrkx1DYY56rVWzWt9dLwvrSFn/l1C99/B/dNyKYu
Fa5/Gjy2l6rw85VYdIfCv9qD711miPgy11Vf5bpq+xCwoZ3lQ227yr78tOA9
6d1Lh1iLb+vZn+vZLZgr7YfShbkqMy1WGT8NokTqYk15/u+sS4Mus6bJpaUR
qzY02Kprg/ZfX2YXbWr/LCkBwo/egZuldb2zU0Y+/QDjjr/e1Ktsxx+0yvZv
pSxrlbHfTmcuv+UvHYSNYJjl6aPxm8CXHwaDkg+2F/Fb49wO/F5NXbjjH7sD
P1ar4Bt5oZz6sdXllxdTPHm/mArbbdOtsB1/sArbt5WwbBVWH26ZViCZ1JtM
ZK3fRNWb9VvjXFy9xT02AK29/11j1ke6VY6+tpjimfvFVNVum25V7fQDVNW+
MVXVSlXourJ2uLhXIQKuutBKyvhdVKVZtzTOWZVWTPdkqTfn75D+qWGdA19b
le6x+8XUWZdNvc52+mHqbN+YOmvlzL5fiqEyWDm1LVcFR/UgFenfjMlKuqcH
6DWU7FHpnlp+WcqnxQ2bv/oxVdvOG7Xa4obQVtoin1bWVq2ZbzA01Id8R+QO
G2FZUJXh8YEOtaOaVIQtyymKwPeos+/hOReaqpgai1uN/vrHU5s7bBq1GbdU
bWUza21yg7c0wOH5DJ0t3bn0u6Aem9hhLGVYtIIs4vLEh5euLhlyI5SA8Q83
Lk98uKUD7vIjqLQdf8hKs7TAraQlPDxH/GZ5brwe5e4SXpOnBHdql/fChhwX
/k9Q2NqYHqoY8x3dsL45F7fNefG/wgW3ZmXFmO9CBc91cducF5cV3FrrFZO+
+wtiinfLeYfqZt+hVIaOzZOClWsmbXz2xogB/6mUZVN/7q9z8mPlavgxvv9P
uSwb47l5+fkp9z8/t+c2pyxBIubcs6BKY9TBONexws/YusL326nCZZEmnVUW
1pCwqb/rxmgKzXluXlk0p138GOupOVykLQt3VZJ9Vq/l0mazshLi7pnyd2nP
dUlZPquHbs5z075H2vL9UPXHYrZ2DVhvnOua8neHpPxd6+NbH9/6ePpmHf5F
+6kd6s595v7VzTjXcdN5g9bHtz6+9fGtj9/Ijy/rEFs7ztbHtz6+9fGtj2/t
OFsf3/r41sdX9vGBMrAu1vHD/y7I+9EkeQbd8XPj7l2y3LYYuq2VKN16gUyP
SF/yFPacQLEXEXqWXPA4lXjErS1VYoVunbbUZfVimURFCdokDog2VliLf9Em
e7tlvEdps79Pct+jaNyjzAPFclepcReXQieyyjntfbMKudLlTSFhtjSU3LAy
tNc4Q7t136zVXOnyZjDsWj68legN4u5fiS6hEuWPMSpJj1PmN5m25JadJeKW
limombdMW8pNYxhvfXzr43/Ix9M3reaO1se3Pr718a2Pz9hxBpOnmq6rV6/u
9M9//lN+2H3VqlUyz9t/zZo1W337bbDlO093jlu+fHnx+++/p09nBufa/uc/
/8H52u+++67QG+fKOuQgPLR4wosvvugK1ME4t6VxjuN/cO+jV6xYQZ96uTt3
K3uf8O/4XOgd+Rw+47yqnPDvdjLKMsw9LWYQqQkq4NQOwwo13sFtL/Z6n/G8
d+t5r9PfeeeMKFR740f9t3/RNVdM9x6b8aH37KJv/XM4Fr0587/x7hg2xnt9
3beFs+lY9J5+5V3vtjunedPnri8chN91S8kLibGD96//Xut/8X/+9pF3z7AR
3prPvyl0oGPRe+39T7zb7pnkLXj128KWdCx6sxeu9668bJI34eH/LhxAx6J3
54AV3nnHjPP6/X6Ff84/WiWwSFR1UfSOb3+Xd9L+d3jXnbio0IaORe/UA+/2
Bt/xgTdm+H/753As0ufb755BNdKe6wWfF76+xntr/X8VdqJj0Rs56gHv8798
6v31688LZ+FolSqm2YUEdVD9Bd4NZy0iIfU/9zXvgp6jnKAuu3CC9+Qzfw4J
asLj73qjpswhEf2eBbX0nfUkKP+7QFCWUBIF9dd1b3kPPDwhJKglK9/2Bj0w
KySoKbPf9fr0nh0SVK/LJ3u9T59PgjoQR+tpiYI6rv3tJBgtqJMPuNMbcufH
IUHdc9s73t33zUkU1OBRj3iffPohCepsHK1SpRXUAfXnejf9fhkJCv/3hVNq
UTeMRDFCgrr/oUXeEwteJRGdw4Ja8fE3JLyRY18OBGVVSaKg1r7/sjduyoyQ
oOYuWu6NGL8oJKgxk1/2buu3hES0Pwtq5LBPvdO730uCOhhHqwSJgjqm4Rbv
dwcPDQnqhH1v9R689/OQoAbe8oY3ePhzyS1q4hPe2++uIkH9HkerBGkFtX/9
H7y+f1geElSRBfXQsM+9vrdOpKLUqAI9v/JDElFPFtSQh6d4Yya+7j294O+B
oA7KI6h331jkPTbz6ZCgnnh6vjf28VdDghoy6hlv8N1vhQTV78b53mUnTCNB
HYLjwXkEdXRDP++MQ4aHBPWbfW7xRtz3RS5BjZ4803tz9UoS1Dk4WqVKK6gT
D7nVjU/Xn7nA63XZVCeo+weV+mJpUb4waIx67ZO/F84lQVV7T724ilofur9Z
874kWR2YR1avLpvrzXp+cUhWaGRT564Jyer2wVOoEUFK+7Gsxjf+zbvsonHe
TWe9VOgGWVm0JMrq8HbXe3/oPiYkq55njYCEcsnqkRnPeiv++BLJqieOVr0k
yQpDZYdh3ikdhnondR1QqIKw/HOYWmAaAWFVscjuum2lN+TB+SGRPT5zrTds
/DQSViCyGm/BqrUkMkwv+t8xxZs2+7OgjR2QR24L503znn/ptZDcho0e581d
/GeS2BYst/mv/N27+IIxkJVrY2hz5xz5ELWxQ3G0aihRboe16+317DE2UW63
3bSCBoUkuT02Z4H34kuLSG7n4mjVS0q5ndh+kHdaj0FObtf+bp7X+6pZIbn1
v2kJBqSQ3EaNf9WbOHsRSWwLNR30/8UNLzg3dsZzru/sQcdab9n7f/ZuHTyS
frv8gy+paY6fvJpEvH8eEc+ePt5btuo9Em57FvF76/7q9ek/OnIGKSK+ttd0
7+pTnyERd8fRqsxEER/a9irvgsMnkXBrWcS9jnvGu/i8CSTcOhbxLTcs8x4c
syxRxNPmvegtXPw8ifg8HK16SSniE9rf451+2GAn4it/+5R3U+95IRH3ufZp
iCAkYkygWKSFzixOiOu+++/Hef/aKfOW+c0VIn5gwgz6Q+/rz2kKh7OoF63+
TJBAr+yNmfYM3p9EvV+lRG0tFtArX3/NrFAvPHrE596p3e4kUR+Oo1WCRFF3
bXu5d/GRj7eIqM/H0SpVSlFjfnzWkQ/EitofRKnX1aK+8ZbxJFoIbXM6tiNx
QbQQ96CHJnozZj/lzVvwgrdsxSve66vf8la8vpJasf8bH4IAD/TcmL76Ld7v
L4NzuM/1fceUZkr75pH75AkjvNc//Cwk90WvvukNHjEnJPdHnnidZkZa7rf3
X+ZdeNyjJPcjcLRKkCh3LJgvPXpGSO74fNUl0xPljlHsxbc/iZT7BThapUop
92MbBni/P3qkk/ulJ02lXlvL/ZILxmECxCUKjlg7QrYluddSb43Z7fzFi7xR
D48hGX/46SfV3vovv/AFjY+N48bRZZOeXoqlpf+IYOCG6IHIxMmT6RboJbox
BugdRKdwMI5758Hg0XHDvTf/tCGEgbWyGT1pGYldY4AJWJ8zlxIGR+K4Tx4M
sBy/4tjZiRj07b2QBkmNARYWr6zZEInBhThapWqiI9PCxxT+3OPGsvBrvYtP
nOLddvMyiJ3+xo78m9f7xtGymhk7aRW1a4ilEx3b0LIT5yC4dz/6EKL2xk54
xBs+coQvVgi+jlhAu1+z9mNiAxBAyFjC+n1EFf2s6L295n3vkUmPenNeWl3o
ylz44wQ1Ccgfo4pTQ+wZ1GxIJReS951DHoCUQ/Ke8tSz1Myj5L0vy/v+e9/3
zjp8OMn7aBz3dM/oFq5IkS1W8OjKtWwvPGKyd92VT4dke0OveVSNWWR7MY57
uOcmqelYtkc19PXO/814J9uLTpjk3d5vuZPtyKHrvH4DJolstUqhPVf+1Odf
9sbPnE/tenDjJPTf/i8DYUHekDM+VfO5ydOmkhDxSQsVv/Pl7K5duHSpmwEe
whzNe3UNjSXoHDB1QIeAMqHvP9AJPEWjpzpoYAj+99cfePc+MCo0g2+cNNV7
4pkPEyGAHuqqk58iCI7Bca88jf6YvW70ep+wIAQGpnsAoblgXIKjVS8p+36s
Cv0m7xDxuwLvntvfcIgMvpN0YTVqKOJZWaGBEQEa0pxpMbb6LYcDEAESGpFP
//w5dRHBp+D4zPznaapQwqYNYYN7ygzwycWv05iB9fkBSuOFxZ4/PvA4UiSE
MVWaM/+bABsrsDMRm28+f5sWehqbIQ897D2z9MtEbE44qL9389kvEzbHur4j
KzZH73UDYAlhc26P8TQ2NBebS11/0jLYDOxPi1FL/d/AMwXMGCFejAgDho6m
79duWK/JmTV3Ln1qy+cwOxBKikwJLgMFmCii48BvcFtMIoUSfMYMAp+EEnRq
UMGhgETJ7nko+cunb3gjx00KjTBvf/qFd9OAMcTHVjGUHH9gP7BBlPwGR6sE
kZQUSivwE/a91YchAAQaHswhNSBXXzbLe3TamkyAXIajVaCUgGBJ668fHCD+
/NIbcvf7DpBb+tAERwDB2C4Skn5l5GOzvD++uYr6CvQvpemE38ZnPkmS1nQs
Wf5SGR111PdgWPHnE3QN7oUpCuv59mcYMBLJrEYAQXcj+iaabuyWB5DPPlhB
o40G5OXVH3gDh0yLBGRvBuSaK6eSLtAHpXAiALFKkAQI1u8n7jfAAXJ2t4dI
VaQBwexTZtdpAbkcR6tAOQHxF56klRVArr96NmZ6AggmgJgIBqvLoAeBXQpg
8GBCAvYnjzVq2uF3KCFGsPwMM1JNHEH4+POXqTJrwTQUK1I8az+1QgUXmhOc
gw7KLU265OFkzVtLvUenz45cmlic7EXHau/BoR9TZzL8vg/w/5OAilWIJFTY
PuZQgWYf2mCNyuUXToZGNRMqV+BoFSglKmxsdqicecQwb/jgjx0qV11KZRJU
Bt47i9q8RgXzBiw7BBX82x9dNmdZY2VSjgXOYbmKPx8RwWLOvGfdJPlgNQuB
kgLP74rjr/IgsGrFc2S+iVqtxCFw4/VPeycdfBupnH0ETgYCv86BwLENt3qn
H3yfQwBWuLv6vxVCAKoqMRunReBKHK0C5UTgtB6DyNgmCFx03hhMMgQBbXMT
BO4aMR6aCIcApqF+9yAI4COUVBoBnDMQWP7HV0kVGQi/hIBor/fj9QzWS9Pn
rifTLXQnWMtgfYMFLE05ds2DibZICCajJkz2nnxubWhiOnHGKq//XROBCmNS
440Z+QXpMGGVGHTnGzSynAJWLGCTWGHjn2NF+zwIKxf1LKmNhBW0lJVrv4pk
pReOVtWkZIUt6cxKTYiVMSO+xvOdcRYdt3TybVmU6DtkzbI9ixzLV6bALWsx
cRX1lwwGWBthbuHfoxBMLupoGQu3CvxB/Og9MPkFHn63RSTskocES5uNle5z
L30TIuH+xue86/qNJBJ2IxLqSZvNdkb6G3jbcu+CYyd4fzhqtCPjVJBhCSKJ
DDY1OjK0k4WQoX0ahIwB940AD5FkXI2jVVUhx/k2sWFMkpSYMg3HRHXEEXVB
z1GkFwNRD973KVbFjij0hDBRaaLQWaDT0ERhHAFRC5cubbKWkRUv1i2YAfvn
maZqGslgTmNlTZWawYrCkIja2XinLjnrx/LfD5Go9esNTCIUrTcPHB8aujDr
LScRtPW9YR5RCEv35ZdMIEWrJvG3INESfN43SpI4G10dwZb3yej7STNKVd4h
JcHX4GiJJkWETE2O9zip6wC4fTlyzztnRLlqxyS3Xg1rI0aPxkhY2EH1e/5a
TKkCS+ssUAvV3eMzptMgi1W8PxDvx/DiK6hweYom8MLLQlwOaKm1k/FaccE3
VtUkQqu1wwKtdkgTaAExoPVhDEGLORegHTLoHe/sI0bQWh5dKLpSQHs6zlTi
TZKEzObjWFjxWTyT0sJ6LY7WC6SIbnONTm3VHmzyWa0aKf1VO729P0sjnYZy
3GGfRTFDsV4pZH4UZwDNLRZpoj3aUY3hWP+VdIx1tPbDshLaI/S2Yr7g88It
Vpr9BkyiP//ferSHRtQt/bZz7xMXUxldN8VQ3VSFa6ddjM6pqRWrmlxSLjxv
FPHrD/eCLvCE2wLQVe4LZOPEsgLo/g5nmvsycYIOwO3a9lLvkqOmOXAtt5Y8
4PbGsVT8FLGpReky/M/0XdD8IvsQn9STOwzxTul2hyOVfQHj3F4sUqExf/O9
d0OkojeFgbxEajV9xkwSs0d/7qBtK6wkd1oKDEr8KLc+wTk4uDlUd4jpmDLU
kBUtWKNpXb1yAa1iNa1QdEyatdr0roED1e68qgWOQJS9SqtIVVoMkXoGzlXo
XaKlHeB6UNuLvMuPmRmLq3byTovrdTha75Cin+UyF2iPVh4zYqht/+9//5sW
RBHUak8eMfNj/YbFs57RYt2DeYCmlnVtIWpxDrNangGLuUdNdAv7qoaAJZGm
FufE2+QQHLePkXTa6klE1lpho8Od9cJnkZ7q5cj277vQu+T4KbmQbb6cS8uW
Xsc947wGr/7NPFqQ62VYWl611+D1OFqSSJ3vgYPqcW08rwhbgftZuSOv8Kpj
TSy3FIvXXzOEmNfivN/7FgRMrfQVMGEpkpCIorHc0s+FoQuf9nezgQxzP6tu
EmGdOukhcmHTsMJzEaO/hhVO4YCyHFaEVmD5dfmJMzSscOw/4aD+hTNxLq7V
NV/IAaz71f/eu+b4+Q5WyykOmshBQ59JhFW7Jt/g5gJxOoNwGLukOkg3Ca/d
9m9/+xvZLwRSdl+OgxQ6dBm34yCFfQNjuX/eQQo7BwxaGlKsrEQtXWTFk1pW
0R8AxWdYW4c8OP+AKEatyH6rSiJF2tZwvbDcLWWFhZkrYrE0mwAQqgC4YfY6
ZY5mE7ie2u3OwllulprzBeISo1vWd3/w9668aGqISe0uXykmozWcTVljl+s4
1rRxNY41LNbDVpCwuaOolj1h/ur0UsixDf6ghffHF1JJ/dJ4rUglZ1sjGkkY
gtLzrvtnhBiCKydW4poh6td8hniZoxnCqTMOG1o4G+esgsXoOGkShUW2dsm3
vPi0S35aNvrgaBUomY0u69atI08MYYMdeOPYgF8ADO1p2IAPn2YDRjSoI7UC
HIptKIf8e/B6pI6USljCof+Bwp19hYUZ0vhsm4eNlcuf9WY8uzCRDfQ3ox5Y
l5YNLEPOOfKhXGzQhOXE/QaE2IDD97VXzI509E3Lxo04WjXVfDZ0LKiwoX09
49iAsg98aDa0jayKtSiYRA19YDj1MUvfWb8vnxbrKdDwURGShBqnFPxFHkSW
zJ/uzXtxRSIiUJRA+1yOCM4biCDU57xjxhV+j3OWRGIQQSh6kzhUyx9QOwGn
ReQmHK2aSkYEYfHkIiqIsCtwWkRq+SiRGtLMGZkuIKMKNtbAxaueLOw8LtGf
OOmALx53nE4DJIjjoRCCB4kCPj8hT8+aSGrfKEJkAg3HPziBg409FCEXnDuC
OpIbzlikCcHpi37zWOEcnLMKFkMIAv2bBMCef/hEr8/V8yNd/zYCIQe9++67
REUGQqADk0FCCMHEAJ0ATyxChPiXwAwPh9BSf1Kvja3UYUBTINZ85oj9iMOm
ReJimzxcTJ/c6L367p8SuYDdHZ5amgtoBWK48NdahT/gnFWwGC6QyME7s+uD
IS4sjz+4nIsaR7iA6fnVD/8SyUVfHK0C5eDiwuMnQlUfx4V26BIu0GtA+Dwh
KecCY4r4lhc5oAQuGljP4OdYqC9Z/pIz0KvvnKsOFFnikEB6UGtzn0Q2Hhkz
lNw8k9iADwbbNh0bGE1i2PAHmlxsIEEIFtAhNn5/6Gjv1j7LI539hA3LfUez
cTOOMdsglYeW1O7xySefIPTAEcEOwkKEVkcLETr8QIhgf3Lx1xQi9lEqHIwa
/uzDuZdrJftBatYiAJIekTKylEJH6F+08quPiRqwJKydsbSE4Y8Hcd501kvl
Eu59+vxCT5zb0tVaKaKECxHtgJdWfGMen+298earJL5+OJZeOTF6pOlssUx8
uocV8WERjI5di499up15uEx8sMihQUIDFyc+rQbWLuXiiLgvjtbrRDbkesOW
FidmnUJhDxX7CzFDp1ssk3GfM5cWzsU5q1RWK06Uu/a6i+vSda4LkrtVghzr
BfbPjSMAqjnRC9QoL3+0UozTcNBGH+0P/fuqpQOHCDoCsMwUPwQhQOL/4K8g
BMA5W1TX+7lGnZWAj95Z5j0ybWaIACs0FK4rcLRNQwB79hfOc608KwGWL51F
gDXZ0wTc4lr+RiFA+10KAVCnQ60OAmQWpwiAlV6UTtEEVEvsN9HiD+BV/ET4
V+KU/+QCKTS3yAOBNlIKBLAAwXNOQwBTOnwoNQQYxxHwUw6BxIqfyOf8kcCF
e3SsKBh6ME0LRn8crbpKBKO+CRhnHD6E3OAsB0uLCOWc4YI7FBE6ykeIwE/g
hKGJwLoTzkQQv4+BEAE3SzAGpzxSO3bOQ8TLS2Z7sxe8GEmEzvsBHQFY2FMR
Aemf0vWOEBG/63FfiIieR4/BEpE+dcLRkkciEdrbJ865ErPeQSPGEQs7G0Tc
iqNVV8lEbP/VV19RhI8QoV1uOSeS6WYmRJS752P1r4iA144oH3V8mIAlRGA9
Ic4P/mghRCDMC7onf7hsBhHzn57iLXjljUQiYCWGUc0iAlYLTQS7jTki4PMo
5zbD0SppJiLELwEZmTBd0H0E2YNGPdISRDQxU2QlAvJiFxj6w78VEVgTpCUC
jQET0bGTVlXxFHL46KUU2cw9J0GxeUooqKrrGIqZUx+mcK4kKLSrQBwUlxw/
xWUk1FAgtgOfNsfRKmkiFOedPYo8VpN8qzCgDm18NBKK23C0SpAIRU0TKJA1
UqYTOnWazPCweMeqT4MBxY946eEPywt/gilgQCeE2HINBiaZkopGkk3gtsTY
x98QNHDY35s13ZL0CysWjF886XIrHF5NkmppszzUaHfpOGq0zV6ogQoSA8lv
D73Hf8GAEI41pk8n8DnkLtin7kyoGJpBjeXidP/dnzqvR6EGc3NQEkXNAByt
umomNZzBINLLTlLLwOzAcech9ZD4Kx2kVI+yiK1SgxPmI+iisHzBvfxlzV6K
FtFA4SecKs7NfHjpQsqmTnlo0cqmOFq0FV1owUoE/QdMnacxGf6/ydviqpOf
KnTGOUsukWSI8xtUTeefMybRmSiJjNtxtOolIxn9eq5AFJgjQ2f4k+WJDkMX
MlQQaaE7HdtpCpyhEksY/A7/FkMWOg3BQBLf6GvwfAy6wALrl/GTV+fHQLur
x2EA93UkL0mDAbJRwYy1Bc5ZpUrEwHLTuff298nDX2MAbfTYJ+aGMBg2drL3
wUfvljAoFHf9/PPPXRrm9s2nQhJ0xlGh/cWECh0DJlTAJIFJg47OgTpa5h34
jGv83zAVgYlK1i0y9IAMaL3wHfuR+b2MX5YqFGUf/KtjFkDaGJmQOxqAdGZA
EB6GwMBRD6zjwEAbEH+EoQwyOLclzlmlSgQE2Y4QNJzkMwMzFlTOGhCdYHdA
AIj3ly/XoUckSDokAKI00jW4gJxlmoMFO1+HsJAQAiChvndYQNSYkfgdACek
aCOTGsIJc1E8C8MYclXK8zHEShZigoLerExn3UYDoFOWxAEAnTWUlHC11gAg
eAV+DwIAJqdIHwA/QAKgvavUMoW1CPuSo6ZRtokkYWNFNnHW84nCxiCBKEe8
X+n1Y/TXtcGPgiBhlUWU/ljKVs4JETCbkJoIWJyTobGWeQNGCagyMBKwGz6v
O9o51zsoI3At4GKtvUuxzRODQHtt9XWJLT6twIc/PN9lrtyTjRRQY53S9Q5a
hvotP5B5NckcOUWQqKz36fNJ7FYzS2z3lkPDHTeXUrgKCtDpwRk+CQU4yyOJ
Lt48qd1ngeLegeRTKlBgCVIOhUpEwlAEcRfQWPhLkUJgi6wlINAT8MJUli8H
MhPsCucs4lh6iGFK4pDZJaoZTOiEI3FM4DOi2DQTkuKyjAksPhHtgjizy0+c
sZXrCrIyYZmqLT+odExUexMfHUcWHP/N8ZdxvhDC4urTn6aUI4IFkhn5DVi7
60JWyEtXq0zJ7IJQOEohgD5EFN7oL3yZBgg0uDgyZSkJUo/4gx9coCT4l0PG
iYKGlqRA27USKMBiUpLK9Tx6zNY4bZUtkQI4MKAnSKIAPcXsJa9FUnAb9wzY
KwFrpODN/aNVqrQcqJynFgc6cbF0D5jdiy7qaOYAkwB0IxIHyy7bB7JHpHZ5
43CDQLPgc+H3GlZ8IbHQLg8LOrVMHAuweSKFjMUCjBc3nLGonAVsfXF693vz
s3D6wffRdguahZuvK0XOCQsYS+cueyORBVi8581+jN68GkerxirEgs5wXK1Y
gNzhrn8Ms4D5g6TABQuc+vAgngtCB6nbPm6Bc/CgFY9rSSHhQGibBwS9X0A2
EMLZjwMKagkKKBJAAqWaCtLeEQ1WvSfSYOWJsFzcKAZk+ZuJNCBgadnCmZWh
oTwxKociCw1KhI4GTAYkS5mmgTOJEA2YWPgTDDF0Y5IpwXbSDeDW5enr0DWg
90BuzPxE6JRDcURguQgCNBEgBDoETYTfRVDUmRCBf/vntuYFxdWnPrPTF198
QeWoywOIZeuyANGZsuMAefrZp8j2i9qowdGqxRhAOHhI+0LymrKWWOEhjf44
jLLWWGkIG5hQck4QYgOzC/8S7QQhvvpVqmcoz0Wkg9OIjfo8bOgdK1qCDUTT
Xnvac1srffWxDQPys6FV1VnZeHDEMFIsaDaemD6Fgk9QG7U4WrWYkg32h4xk
g5eiwgamhJKp4BhlAwUby//4qtNg6zDaA9S1MkPR+TXE17LIPRQcc7DYgV+V
P7slTqx6T+REW8qFE3jcY9GpOdEe9nGcYJ8nrD6FE6T+8juOrZgTpIbBFjzI
kWpJJJITKwq2PsapDvP0l95dF9ZYDh8COkKcjH/kYdrbCrVBdWLVYkpO2M0u
khPoTfyOo1Y1fskTUM4JsvBKFLa430HmKn0FMBHXbFFYYlUiRtR69TvMSPwJ
eeBo1SYPJzqqWjjRiQCEE2imOCtVoQsda4mbsaO/dtmqmJvTGRmksAAmggzy
SvQ6Zc5WPFuFjwUS+vDXaXsXestaQ40ZR412xYyjZuyowaSwbQlqVOoJ+mNr
d60aRmA/t6iBOkNyo0joH3oUhHRBv43eBvquYeOnHcqLIECFGQtr/Cnt8j4V
oUSsHNiMBQl157/yd0eJ9rvZjSlBZhPJJKUS80RRotUZWIp0v5fWM+hYKAWz
Vf5ETnQYYBwn2nXT4uRW5uSz9X+ibQtQO+SJYpUqYhPMonbbc3RgRcNjIv2x
LkLo0PlIhA5Jhbl2w3pHB4gBGdIHYQWMcQb/98el7kyHaDzwJCxl/d4soINT
XUdrs3V2O8sxU0jATkxwpSj1F8GOWYjJ8M/7BQ7OQdkFE4cea5DbHTawMiS2
ZCSu/90C78D68zgft3+scTVctkGnldZdxJ/ktxkn/vfXrCYfE1QJBR+Uqi1G
C55F/JzRXcSv4/u0+MPJ2etd3hnpTCB24IBlDfx9/V6hIAzAl0KU3ryZg2Ig
aw9hcYH5x0MTliZw0YbmqRhf8CfjCXNRkG7Clz9xIExg5PBHEGECRpIj2vUh
JqpxrM3TTWBDL+g5KsUJAjXQdaKK2jlO8g0n7M4ZSQyvdJOIEZWYECPROEIM
VKRkjPf/zbYyJqaW7okeUjaAYmoIGivrQCI0OkuGQKNz6wo02BSCk2M5aBA5
DGBgIuMI80RokAHzwuMeFWhgaDmp/WDemFA6kqzQ6NTdAo32/bU8PXeJgUab
VJoLDfv3MTQ1TaDxhw+/KgNiuC8JEQOCwul363TuCyJEnHjYPaO7Ms9I4iCZ
2sqeMaiQvXJTY/lp6a1D4qjBFBXUQCnGu6Q2oQbefj3aXeuoQb/i9y9bMDVq
dPJv6B+tl0ikxkrhPGro1y5hteUNGkfNnLkzSZOIKqJUilapclKjMhTEUnMi
EwK1uhCCRQ5HoZcTAl0Le24UilGEWMlAEgmxfLP0LiFCiPb/LCcEC2BJyMdp
eB0hsMGgLxFCkHPZJ2gLY86anxArpiDJNTSOkCmPTyIDFFntcbSqNiUhnLDU
JIQ1as4gpw0xJzEhUKmBHOk3RO3KzjxCiE7fXa3WSTJtJ0Kq8hBi7UGld5cU
ty0dKlpOCOYcvNiR7eiSCOnMhFx72nOkaSN1CY6WLBIJsfSuaZ39sMppHPNQ
iBCY7HDum8/fLnRERVlVWwFC2IcnlhD2LHeR5JLGjv16jlaXYiEDhfveweui
EK5Y1ibtiSAgvhw7/moQ9B6EAgKn9Sdho80jIWI5CHAbP7LhRgcCdvU76/Dh
AgLCCpDdHyC0xdGq8kQQtBe5gKC3S48DAWqRh8eNDoEABbysb5oDAnt/pgZB
BaUxCIHrOKYYpSlIeJsyIQE+P1g1+d1P0C+kJaE2ZmspvbIVEnRssZDAGbGJ
BEgcDr/lJGCVi25ASMC+Hv4gszmToBSs/gBOa9tQ+a0ujeq5xnD9lXmo5dpj
+XxaEOgZRaegjkIF6pAsf3boC8n/iotL2y+Uyx8qTklZc7KS//pQ/sqi03Lg
qmP4WqhMoVJz40LaISFO/noFm1b+WHRgyMD0EqlGouR/fPuBCBkQ+auOIp/8
rzxurnfp+ZNC8rccOCyXziT5b8Z1ZLT/QNbtYnO947N8H5V1MI4ZlamiCTMq
r7lf1eubpDkSPsSygpHC4qNLjvewVmYhpjZ8vJJ2AYla4ApT2u3LYgpWOmhN
OCWkGb1azZxhF5FjGm5xnMFv8NRud26mLDUw+J3SYahfpECH1tx6iJRnTYz+
lbLm8FZvcR6ozWAzLuVpUX/Xo7Gwwf8kKV6t2ZjwqTwVTT5huRs2fprjE9pX
WUKfrhQx4jpwLP+OIxGoIvY0+IzL7Bn3LpZsQoxqpzRhVO9cE8coxjlhFBxC
o4LUkJpRnMN8VzOKxRXta2UzqmbPJqN56yJSrjUximKkiBMvnzhXyApwaqUY
LiZ+l49TNm47TnVu/jhO9cZqcZxmfZeYPiQ6JYTeVyeOU07y7DjFtBvJ4sCp
hOahj4UHHc7VRHDqd5pQHXVSEX5wvzqp/WB/nhzNacXkWhOjqLbsWZgQTZ+/
vNKcRmdvD95HxoygCfJ3lPRf1PK9TpsTZDVXdKrNzJvQqX22TlfKSQkFOY5/
B+OH5J/ZjfRHeOpuOctdHS63kKg99mTNCIUkfG7Kd3hKIhHKRkk+doJaCoRJ
LFJwKWaMzg5aCG9V2kFRzP48wTSyujkVUCyvgGiVt2UnsfxDLfxmzJxGzZui
CEh5qUxpaTpHSh9ckP+CSUpc56h8SEsL01J2hsz46TyrWMTAanKk6lhlDbZH
zg7Ter/EDtPa48HKoZMGU1jpgSmiUwVTnCvHVAJVNKZ632UL07w9Zyah1xh6
d8taE+fMaqGLz1g5NmMmKnnZdQOMWyFdceqTXt/r56eGV/utnc4+jbIDhERN
ckhcFZbfVXR10YVC4C7dFeCSsCIO5rTvaa2gQhBrf8f2xqo8DmKswDXEgBAK
WyTzywox+8zmgrjZQq+JMQno/c46xjhTLnnzT96kyRNKaYYK4RiNzZOW+Hbi
9g28u1DSdFT5aZvQYumDWEwL2i2M1ACHcqZJlVZAllpOTYTpK3pt4Hy4MkvK
rtu7R6oBkt81sfe1wLV22GkKbpGW+VAXIUtElZoAYGKAT8crTxjACzVjjVpu
iVG7OfCmrYjEHteyUmg7lkCLRQUg1dACYtitNLRvrl5J2YEToI3TSybByPmT
TRg7M1wwUIiusjvDqDKjOBhFZw3vLcqb6d/xMKUbkCBcC8YYnV+6XWdlTQTD
J4PGfnlF0SURDlVqQVOesgTgcQ/qUptIpJGGjD3HM0EWadmoibFsIBZFVqAC
j+XgieF71lPTQ/AsWbqAXKNzw1NL+VPvum2lizjhFDmS1krn3pZYNO3bGfDT
RmfPchlzwBP2dCyqDkw6vP2YMZWFrwljekoqjMGGihEbes+KMaaN6cIYRlas
gKIYo31rqzDg1sRQxH7lkRR1yKIar44xjWj7mFBkuX9i/YLlsaYIVCF+rxkU
sXdwpSlCL9M4YhAlXBYq4CUsyZcsiljz436vEzQfzuFwatikP/ybIu18qnZJ
aW0LUWXld8d2nj5LykWj2uV3hz128N1vWWCdqTqvfevPLvmF+kf2Oa8sTpal
RedTEJwsN0FoY+YveDaEk45V2CyPpa3FcIIhBRnXx054JLTBNhB7YuaThf0Z
J5XkTdbKLs+XThd2GOOEpQVvGUVlgw8qDHjwQc2Fk3Y/bTBUMtJJSVr4saO/
5g0lirKXUYglzYiwxG7IkSy1z2y/r44xj1imOyxS7xj6UMjVR29ZeEv0vL7C
QOk88QKUdjkNgGqgWDoNFKbjmBkjGlgSCeL/KK0PkeYJrmF4BDjVPOk0tIdx
5Db4gucc4ivAuUzCWB24UxY/oRBXersB4UpnohauMKvnnYcdV2ob18xc6b4s
P1eWOcMyu1lOhjDDvbzixRBXOvHLZrn9QprCNXwwzeiywgWYNFy0S4k/LMOi
JT6HCJdBjtBHJj0qcGEspNgr/3L8IX5C4OLMEGrss2P3tFJvx9x0WRu0I5kp
8j9ousZMflm8VWPpahIZ4R/ZUZ5+0dGYeLXL7H5WHWOEsLa4sBwU9TYGQpeO
C68kXZxgqLl0AQ2kNfmvL95zudNBGawB/u8kBY3Odyq+B+iOsEKBb9IOWbxa
Q7Qg4OjNP20I0WI5qCDE856BKxNpUZFXjhb2kG8BWiybgWWy0j5qQsvoyTNp
2a9p0XPwTmncWVUIVi1t5ZOREe3pHMUIptrYowKpb+T3iCkEM/53MsPWe/Ja
OS7F1oopkeTc2N71MmXhWXWaEe3OKIwglQBylkalIxRGMC+SBXwcI+wPH8lI
yY/RismqjlHEWzYkrDQgf81Dk1z6aHelrEMBD6W6SozJajYP7dXcWJZasheO
xF7ht1ha+Tz4w0iQ2wADAKY/mGYwM26eDcc38IRPB/M5ve+jQKIdm7bLElTR
JgkcWNvhIq/BabppX1H2zAmBgwk1Fl8aHHaCjgcnk698taEYF5gQTS57Clm+
bwKTzkDRT6UzRLt1MOWKpmiK1eA7SekgWOnNWarVWCH+rh04UhxIIVYKsxa/
76hisjgfO5FFsRYTRjBZbWmahi6Fw8+IJOl2ECWIFZxPmICl0iU6W7r2SPpl
ZrCqDbdKWejraB2tPgpv9WeDpWK6UoNVnzm4q9pQXgtYOo2/5bgWB5aOHK0k
WJwEKQ4s7WXfngnC8gzOk8g4Q/41kx4tCF2gR3vg+0Q5ujCjBlGcpYX6MZ4/
0W9Bl9+vCV2yxYymS/sRbZsl7DSRrgcenuDNXrg+FOnTdJvA9HSxy35l6KoL
RsNo7bbeEqCjGn7E3cwK8elnzKA75g4drBBdDTTqgSDO1xKiRNMFLZNPlMCF
N8BXkkMQgyNvMEcKKugK/KWewKWdfX/DpUHgITuZF36RGy7tvStwATbEMGu4
mu41mB4ujgKIhKsuSzBzXTDliVZ6D7+nlJhd4NI+YnFwaR+xZsB1xGuvvRay
n6SAS2cDb2DEMJiBBNAiU24MdmynCwGGcLOXl8zm7qsddXf4jh03aLAUWwt+
i3uie4Mt5iAeg8UXknOESjemAxa3wdGSVSJp2gfXsrF0NtRMQpr2AhPStAOt
kMbxBi1AmqUP13FoHZVo49zBrKk8uYNZpUomjfa/1LnhQN2QB+fHkaYjUBq4
g0HfwxN0JqiOGoJkDtSkYUrm0yWgYYGqQcO4if5K/VTOMWg1tI0GXHMAIPox
pLM/VvWyYjfPT5v2pI22vYTVTllpY4/uSNooLjZtLpcQbZay3DLmJXlw6bk+
OpL/87ePgn6tQrRxlqistGE5KLkyhTbgI2oG/F5oY4Wn/Ay9iKZNd4f+T6vw
W//ZuEoWo35vF6hF62hkhjcNAvCw9sRiA5M2GJB9Bo/mJBAq/paGWDRyf5nV
GSfS5hYK0Wh501o0arXWpkOjpWK3bIGWS5b2bhEasfOCdDYd0mQWykcj0kIh
95imUe+uIDTyyMmiCtJiYf0CO7MmEf/28WNiOxKCGkXcQ7YS499Soi1METGS
i1ERma4CIOsJRmFVroMuHqtjjML+SpmdbNs4fTx8v+FlAwMjqhxKkc0rgmac
VVFr0+LQVCGADk0OKYhEsxbHtMnRQmha+nltVUzreCVowhq0ZP70lkZT700o
aOogKkETwSqSJVTQxHgLZDSa6DgR0V7kgmssyRTJuQcwwWQrvOs5BUt/rA6o
bEtDs2wmsZ5TFmCYRvFAOOjzyTyCwRT3G3Sbks6A3b4Km+GN02Z3DIGpnQvj
wLS0dciwJBuXnWWAWR0TXVAZMC1TQN/eC1121DinLu2OI2DqfLGU2SJX1r5g
d2x2rG4OmNK/aTDR1wFEQMaqN0k2yL/pSJNBTj5IryObcTLAdB5LafTR6H+h
EcR3WKXsx3Tis+SpFds67c3K92IF8pGq+JKqVOefDEmiYoRaeRWQQZBzfjlC
dVbrOEKtwAJNKOV0SpuNNESoZZzQWWvTOoz1M1Y0qQjVxira2VVnPAejYya+
HseljuYTLjHWwhD1L8m77VeQ6FrAJJh6dNzwIPGlf5Ve42gGZdwGW1g5w5Xr
j2+uChBsR/NHvUckhnedWhvow96K4VvWNVB6w8UMG690cMxZhi7hCwMR8tkm
OWbovKVxfKlIP8eX5TbdhK82TlwlQ1eIJcs2oQ2fcd5i2rlHWNI5ShscSykN
XU1Y4oxgcSzp4Kd2ykdQDCQ1fATgwhIbtZilmpBLhgzIYgTDYAvOwBLECt/F
/dTaW4xsgWK6lgzxApOsgvz5nmhk0J8hEciTz/w5yL2WNs92qP/SXq/CF/wV
MdXbWHzR76zc54n9l2W2uPKiqRScnsWh7GZjVUL9V66s2xWjDyoSjH6aPllx
sPcreqVU9EEZAlUL6OPpIJtbg/1CZAEthrMhD08RLbPO9t8Or5A223+INCz2
EZanSbMyuuvcuntkJM3yza8Macft3Zfy1iWZ8S0XM+0EJKTplJnUu+XK/Z+L
NEx8xHgvpGltjEUayPSL60jTmppy0qClxnUgjed3buMq7dQoHZlykvVndnnx
sjxjLbx0YlbBSyeCF7x0cJzgZTnta7xorZt275HwGlZtHxAXrpnkYyZ4Pff8
0zTPbiZe2BBT4tfpD5tUTXj83Ti8dBCR4AXcxGBn4YVh0e+UYvEq8oQO1jW0
HHRoj8+YLmTpbZal45INDlHYOhzT7mDE1suALL3LtuWPVgmyLP/95pFVIOOr
7JDqN6zoMErLFU27HglUCKuErfBfkrE144Y2DBVtkao3weNUaVVqOSx9RBxU
WjGioQJQgISdFgt1DE6ZooTEW0W9WnjkZJ1xoavSDcpGBccbPiNtcpNl+cVi
MYnUW5Uiy/K6bhKQlHb3LE0WW8McWVasI/LJjHl8diJZI0c9IMbNjU2W3sVC
yCL/I958xSIL2g3/e0eWpAbWZPmnoaXDVIt7syrVU8neO2Lc532YQoxhsUi7
uM1cG+zQm3YvvkTGtKekMAZPEtmlM46xJtOplmSMbWCOMSskMsklqS8z9qe1
77vJNDGWcaM+Zmyrb7/91ut91awsjOkQpHZqJiQJFcoZwxIEc3V/pekYE6cS
vi64pJZWyOxG5zxz/Y7sEOWBK3uOn6AcKVGJWDjW5ObKcqSEDQGZZKOyUwtX
SCiK9G1JXGmf/vb8O7XtW8BV2r1ANVcXHjEZLvyOK8uKbzkjWVy99vorZNvO
y1VQrhpvzIivHVO9LqM1bCErVIDnX8F2pE2gwgQZQ+B/ffGegwrtAYtMhqqW
LwFQ6JHQL+JSHyg3GvL2CiGi4OMmVijakS7t3rEVI0pvrxFHlPb7F6J0rFJu
otg+6oiybKPaL8TyQOprTN5p242MW8tyrQb7J+hcaPhjlMS7W7aRD9TqTdUO
tUwKFKo4B4p8JOr5tHgUlQEk0y+Kb/Ovgr9lV2OifqIxUa/KDFAVA4Qywpso
ygU3LUBixtSbfdUYQQHtOVdA2d5yaTes1vjw3sQOH5iN7n9oUQgf2LLn//G9
kOJ01aff0PZxejKlE6C3ND46oKitmstI4oo6tToHFKVz1bQgxMKwjB38FKMY
OiGY0/2vHTvaffskLgIMkU7flwebJM/trNjo/kSw0Z7bFcSGLYwOm7Rmb+0f
ZM3BqXkn7XNeMgE0AxatGagLVmQ+ANK98Bq/HBFoqjCU4Q8/KSFSE+wG5c/p
4UsJTRe2ApJxSmdRbx8gELK81GssoOYfOW5Sosu15asI/52eR4/JgUU4uLG9
q+cyowvL/4xDhmOkcfK3bHdR1mWKxlejDuY10kRL3UaSvSVW/jAb+vUv8sdE
lGMznPzFO7C8s5AZlXQWIBO9QhkJsKOAAji28U+YhDayfykNLjDWAT8QAYOc
rLGeXPx691WrVim2M3Yelker5TutN1gQSjhzeogSvWOCUKId84USHbDWMUfP
wdY6R47O/hpnqQM52JtUk6O3vaaWaxUo3YATzk/0LG/CIvmJdChaWzWdkJyK
GiDpVOr5HNZU7BJTEHqwOBdN9b84LK0b0wNY0Y9A64S1PaxvYs5letr+5z//
cS+RaREl9EDJMG7KjER/6LT0aCqEHu15X0YPFSgPPbxVtqPHsrlZ+0BpnwGh
B1lCVi5/9oehR/uwaHpCBcLIwf4DJXoC32ic42ABd39Mn13IWRt6BHKD8LaG
9DW6oycWvBooqjvlISetN2lzyNGe9JUihy22jhzLhkbOjWMnh8iZufAVWhdp
cvQeySQ8qyabQ06N0phwaKupv9HkSKy2kIO+KUxOvT5H5IhuB6jgOfMXL3Lx
0hgg4VbiExUKmZW+6LgWR0hvCROH0BUnzfS6tb0yhJB2SFYInfbCCy/kRoij
yRxClp3MiqbWBv++xqQ3D0I8Y0xGSMeNCULaw0UQEiQ0QmJQLSHUluwwFkJ4
BmausJD5q6UD+VEYxSTIuqjIkiBryuCwWR6K0rpo6u1ExIEE+xli6nzZCdOc
1kYHj8VRdPPZL3f65z//mYui3icsIIq0tdUyjFlh1Jqim4xtckmQVk0mUVSg
nsgbPZziIgtFLoNK/FkoGjDJSCZxYijDVmpyGlYHtnXqQPHAFBWgwIhewR+e
DlS6IHZOd+DgnGx5+MOAg2U4DGLIZhsHjnY6J3A2z0gKm09DpFiGLmSvePyZ
xYmk6Klyc0nhVFWxpMC3QnaastR7O7DaGpJXymMayRDAxVTT90wKp6QNK/KO
wtGq3EQMLAdHy4E2LQZqu/XAdbsQdvFuyIOBtf/6/Xd/Sv53GgOo7DBTiXLP
EAz03qfk82AVKJSVuCFho5oNhUaXI5zOWWli0tIjLtJwMcQgM3naVDdocYg8
FX1HVhGrQStYvC9eBK8J3dLFta2bcniE7jkWni75Xt3KNRBiznJ6tJxqo5hD
hL1mTodiCXPaabsdjp0r94KWbBlVMoGXhw1a5i0dNmiZ5gVVvWdBEqqp9yHi
7yQpeFpWxRw2Z/43zqopPZ3sj4UsZ+3UrEec7HZh2aP3xYA2/+kpBa0BlvHU
6t0oyMWSX+oNespeOJFQy1nScssdMX4RbU5UTqjsYRBHqHbLjSQ07xvGIEo+
i1ljCS0LrCCKvTzF4Z/mx9aLZNiCiFofvQ9aoX7XaEQfvI9GA4cob98WQtRy
vNT6711U9wQXE4Tyayc01iCYfWgiollfOBHRJIdLa5+ickSxQ4EgCn35UQ19
IxFti+MWFXzDGET3+eijjyhUSyNq2eS0ct0y6d5orBDapETU2sRGtlPweMRw
O59Va9OAyuwVC6Q2/gqQiPMT7ZcGEua41SsXOCBV5JbZZx7mFgaJO/NYL1Xj
rmyjobN8MZsDnQ63Eui0EzlBl/8tqsNvUSget3z5crLSJQWrIloBxl2te3/p
3XXOaiN9n94loNYtKDLvK6TmG4t7RW8xU58SMD2BFLWDhGfB11fyqwhgsPNy
Bh0HGLQeUIbBFfNQo8cjwJrVH5S9cGKPZ7nSWYkpmwOfdjGvx3HLCr5hTI+3
/VdffUVLmqhQwLhQGngliFFIwNQ7EBCYlqiyzBuxC5L7rhC5z2FWRLUuxYps
3UUtYoDoX9e9VdAhLeI7avWBtJtQnACzvnAiolbuVO1RnBVRmB1hftSIal/1
REQrJtJ2MdtUWkE3s5e8RgHTUWsZ0odZJY/ZDKjatS21JOO9N1uKRRWu71jE
+AwW/S7SsSgpATSLei+WSBatDXDiXjSRQcuPb8azCynNjmYQq214GFsMYkcg
K9BLGNQex3U4WsqyrG+WyF7aPL7QBKL/0+zpDdSS2EvS/HEqscwsqbS9jiXS
97LeWFhSGUtc5JbOGN4NR6uQkdq+YFSnh9/7wCi3r6l279xoWFiKvpCYkeNL
supZu8mLmPEZ3r96oq+3JCAxWyVoITFrUwCm5o0jBhV+pcQska16xxsJqpEu
Q9ynmiVm9qiriJhP736vd3z7u0Ji1n7hbXDcOo+YrcS5SAjx2JwF4fXc2MkU
GKzFrHcI2NhirqdjkKkP4oPlxl8CiKQxcQnH2gXn0Pixl4nVoA/B0arEJElz
6kgnaSuVclpJ6+glkbT2184vaSuTrZUO8q7hjdSAtaR1rlHqH60StKikA7dX
iAuJj/fhkujwSX9ZJO0XgUW4pS/Z/FJlpzYnVSuPMewzI4d9akr1prNeipWq
dqKuxXGbLFIVu7+VQdZKvbhy7Vdk59ejsc6q31yp3t5vOWjKJVWyrvhS3Zcb
Kj6jm/ZXEdwlV5M/NawzMLn6C+qD80oV7/vo9NmxUoXxFcH25VJlC1po8O3a
9nK4CDmpamfW/FK1zGqW5/uLb39C6Wa0VPUGU/TOVglSSpWTImWWKvRnHCfI
Uq2mVRmcXDnDbzcWLKbnECzMZeNnzj8Id7VKbAlWimo58Wgv5bSCPZuONeTE
A5+vg+ovIIGe0mFowUo/Tnvb/SKPgO+9/X0SqBYwBA6BagE/t+JtWrBFza6q
KyxgzPjEqyFOwNBfQROkBQzBQhIQ8px5z3ZjX3T4aXE+X7LCL1i1tnBgHilb
m6xqL+O0Uj6HZ8bYYBWShH4dkyneSFU8jWtzC9cy41jJo7Q7342GbwS1XqsE
TQIQ4kTKO0SnEikmw1MnPeRECqUqdAWciUz24ZW9eaGJ5BR4hf2dSMviCSTp
AvRgUBTmFZ+4sPTkvhWBSZj/IjgJHncYT/0eucZ1umUhAyERWdpmy9Nbb4wl
ItKhRaUONilGQIvolj6U/y6XiNDCEL0oIpJ02Gy+PUz1wPD5x832w9HiKK61
WTuB9uk/mjLTJG3lAHGJq9r5yjESferZR4wI+s1t8zQtnTkwTvGlNxESuem4
UFLTWCVI2W9yhpncEkQZDmCCJHAev5B1CT6jH/bv4Uvav59V1jjxJW25GZfS
SovvMhx/mUdU1u5gcI9/4JGpIVEhkwvC0iGkPoalsLgJiQpDnPhA9zCyFuyT
R1RwKXvt/U9+QFFZKj3tPLwTHavJFoeFBIIt//LlOmlYOmEYNSyrEC0sLdkO
UEsL4VOcf7NwmJKqZObeC0errHHSumfYCO+9dX+N9NjcMqW0LsVxuzzSsqIF
tJPuTmr3WeQdaRzzkFscaJVNc0VFKZEmr84sKm1YOoBHMSjzISr0hf7QJW0L
c0eYOhG/mElavORDcFKTaGjLv9bKtwZpSeRHfmlhVw64amlp6awKIi18RqSQ
P7tgaVXrJMz4s56fUlacn6MCsgqS6KFzhrcRfo/mJQIjVRzvPbwHjlaZYwRG
iUXKt2FB54jkxlpgVjYgCEyCvC7BcfssAovzgUe2cdjSygWGKeOcuTOdwFRy
4k1IYJgayqZzaGh+A3P9od7BcvccAiM/tvK1t+VGGiUwWUvnF5jlio79IbB2
tgS2cPHzrj/UuXqth29EaR3I0pKYBGlecP2Q5gWvdfSHWHDthvtaZY6RFqVj
L19DZ5GWeGVcjOMOeaRlueHq6Pxyaa3440s8g6/Wmg/8/cACO4SnGZLCQU8K
dY6GLpUSFHxhB4+Ys5EEhZTYkpHS8vQrF9T7a1abWgzr4SmlxKH0FZESWjnM
B1pKWGWhOS19Z33h17ifVdYYKbX/97//7ZyhREqWJ96sFz7zel0+OVJKF+G4
Yx4p3XHzSrc3taXIECnBnofz/srKSUkHHSdJqVhS5TRNccBysSKzRCQ6UrSr
4Tn0axzZG6DzP/7xD7jw06djcCyplEqqnI4x9W1lKdH1vTOO57n7lSmJLJdE
mbphKgcLmVYSYeItng5dcewevMdOX3zxBRChT9u5Z8QoiSpcwSqhY2FXHC9M
yXeogi3vvqQK3hHHi/IAbbnb6YSvutIlouhgHK13i+lnKlTV3ZRmQLyId8Lx
4jxVbXmpWVWNYHZx8dgBR+tpVlXTW8vuk1dfNouW+VGePFZVH4ij9bQUVX3R
eW4p1Jyq1k5eO+B46caq6u1wtJ6WWNVWbgi9Zreqen8craelqOryKOycVS07
mWCJtx1+d3meqrY8X5JSMmyLo/W0xKq21CM6MtWq6n1xtJ7W/KrW3t9WVR/K
Vc1WM/rFL3C8cmNV9TY4Wk9LrGrLpURHf0pVax+xvXG0npa/qiUZpM5tUhdT
1ZrqrfG7Xi1Z1To72lY4Wk+LrOo2XNVIu3993zGJfh46enFPHK2nJU+/i99/
/73TgljT72JMnWsPy+4G3lviePXGqvMtcLwmT51bigVraz9d57vjaD0tuc5p
NSHPy1rn2rjV3eC8M353bZ46R2qmqXPXhOoceZP7910YmSd5cxx756lzSz2A
bHUI+4mq891wtN4tZ50j9Y4E2KSt8x4G551wvC5PnVteSToO26rzTjhen6fO
rQ1V0dfA1KPrXPuA/hpH691y1rkVmZe2zjXnHfC7G1qyzvU2LJTnu0+eOtc+
InFRRTAJwBqKOt8VR+vdovxBkBvGbQHenJo+zKCbYiXp3eNW52lrdczIL7xT
ut5Ryk7Rx92vtDoP1aC1OteuAFZ22F1cDSatxLkGKZOA9EeVqEHNKk0H++Zh
FRYSbEQfVat7GvuSUpTSzXlY7XM1bUGXuE7UCVV3wtF6t+T+IXWd61SqVp0f
blBbi2O/PHVu+SpZda5zXpC39i156tzyntAbSVh7t+6Ao/VuP0Cda86r8bv+
LVnn0IBLiDz57VlPS6xzyw1Cb6wgdY6MIfCdRp1vh6P1tI1Y50ewEV1xjr/b
UtY41UGHjDWOXTKQpLcfZXH2j9bTEmvcCjLSxnHLU3JbHK2npaxxGTOkxhH9
Ii6vUuP4DN8DXePK8MQ17ijHaqkwIE91w0tZ8pxKdSNEcOBty0PVff01s1w4
fhWOt+et7vJgHzIecAocvRMlQj5Q3dvgaD0tpro5FV3td999585VGefqjHNH
GufSkryNcS1FXFdBQnsZ3w5MWY2bGdd2MM7tbJwbk63y1qd8Wet3VtGt34XC
e9u52FCJAQ1nXvKM2NHw7fYwzu2Z8ndpz3XJUdaaCpch7TvlKesPVa9lkd5B
SLDOBREXvh6+VW2Fz1niq/QzNvWybOrPlfDytNxYmP8Y3/unXJaN8dys3PyU
+5uf23ObU5YUw1V0QqBN4xU2per8uT03rtuxuGkdrjb9svzQw9XPrb/5uT23
hYcrK40i4fMX3Gn3jFdW576y9MyOyYW2mKdPbfNc1C7jRf9KLqA1h0wsYORF
cQW0LuICBkRUF0p5tuhShiec8LpUtvS/b5f+9/8TlIguKx0OyH72fv3a7r+g
SraRatrQWGhkmf2/mN9vX1ZQVOP/xPz+jqAIQ11zw2uzmKiQiwuNjRtcKYKP
9Onf8ZfsKJf4DxXY/m/8JXfo6vB/tbhR/cInoZFUPltrcHoFWqD/F3/JDsYl
/4y/JFDPFi5Vrbu86gL161bqO8mKWar6DZILjtVV8h1qpFyVFfrt4l5V9O96
l7u99JgehR5Sech06J8JftsQ/LZ0X/93QbEa9a3pGro+GFLbhUqsS7U4VHoo
2uRRRZVS3iu8/TOopfYpa4lJ8i/vVVKXhkaHt34GtdWR2lWP8PYCkW+xOFxK
fnRNk2LiDf8QNMxL6H97BF/pigem8lkNI+FE3XoHBOmGmnZJWq9c/r3ko2/6
26CZ0CuHZq51CoJgbCn9m+5bKzUXW8SSnOly7l2lOG//VKulPlW1VOnRL5R9
s7rEcHD+zZ9qTW0ZHtJkUpiy2OFilb7rGTS7i2UkLTX4UgXzFIWnl8Hp3TdC
hTVlQToZqYECFTWm0jpla3XCAmohYOWtn2jFdEhVMTLk9cDvgret4lFO/2xD
Yy+6dNVPrrICs3tnN6o5SirX5OjW3DEF04p9SoNoQZd2I9aU6yDL712qwbKa
KmRpcKUyyCLRbbPx1k+yWrZM3dzwCDc/aiyNX7o+pJ9a9VOtK56qNhm/W7bV
lcZUEcPisv6itBnMhg2LzX4lPLXNVmUbAg6anCu1lKavHJR9M6MMPN0oF4HK
oS/6Ihn+4prej7duOqevm3LsZb7FOOqZqAx5+PT6T6zeSvNNXXZdR03LHlc2
/V4xzTB4bIwrUHiiT8WTha8el4MFLB6nqtY/J7/F8pVHc7V6DVe7+21BBifX
jTap4lppgjxrLF/16jKHRBaawgd4vfmTq5cOKeqlfFpGn4v0ubZ0axkUgs9W
o/tx11TH8NjodxSLN8SU3bPKVhOu3UJItxK9yAurc0WFX2rzzv80BHAnuVa9
yubuXGm5vXojPPevG+EZ7fS7sRgDw0ptWV/s+kvu7i6h/7VpopTY4EDDrp5N
R5Y69QblJdPQbW6U9u0WfuZXLXz/CAuPVLi+PHhsL1XhlyqxyH/4Nf+qc0iS
wfOq+Hlad+qf72D89MsWvfvXLXp3B7Es6z3VUJJveW5Qv1TnpUMO41jhf/1/
/QkBhA==\
\>"]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Max", "@", 
  RowBox[{"Flatten", "[", 
   RowBox[{"Union", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"GetFields", "[", 
       RowBox[{"#", ",", 
        RowBox[{"{", "\"\<shift\>\"", "}"}]}], "]"}], "&"}], "/@", "$res"}], 
    "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.61744031869725*^9, 3.617440347404281*^9}}],

Cell[BoxData["0.5762315929775566`"], "Output",
 CellChangeTimes->{{3.6174403226035*^9, 3.617440347839828*^9}}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["\:0412\:0441\:0435 \:043f\:043e\:043b\:044f \:043e\:043f\:0440\:0435\
\:0434\:0435\:043b\:0451\:043d\:043d\:043e\:0433\:043e \:0442\:0438\:043f\
\:0430", "Subsubsection",
 CellChangeTimes->{{3.409559282888*^9, 3.40955929567*^9}, {3.409561191457*^9, 
  3.40956119519*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"GetField", "[", 
   RowBox[{"res_", ",", "field_String"}], "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"num", "=", 
      RowBox[{"Position", "[", 
       RowBox[{"fields", ",", "field"}], "]"}]}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Length", "[", "num", "]"}], "<", "1"}], ",", 
       RowBox[{
        RowBox[{"Print", "[", 
         RowBox[{
         "\"\<Field \\\"\>\"", "<>", "field", "<>", 
          "\"\<\\\" not found\>\""}], "]"}], ";", 
        RowBox[{"Return", "[", "$Failed", "]"}]}]}], "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"Extract", "[", 
      RowBox[{"res", ",", 
       RowBox[{"First", "[", "num", "]"}]}], "]"}]}]}], "\[IndentingNewLine]",
    "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"GetFields", "[", 
   RowBox[{"res_", ",", "fs_List"}], "]"}], ":=", 
  RowBox[{
   RowBox[{
    RowBox[{"GetField", "[", 
     RowBox[{"res", ",", "#"}], "]"}], "&"}], "/@", 
   "fs"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ShowTable", "[", 
   RowBox[{"fromres_", ",", "fs_List"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"Prepend", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"GetFields", "[", 
        RowBox[{"#", ",", "fs"}], "]"}], "&"}], "/@", "fromres"}], ",", 
     "fs"}], "]"}], "//", "TableForm"}]}]}], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.4095593701809998`*^9, 3.409559512583*^9}, {
  3.409560582448*^9, 3.4095606124969997`*^9}, {3.417504984085*^9, 
  3.4175049875810003`*^9}, {3.417505187724*^9, 3.417505226184*^9}, {
  3.630637760960843*^9, 3.6306377760777082`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GetField", "[", 
  RowBox[{
   RowBox[{"Union", "/@", 
    RowBox[{"Transpose", "[", "$res", "]"}]}], ",", "\"\<F(r)\>\""}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.419670912758*^9, 3.4196709454630003`*^9}, {
  3.4196710710299997`*^9, 3.419671073158*^9}, {3.41977117081*^9, 
  3.419771176659*^9}, {3.426399473142*^9, 3.42639949856*^9}, {
  3.4425060506940002`*^9, 3.4425060530880003`*^9}, {3.505800718015625*^9, 
  3.50580072146875*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"1\"\>", ",", "\<\"dp\"\>", ",", "\<\"dp1\"\>", 
   ",", "\<\"epsr\"\>"}], "}"}]], "Output",
 CellChangeTimes->{
  3.4196709458529997`*^9, 3.419671073733*^9, {3.419671389295*^9, 
   3.4196713946429996`*^9}, {3.419771168224*^9, 3.419771176949*^9}, 
   3.426399392554*^9, 3.426399474976*^9, {3.4263995075290003`*^9, 
   3.42639958476*^9}, {3.442506047337*^9, 3.442506053637*^9}, {
   3.505800721828125*^9, 3.505800748640625*^9}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"MapThread", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Join", "[", 
      RowBox[{
       RowBox[{"{", "#1", "}"}], ",", "#2"}], "]"}], "&"}], ",", 
    RowBox[{"{", 
     RowBox[{"fields", ",", 
      RowBox[{"Union", "/@", 
       RowBox[{"Transpose", "[", "$res", "]"}]}]}], "}"}]}], "]"}], "//", 
  "TableForm"}]], "Input",
 CellChangeTimes->{{3.409559649942*^9, 3.409559663453*^9}, {3.409560312828*^9,
   3.409560323317*^9}, {3.409560379192*^9, 3.409560412811*^9}, {
  3.409561273115*^9, 3.4095612737679996`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Select", "[", 
   RowBox[{
    RowBox[{"MapThread", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"Join", "[", 
        RowBox[{
         RowBox[{"{", "#1", "}"}], ",", "#2"}], "]"}], "&"}], ",", 
      RowBox[{"{", 
       RowBox[{"fields", ",", 
        RowBox[{"Union", "/@", 
         RowBox[{"Transpose", "[", "$res", "]"}]}]}], "}"}]}], "]"}], ",", 
    RowBox[{
     RowBox[{
      RowBox[{"Length", "[", "#", "]"}], ">", "3"}], "&"}]}], "]"}], "//", 
  "TableForm"}]], "Input",
 CellChangeTimes->{{3.4197712960369997`*^9, 3.41977131575*^9}}]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:0424\:0438\:043b\:044c\:0442\:0440\:0430\:0446\:0438\:044f", \
"Subsection",
 CellChangeTimes->{{3.4095611636470003`*^9, 3.409561165227*^9}, 
   3.419671549007*^9, {3.6308198926871824`*^9, 3.630819895703355*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Length", "[", 
  RowBox[{"FilterWrong", "[", 
   RowBox[{"all", ",", "\"\<mvy\>\""}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.626673078044922*^9, 3.626673083888672*^9}, {
  3.630637642432064*^9, 3.6306376556028175`*^9}, {3.6306377986069965`*^9, 
  3.6306378247154903`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\:041f\:0430\:0440\:0430\:043c\:0435\:0442\:0440\:044b \:043d\
\:0443\:0436\:0434\:0430\:044e\:0442\:0441\:044f \:0432 \:0432\:044b\:0431\
\:043e\:0440\:0435: \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "0", ",", "0.0001`", ",", "\<\"dp\"\>", ",", "0"}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "0.1`", ",", "0.0001`", ",", "\<\"dp\"\>", ",", "0"}],
       "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "0.2`", ",", "0.0001`", ",", "\<\"dp\"\>", ",", "0"}],
       "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "0.3`", ",", "0.0001`", ",", "\<\"dp\"\>", ",", "0"}],
       "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "0.4`", ",", "0.0001`", ",", "\<\"dp\"\>", ",", "0"}],
       "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "0.5`", ",", "0.0001`", ",", "\<\"dp\"\>", ",", "0"}],
       "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"10", ",", "0", ",", "0.0001`", ",", "\<\"dp\"\>", ",", "0"}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "10", ",", "0.1`", ",", "0.0001`", ",", "\<\"dp\"\>", ",", "0"}], "}"}],
      ",", 
     RowBox[{"{", 
      RowBox[{
      "10", ",", "0.2`", ",", "0.0001`", ",", "\<\"dp\"\>", ",", "0"}], "}"}],
      ",", 
     RowBox[{"{", 
      RowBox[{
      "10", ",", "0.3`", ",", "0.0001`", ",", "\<\"dp\"\>", ",", "0"}], "}"}],
      ",", 
     RowBox[{"{", 
      RowBox[{
      "10", ",", "0.4`", ",", "0.0001`", ",", "\<\"dp\"\>", ",", "0"}], "}"}],
      ",", 
     RowBox[{"{", 
      RowBox[{
      "10", ",", "0.5`", ",", "0.0001`", ",", "\<\"dp\"\>", ",", "0"}], "}"}],
      ",", 
     RowBox[{"{", 
      RowBox[{
      "30", ",", "0.5`", ",", "0.0001`", ",", "\<\"dp\"\>", ",", "0"}], "}"}],
      ",", 
     RowBox[{"{", 
      RowBox[{
      "40", ",", "0.1`", ",", "0.0001`", ",", "\<\"dp\"\>", ",", "0"}], "}"}],
      ",", 
     RowBox[{"{", 
      RowBox[{
      "40", ",", "0.2`", ",", "0.0001`", ",", "\<\"dp\"\>", ",", "0"}], "}"}],
      ",", 
     RowBox[{"{", 
      RowBox[{
      "40", ",", "0.5`", ",", "0.0001`", ",", "\<\"dp\"\>", ",", "0"}], "}"}],
      ",", 
     RowBox[{"{", 
      RowBox[{
      "20", ",", "0.5`", ",", "0.0001`", ",", "\<\"dp\"\>", ",", "0"}], "}"}],
      ",", 
     RowBox[{"{", 
      RowBox[{"70", ",", "0", ",", "0.0001`", ",", "\<\"dp\"\>", ",", "0"}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "70", ",", "0.1`", ",", "0.0001`", ",", "\<\"dp\"\>", ",", "0"}], "}"}],
      ",", 
     RowBox[{"{", 
      RowBox[{
      "1", ",", "0.25`", ",", "0.0001`", ",", "\<\"dp\"\>", ",", "0"}], "}"}],
      ",", 
     RowBox[{"{", 
      RowBox[{
      "50", ",", "0.5`", ",", "0.0001`", ",", "\<\"dp\"\>", ",", "0"}], "}"}],
      ",", 
     RowBox[{"{", 
      RowBox[{
      "60", ",", "0.5`", ",", "0.0001`", ",", "\<\"dp\"\>", ",", "0"}], "}"}],
      ",", 
     RowBox[{"{", 
      RowBox[{
      "70", ",", "0.5`", ",", "0.0001`", ",", "\<\"dp\"\>", ",", "0"}], "}"}],
      ",", 
     RowBox[{"{", 
      RowBox[{
      "80", ",", "0.5`", ",", "0.0001`", ",", "\<\"dp\"\>", ",", "0"}], "}"}],
      ",", 
     RowBox[{"{", 
      RowBox[{
      "90", ",", "0.5`", ",", "0.0001`", ",", "\<\"dp\"\>", ",", "0"}], "}"}],
      ",", 
     RowBox[{"{", 
      RowBox[{
      "10", ",", "0.05`", ",", "0.0001`", ",", "\<\"dp\"\>", ",", "0"}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"100", ",", "0", ",", "0.0001`", ",", "\<\"dp\"\>", ",", "0"}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "100", ",", "0.1`", ",", "0.0001`", ",", "\<\"dp\"\>", ",", "0"}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "100", ",", "0.2`", ",", "0.0001`", ",", "\<\"dp\"\>", ",", "0"}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "100", ",", "0.3`", ",", "0.0001`", ",", "\<\"dp\"\>", ",", "0"}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "100", ",", "0.4`", ",", "0.0001`", ",", "\<\"dp\"\>", ",", "0"}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "100", ",", "0.5`", ",", "0.0001`", ",", "\<\"dp\"\>", ",", "0"}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "100", ",", "0.05`", ",", "0.0001`", ",", "\<\"dp\"\>", ",", "0"}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "110", ",", "0.5`", ",", "0.0001`", ",", "\<\"dp\"\>", ",", "0"}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "200", ",", "0.05`", ",", "0.0001`", ",", "\<\"dp\"\>", ",", "0"}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "200", ",", "0.5`", ",", "0.0001`", ",", "\<\"dp\"\>", ",", "0"}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "10", ",", "0.6`", ",", "0.0001`", ",", "\<\"dp\"\>", ",", "0"}], "}"}],
      ",", 
     RowBox[{"{", 
      RowBox[{"10", ",", "0.5`", ",", "0.0001`", ",", "\<\"r\"\>", ",", "0"}],
       "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"20", ",", "0.5`", ",", "0.0001`", ",", "\<\"r\"\>", ",", "0"}],
       "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"30", ",", "0.5`", ",", "0.0001`", ",", "\<\"r\"\>", ",", "0"}],
       "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"40", ",", "0.5`", ",", "0.0001`", ",", "\<\"r\"\>", ",", "0"}],
       "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"50", ",", "0.5`", ",", "0.0001`", ",", "\<\"r\"\>", ",", "0"}],
       "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"50", ",", "0.5`", ",", "0.0001`", ",", "\<\"1\"\>", ",", "0"}],
       "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"30", ",", "0.5`", ",", "0.0001`", ",", "\<\"1\"\>", ",", "0"}],
       "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"80", ",", "0.5`", ",", "0.0001`", ",", "\<\"1\"\>", ",", "0"}],
       "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"90", ",", "0.5`", ",", "0.0001`", ",", "\<\"1\"\>", ",", "0"}],
       "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "100", ",", "0.5`", ",", "0.0001`", ",", "\<\"1\"\>", ",", "0"}], "}"}],
      ",", 
     RowBox[{"{", 
      RowBox[{
      "110", ",", "0.5`", ",", "0.0001`", ",", "\<\"1\"\>", ",", "0"}], "}"}],
      ",", 
     RowBox[{"{", 
      RowBox[{
      "120", ",", "0.5`", ",", "0.0001`", ",", "\<\"1\"\>", ",", "0"}], "}"}],
      ",", 
     RowBox[{"{", 
      RowBox[{
      "100", ",", "0.6`", ",", "0.0001`", ",", "\<\"1\"\>", ",", "0"}], "}"}],
      ",", 
     RowBox[{"{", 
      RowBox[{
      "200", ",", "0.6`", ",", "0.0001`", ",", "\<\"1\"\>", ",", "0"}], "}"}],
      ",", 
     RowBox[{"{", 
      RowBox[{
      "100", ",", "0.7`", ",", "0.0001`", ",", "\<\"1\"\>", ",", "0"}], "}"}],
      ",", 
     RowBox[{"{", 
      RowBox[{
      "160", ",", "0.7`", ",", "0.0001`", ",", "\<\"1\"\>", ",", "0"}], "}"}],
      ",", 
     RowBox[{"{", 
      RowBox[{
      "220", ",", "0.7`", ",", "0.0001`", ",", "\<\"1\"\>", ",", "0"}], "}"}],
      ",", 
     RowBox[{"{", 
      RowBox[{"30", ",", "0.9`", ",", "0.0001`", ",", "\<\"1\"\>", ",", "0"}],
       "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"50", ",", "0.9`", ",", "0.0001`", ",", "\<\"1\"\>", ",", "0"}],
       "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "120", ",", "0.9`", ",", "0.0001`", ",", "\<\"1\"\>", ",", "0"}], "}"}],
      ",", 
     RowBox[{"{", 
      RowBox[{"10", ",", "0.9`", ",", "0.0001`", ",", "\<\"r\"\>", ",", "0"}],
       "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"10", ",", "0.8`", ",", "0.0001`", ",", "\<\"r\"\>", ",", "0"}],
       "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"10", ",", "0.7`", ",", "0.0001`", ",", "\<\"r\"\>", ",", "0"}],
       "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "100", ",", "0.6`", ",", "0.0001`", ",", "\<\"r\"\>", ",", "0"}], "}"}],
      ",", 
     RowBox[{"{", 
      RowBox[{"80", ",", "0.5`", ",", "0.0001`", ",", "\<\"r\"\>", ",", "0"}],
       "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "10", ",", "0.9`", ",", "0.0001`", ",", "\<\"dp\"\>", ",", "0"}], "}"}],
      ",", 
     RowBox[{"{", 
      RowBox[{
      "100", ",", "0.9`", ",", "0.0001`", ",", "\<\"dp\"\>", ",", "0"}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "120", ",", "0.9`", ",", "0.0001`", ",", "\<\"dp\"\>", ",", "0"}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "200", ",", "0.9`", ",", "0.0001`", ",", "\<\"dp\"\>", ",", "0"}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"10", ",", "0.3`", ",", "0.0001`", ",", "\<\"1\"\>", ",", "0"}],
       "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "100", ",", "0.3`", ",", "0.0001`", ",", "\<\"1\"\>", ",", "0"}], "}"}],
      ",", 
     RowBox[{"{", 
      RowBox[{
      "210", ",", "0.3`", ",", "0.0001`", ",", "\<\"1\"\>", ",", "0"}], "}"}],
      ",", 
     RowBox[{"{", 
      RowBox[{
      "250", ",", "0.5`", ",", "0.0001`", ",", "\<\"1\"\>", ",", "0"}], "}"}],
      ",", 
     RowBox[{"{", 
      RowBox[{
      "100", ",", "0.05`", ",", "0.0001`", ",", "\<\"1\"\>", ",", "0"}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "100", ",", "0.4`", ",", "0.0001`", ",", "\<\"1\"\>", ",", "0"}], "}"}],
      ",", 
     RowBox[{"{", 
      RowBox[{
      "200", ",", "0.05`", ",", "0.0001`", ",", "\<\"1\"\>", ",", "0"}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "10", ",", "0.05`", ",", "0.0001`", ",", "\<\"1\"\>", ",", "0"}], "}"}],
      ",", 
     RowBox[{"{", 
      RowBox[{"10", ",", "0.4`", ",", "0.0001`", ",", "\<\"1\"\>", ",", "0"}],
       "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "100", ",", "0.2`", ",", "0.0001`", ",", "\<\"1\"\>", ",", "0"}], "}"}],
      ",", 
     RowBox[{"{", 
      RowBox[{
      "100", ",", "0.75`", ",", "0.0001`", ",", "\<\"1\"\>", ",", "0"}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "200", ",", "0.85`", ",", "0.0001`", ",", "\<\"1\"\>", ",", "0"}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "70", ",", "0.05`", ",", "0.0001`", ",", "\<\"1\"\>", ",", "0"}], "}"}],
      ",", 
     RowBox[{"{", 
      RowBox[{
      "80", ",", "0.05`", ",", "0.0001`", ",", "\<\"1\"\>", ",", "0"}], "}"}],
      ",", 
     RowBox[{"{", 
      RowBox[{
      "140", ",", "0.05`", ",", "0.0001`", ",", "\<\"1\"\>", ",", "0"}], 
      "}"}]}], "}"}]}],
  SequenceForm[
  "\:041f\:0430\:0440\:0430\:043c\:0435\:0442\:0440\:044b \:043d\:0443\:0436\
\:0434\:0430\:044e\:0442\:0441\:044f \:0432 \:0432\:044b\:0431\:043e\:0440\
\:0435: ", {{1, 0, 0.0001, "dp", 0}, {1, 0.1, 0.0001, "dp", 0}, {
    1, 0.2, 0.0001, "dp", 0}, {1, 0.3, 0.0001, "dp", 0}, {
    1, 0.4, 0.0001, "dp", 0}, {1, 0.5, 0.0001, "dp", 0}, {
    10, 0, 0.0001, "dp", 0}, {10, 0.1, 0.0001, "dp", 0}, {
    10, 0.2, 0.0001, "dp", 0}, {10, 0.3, 0.0001, "dp", 0}, {
    10, 0.4, 0.0001, "dp", 0}, {10, 0.5, 0.0001, "dp", 0}, {
    30, 0.5, 0.0001, "dp", 0}, {40, 0.1, 0.0001, "dp", 0}, {
    40, 0.2, 0.0001, "dp", 0}, {40, 0.5, 0.0001, "dp", 0}, {
    20, 0.5, 0.0001, "dp", 0}, {70, 0, 0.0001, "dp", 0}, {
    70, 0.1, 0.0001, "dp", 0}, {1, 0.25, 0.0001, "dp", 0}, {
    50, 0.5, 0.0001, "dp", 0}, {60, 0.5, 0.0001, "dp", 0}, {
    70, 0.5, 0.0001, "dp", 0}, {80, 0.5, 0.0001, "dp", 0}, {
    90, 0.5, 0.0001, "dp", 0}, {10, 0.05, 0.0001, "dp", 0}, {
    100, 0, 0.0001, "dp", 0}, {100, 0.1, 0.0001, "dp", 0}, {
    100, 0.2, 0.0001, "dp", 0}, {100, 0.3, 0.0001, "dp", 0}, {
    100, 0.4, 0.0001, "dp", 0}, {100, 0.5, 0.0001, "dp", 0}, {
    100, 0.05, 0.0001, "dp", 0}, {110, 0.5, 0.0001, "dp", 0}, {
    200, 0.05, 0.0001, "dp", 0}, {200, 0.5, 0.0001, "dp", 0}, {
    10, 0.6, 0.0001, "dp", 0}, {10, 0.5, 0.0001, "r", 0}, {
    20, 0.5, 0.0001, "r", 0}, {30, 0.5, 0.0001, "r", 0}, {
    40, 0.5, 0.0001, "r", 0}, {50, 0.5, 0.0001, "r", 0}, {
    50, 0.5, 0.0001, "1", 0}, {30, 0.5, 0.0001, "1", 0}, {
    80, 0.5, 0.0001, "1", 0}, {90, 0.5, 0.0001, "1", 0}, {
    100, 0.5, 0.0001, "1", 0}, {110, 0.5, 0.0001, "1", 0}, {
    120, 0.5, 0.0001, "1", 0}, {100, 0.6, 0.0001, "1", 0}, {
    200, 0.6, 0.0001, "1", 0}, {100, 0.7, 0.0001, "1", 0}, {
    160, 0.7, 0.0001, "1", 0}, {220, 0.7, 0.0001, "1", 0}, {
    30, 0.9, 0.0001, "1", 0}, {50, 0.9, 0.0001, "1", 0}, {
    120, 0.9, 0.0001, "1", 0}, {10, 0.9, 0.0001, "r", 0}, {
    10, 0.8, 0.0001, "r", 0}, {10, 0.7, 0.0001, "r", 0}, {
    100, 0.6, 0.0001, "r", 0}, {80, 0.5, 0.0001, "r", 0}, {
    10, 0.9, 0.0001, "dp", 0}, {100, 0.9, 0.0001, "dp", 0}, {
    120, 0.9, 0.0001, "dp", 0}, {200, 0.9, 0.0001, "dp", 0}, {
    10, 0.3, 0.0001, "1", 0}, {100, 0.3, 0.0001, "1", 0}, {
    210, 0.3, 0.0001, "1", 0}, {250, 0.5, 0.0001, "1", 0}, {
    100, 0.05, 0.0001, "1", 0}, {100, 0.4, 0.0001, "1", 0}, {
    200, 0.05, 0.0001, "1", 0}, {10, 0.05, 0.0001, "1", 0}, {
    10, 0.4, 0.0001, "1", 0}, {100, 0.2, 0.0001, "1", 0}, {
    100, 0.75, 0.0001, "1", 0}, {200, 0.85, 0.0001, "1", 0}, {
    70, 0.05, 0.0001, "1", 0}, {80, 0.05, 0.0001, "1", 0}, {
    140, 0.05, 0.0001, "1", 0}}],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.6306376562928567`*^9, {3.630637783088109*^9, 3.6306378254775333`*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\:041e\:0442\:0444\:0438\:043b\:044c\:0442\:0440\:043e\:0432\
\:0430\:043d\:043e \"\>", "\[InvisibleSpace]", "108", 
   "\[InvisibleSpace]", "\<\" \:0437\:0430\:043f\:0438\:0441\:0435\:0439 \
\:0441 \:0431\:043e\:043b\:044c\:0448\:0435\:0439 \:043f\:043e\:0433\:0440\
\:0435\:0448\:043d\:043e\:0441\:0442\:044c\:044e\"\>"}],
  SequenceForm[
  "\:041e\:0442\:0444\:0438\:043b\:044c\:0442\:0440\:043e\:0432\:0430\:043d\
\:043e ", 108, 
   " \:0437\:0430\:043f\:0438\:0441\:0435\:0439 \:0441 \:0431\:043e\:043b\
\:044c\:0448\:0435\:0439 \:043f\:043e\:0433\:0440\:0435\:0448\:043d\:043e\
\:0441\:0442\:044c\:044e"],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.6306376562928567`*^9, {3.630637783088109*^9, 3.6306378254855337`*^9}}]
}, Open  ]],

Cell[BoxData["578"], "Output",
 CellChangeTimes->{{3.626673079779297*^9, 3.626673084185547*^9}, 
   3.6306376251460752`*^9, 3.630637660007069*^9, {3.6306377861772857`*^9, 
   3.6306378262355766`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FilterWrong", "[", 
  RowBox[{
   RowBox[{"Select", "[", 
    RowBox[{"all", ",", 
     RowBox[{
      RowBox[{
       RowBox[{"Take", "[", 
        RowBox[{"#", ",", 
         RowBox[{"{", 
          RowBox[{"5", ",", "indepkol"}], "}"}]}], "]"}], "==", 
       RowBox[{"{", 
        RowBox[{
        "140", ",", "0.05`", ",", "0.0001`", ",", "\"\<1\>\"", ",", "0"}], 
        "}"}]}], "&"}]}], "]"}], ",", "\"\<shift\>\""}], "]"}]], "Input",
 CellChangeTimes->{{3.626674785263672*^9, 3.626674785263672*^9}, 
   3.626675103966797*^9, {3.6306378715811706`*^9, 3.630637893031398*^9}, 
   3.63063840324758*^9, {3.630638533691041*^9, 3.6306385431695833`*^9}}],

Cell[CellGroupData[{

Cell[BoxData["\<\"Field \\\"\[Delta]shift\\\" not found\"\>"], "Print",
 CellChangeTimes->{3.6306385436616116`*^9}],

Cell[BoxData["\<\"Field \\\"\[Delta]shift\\\" not found\"\>"], "Print",
 CellChangeTimes->{3.6306385436636114`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\:041f\:0430\:0440\:0430\:043c\:0435\:0442\:0440\:044b \:0432 \
\:0435\:0434\:0438\:043d\:0441\:0442\:0432\:0435\:043d\:043d\:043e\:043c \
\:0432\:0430\:0440\:0438\:0430\:043d\:0442\:0435: \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", "}"}]}],
  SequenceForm[
  "\:041f\:0430\:0440\:0430\:043c\:0435\:0442\:0440\:044b \:0432 \:0435\:0434\
\:0438\:043d\:0441\:0442\:0432\:0435\:043d\:043d\:043e\:043c \:0432\:0430\
\:0440\:0438\:0430\:043d\:0442\:0435: ", {}],
  Editable->False]], "Print",
 CellChangeTimes->{3.6306385436666117`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\:041f\:0430\:0440\:0430\:043c\:0435\:0442\:0440\:044b \:043d\
\:0443\:0436\:0434\:0430\:044e\:0442\:0441\:044f \:0432 \:0432\:044b\:0431\
\:043e\:0440\:0435: \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"{", 
     RowBox[{
     "140", ",", "0.05`", ",", "0.0001`", ",", "\<\"1\"\>", ",", "0"}], "}"}],
     "}"}]}],
  SequenceForm[
  "\:041f\:0430\:0440\:0430\:043c\:0435\:0442\:0440\:044b \:043d\:0443\:0436\
\:0434\:0430\:044e\:0442\:0441\:044f \:0432 \:0432\:044b\:0431\:043e\:0440\
\:0435: ", {{140, 0.05, 0.0001, "1", 0}}],
  Editable->False]], "Print",
 CellChangeTimes->{3.6306385436706123`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\:041e\:0442\:0444\:0438\:043b\:044c\:0442\:0440\:043e\:0432\
\:0430\:043d\:043e \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" \:0437\:0430\:043f\:0438\:0441\:0435\:0439 \
\:0441 \:0431\:043e\:043b\:044c\:0448\:0435\:0439 \:043f\:043e\:0433\:0440\
\:0435\:0448\:043d\:043e\:0441\:0442\:044c\:044e\"\>"}],
  SequenceForm[
  "\:041e\:0442\:0444\:0438\:043b\:044c\:0442\:0440\:043e\:0432\:0430\:043d\
\:043e ", 1, 
   " \:0437\:0430\:043f\:0438\:0441\:0435\:0439 \:0441 \:0431\:043e\:043b\
\:044c\:0448\:0435\:0439 \:043f\:043e\:0433\:0440\:0435\:0448\:043d\:043e\
\:0441\:0442\:044c\:044e"],
  Editable->False]], "Print",
 CellChangeTimes->{3.630638543673612*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
   "2014", ",", "12", ",", "3", ",", "256", ",", "140", ",", "0.05`", ",", 
    "0.0001`", ",", "\<\"1\"\>", ",", "0", ",", "0.49706376349088965`", ",", 
    "0.050164230845837376`", ",", "0.0000999`", ",", "0.7383093391882145`", 
    ",", "0.000393`", ",", "0.034120705083939454`", ",", "0.0000672`", ",", 
    "0.0004953662571916434`", ",", "1.92`*^-6", ",", "0.1602405037973785`", 
    ",", "0.000162`", ",", "0.0001760935076270103`", ",", "6.83`*^-7", ",", 
    "0.016755973243997684`", ",", "0.0004889675539969307`", 
    ",", "\<\"ErrScale 1e-4\"\>"}], "}"}], "}"}]], "Output",
 CellChangeTimes->{3.6306378934324207`*^9, 3.6306384044316483`*^9, 
  3.6306385436776123`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"$badpars", "=", 
  RowBox[{
   RowBox[{
    RowBox[{"Take", "[", 
     RowBox[{
      RowBox[{"First", "[", "#", "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"5", ",", "indepkol"}], "}"}]}], "]"}], "&"}], "/@", 
   RowBox[{"Select", "[", 
    RowBox[{
     RowBox[{"Tally", "[", 
      RowBox[{"all", ",", 
       RowBox[{
        RowBox[{
         RowBox[{"Take", "[", 
          RowBox[{"#1", ",", 
           RowBox[{"{", 
            RowBox[{"5", ",", "indepkol"}], "}"}]}], "]"}], "==", 
         RowBox[{"Take", "[", 
          RowBox[{"#2", ",", 
           RowBox[{"{", 
            RowBox[{"5", ",", "indepkol"}], "}"}]}], "]"}]}], "&"}]}], "]"}], 
     ",", 
     RowBox[{
      RowBox[{
       RowBox[{"Last", "[", "#", "]"}], ">", "1"}], "&"}]}], 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.6308199278041906`*^9, 3.630820055222479*^9}, {
  3.630820267772636*^9, 3.630820269277722*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "0", ",", "0.0001`", ",", "\<\"dp\"\>", ",", "0"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "0.1`", ",", "0.0001`", ",", "\<\"dp\"\>", ",", "0"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "0.2`", ",", "0.0001`", ",", "\<\"dp\"\>", ",", "0"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "0.3`", ",", "0.0001`", ",", "\<\"dp\"\>", ",", "0"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "0.4`", ",", "0.0001`", ",", "\<\"dp\"\>", ",", "0"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "0.5`", ",", "0.0001`", ",", "\<\"dp\"\>", ",", "0"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"10", ",", "0", ",", "0.0001`", ",", "\<\"dp\"\>", ",", "0"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"10", ",", "0.1`", ",", "0.0001`", ",", "\<\"dp\"\>", ",", "0"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"10", ",", "0.2`", ",", "0.0001`", ",", "\<\"dp\"\>", ",", "0"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"10", ",", "0.3`", ",", "0.0001`", ",", "\<\"dp\"\>", ",", "0"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"10", ",", "0.4`", ",", "0.0001`", ",", "\<\"dp\"\>", ",", "0"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"10", ",", "0.5`", ",", "0.0001`", ",", "\<\"dp\"\>", ",", "0"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"30", ",", "0.5`", ",", "0.0001`", ",", "\<\"dp\"\>", ",", "0"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"40", ",", "0.1`", ",", "0.0001`", ",", "\<\"dp\"\>", ",", "0"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"40", ",", "0.2`", ",", "0.0001`", ",", "\<\"dp\"\>", ",", "0"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"40", ",", "0.5`", ",", "0.0001`", ",", "\<\"dp\"\>", ",", "0"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"20", ",", "0.5`", ",", "0.0001`", ",", "\<\"dp\"\>", ",", "0"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"70", ",", "0", ",", "0.0001`", ",", "\<\"dp\"\>", ",", "0"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"70", ",", "0.1`", ",", "0.0001`", ",", "\<\"dp\"\>", ",", "0"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "0.25`", ",", "0.0001`", ",", "\<\"dp\"\>", ",", "0"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"50", ",", "0.5`", ",", "0.0001`", ",", "\<\"dp\"\>", ",", "0"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"60", ",", "0.5`", ",", "0.0001`", ",", "\<\"dp\"\>", ",", "0"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"70", ",", "0.5`", ",", "0.0001`", ",", "\<\"dp\"\>", ",", "0"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"80", ",", "0.5`", ",", "0.0001`", ",", "\<\"dp\"\>", ",", "0"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"90", ",", "0.5`", ",", "0.0001`", ",", "\<\"dp\"\>", ",", "0"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"10", ",", "0.05`", ",", "0.0001`", ",", "\<\"dp\"\>", ",", "0"}],
     "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"100", ",", "0", ",", "0.0001`", ",", "\<\"dp\"\>", ",", "0"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"100", ",", "0.1`", ",", "0.0001`", ",", "\<\"dp\"\>", ",", "0"}],
     "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"100", ",", "0.2`", ",", "0.0001`", ",", "\<\"dp\"\>", ",", "0"}],
     "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"100", ",", "0.3`", ",", "0.0001`", ",", "\<\"dp\"\>", ",", "0"}],
     "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"100", ",", "0.4`", ",", "0.0001`", ",", "\<\"dp\"\>", ",", "0"}],
     "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"100", ",", "0.5`", ",", "0.0001`", ",", "\<\"dp\"\>", ",", "0"}],
     "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "100", ",", "0.05`", ",", "0.0001`", ",", "\<\"dp\"\>", ",", "0"}], "}"}],
    ",", 
   RowBox[{"{", 
    RowBox[{"110", ",", "0.5`", ",", "0.0001`", ",", "\<\"dp\"\>", ",", "0"}],
     "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "200", ",", "0.05`", ",", "0.0001`", ",", "\<\"dp\"\>", ",", "0"}], "}"}],
    ",", 
   RowBox[{"{", 
    RowBox[{"200", ",", "0.5`", ",", "0.0001`", ",", "\<\"dp\"\>", ",", "0"}],
     "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"10", ",", "0.6`", ",", "0.0001`", ",", "\<\"dp\"\>", ",", "0"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"10", ",", "0.5`", ",", "0.0001`", ",", "\<\"r\"\>", ",", "0"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"20", ",", "0.5`", ",", "0.0001`", ",", "\<\"r\"\>", ",", "0"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"30", ",", "0.5`", ",", "0.0001`", ",", "\<\"r\"\>", ",", "0"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"40", ",", "0.5`", ",", "0.0001`", ",", "\<\"r\"\>", ",", "0"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"50", ",", "0.5`", ",", "0.0001`", ",", "\<\"r\"\>", ",", "0"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"50", ",", "0.5`", ",", "0.0001`", ",", "\<\"1\"\>", ",", "0"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"30", ",", "0.5`", ",", "0.0001`", ",", "\<\"1\"\>", ",", "0"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"80", ",", "0.5`", ",", "0.0001`", ",", "\<\"1\"\>", ",", "0"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"90", ",", "0.5`", ",", "0.0001`", ",", "\<\"1\"\>", ",", "0"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"100", ",", "0.5`", ",", "0.0001`", ",", "\<\"1\"\>", ",", "0"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"110", ",", "0.5`", ",", "0.0001`", ",", "\<\"1\"\>", ",", "0"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"120", ",", "0.5`", ",", "0.0001`", ",", "\<\"1\"\>", ",", "0"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"100", ",", "0.6`", ",", "0.0001`", ",", "\<\"1\"\>", ",", "0"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"200", ",", "0.6`", ",", "0.0001`", ",", "\<\"1\"\>", ",", "0"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"100", ",", "0.7`", ",", "0.0001`", ",", "\<\"1\"\>", ",", "0"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"160", ",", "0.7`", ",", "0.0001`", ",", "\<\"1\"\>", ",", "0"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"220", ",", "0.7`", ",", "0.0001`", ",", "\<\"1\"\>", ",", "0"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"30", ",", "0.9`", ",", "0.0001`", ",", "\<\"1\"\>", ",", "0"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"50", ",", "0.9`", ",", "0.0001`", ",", "\<\"1\"\>", ",", "0"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"120", ",", "0.9`", ",", "0.0001`", ",", "\<\"1\"\>", ",", "0"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"10", ",", "0.9`", ",", "0.0001`", ",", "\<\"r\"\>", ",", "0"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"10", ",", "0.8`", ",", "0.0001`", ",", "\<\"r\"\>", ",", "0"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"10", ",", "0.7`", ",", "0.0001`", ",", "\<\"r\"\>", ",", "0"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"100", ",", "0.6`", ",", "0.0001`", ",", "\<\"r\"\>", ",", "0"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"80", ",", "0.5`", ",", "0.0001`", ",", "\<\"r\"\>", ",", "0"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"10", ",", "0.9`", ",", "0.0001`", ",", "\<\"dp\"\>", ",", "0"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"100", ",", "0.9`", ",", "0.0001`", ",", "\<\"dp\"\>", ",", "0"}],
     "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"120", ",", "0.9`", ",", "0.0001`", ",", "\<\"dp\"\>", ",", "0"}],
     "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"200", ",", "0.9`", ",", "0.0001`", ",", "\<\"dp\"\>", ",", "0"}],
     "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"10", ",", "0.3`", ",", "0.0001`", ",", "\<\"1\"\>", ",", "0"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"100", ",", "0.3`", ",", "0.0001`", ",", "\<\"1\"\>", ",", "0"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"210", ",", "0.3`", ",", "0.0001`", ",", "\<\"1\"\>", ",", "0"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"250", ",", "0.5`", ",", "0.0001`", ",", "\<\"1\"\>", ",", "0"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"100", ",", "0.05`", ",", "0.0001`", ",", "\<\"1\"\>", ",", "0"}],
     "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"100", ",", "0.4`", ",", "0.0001`", ",", "\<\"1\"\>", ",", "0"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"200", ",", "0.05`", ",", "0.0001`", ",", "\<\"1\"\>", ",", "0"}],
     "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"10", ",", "0.05`", ",", "0.0001`", ",", "\<\"1\"\>", ",", "0"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"10", ",", "0.4`", ",", "0.0001`", ",", "\<\"1\"\>", ",", "0"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"100", ",", "0.2`", ",", "0.0001`", ",", "\<\"1\"\>", ",", "0"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"100", ",", "0.75`", ",", "0.0001`", ",", "\<\"1\"\>", ",", "0"}],
     "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"200", ",", "0.85`", ",", "0.0001`", ",", "\<\"1\"\>", ",", "0"}],
     "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"70", ",", "0.05`", ",", "0.0001`", ",", "\<\"1\"\>", ",", "0"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"80", ",", "0.05`", ",", "0.0001`", ",", "\<\"1\"\>", ",", "0"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"140", ",", "0.05`", ",", "0.0001`", ",", "\<\"1\"\>", ",", "0"}],
     "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.6308199639432583`*^9, 3.6308200556345024`*^9}, 
   3.6308202697577496`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"ShowTable", "[", 
    RowBox[{
     RowBox[{"Select", "[", 
      RowBox[{
       RowBox[{"GetResults", "[", 
        RowBox[{"{", 
         RowBox[{"\"\<F(r)\>\"", "\[Rule]", "\"\<dp\>\""}], "}"}], "]"}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"Take", "[", 
          RowBox[{"#", ",", 
           RowBox[{"{", 
            RowBox[{"5", ",", "indepkol"}], "}"}]}], "]"}], "\[Equal]", 
         RowBox[{"$badpars", "[", 
          RowBox[{"[", "i", "]"}], "]"}]}], "&"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "\"\<year\>\"", ",", "\"\<month\>\"", ",", "\"\<day\>\"", ",", 
       "\"\<Nxz\>\"", ",", "\"\<Re\>\"", ",", "\"\<r/R\>\"", ",", 
       "\"\<F(r)\>\"", ",", "\"\<shift\>\"", ",", "\"\<mvx\>\"", ",", 
       "\"\<mvy\>\"", ",", "\"\<\[Delta]mvy\>\"", ",", "\"\<mvz\>\"", ",", 
       "\"\<Evx\>\"", ",", "\"\<Evy\>\"", ",", "\"\<\[Delta]Evy\>\"", ",", 
       "\"\<Evz\>\"", ",", "\"\<m\[Psi]\>\"", ",", 
       "\"\<\[Delta]m\[Psi]\>\""}], "}"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"i", ",", "1", ",", 
     RowBox[{"Length", "[", "$badpars", "]"}], ",", "1"}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.6308202717548637`*^9, 3.6308203352174935`*^9}, {
  3.6308203744537377`*^9, 3.630820414287016*^9}, {3.631328641259602*^9, 
  3.6313286540048246`*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`i$$ = 5, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`i$$], 1, 81, 1}}, Typeset`size$$ = {413., {22., 12.}},
     Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = 
    True, $CellContext`i$31877$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`i$$ = 1}, 
      "ControllerVariables" :> {
        Hold[$CellContext`i$$, $CellContext`i$31877$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> $CellContext`ShowTable[
        Select[
         $CellContext`GetResults[{"F(r)" -> "dp"}], 
         Take[#, {5, $CellContext`indepkol}] == 
         Part[$CellContext`$badpars, $CellContext`i$$]& ], {
        "year", "month", "day", "Nxz", "Re", "r/R", "F(r)", "shift", "mvx", 
         "mvy", "\[Delta]mvy", "mvz", "Evx", "Evy", "\[Delta]Evy", "Evz", 
         "m\[Psi]", "\[Delta]m\[Psi]"}], 
      "Specifications" :> {{$CellContext`i$$, 1, 81, 1}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{462., {61., 66.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{3.630820339466737*^9, 3.6308203758608184`*^9, 
  3.630820415526087*^9, 3.6313286624444394`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["\:0417\:0430\:0432\:0438\:0441\:0438\:043c\:043e\:0441\:0442\:0438", \
"Subsection",
 CellChangeTimes->{{3.4095611636470003`*^9, 3.409561165227*^9}, 
   3.419671549007*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"allfuncs", "=", 
  RowBox[{"Select", "[", 
   RowBox[{
    RowBox[{"Take", "[", 
     RowBox[{"fields", ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"indepkol", "+", "1"}], ",", 
        RowBox[{"-", "2"}]}], "}"}]}], "]"}], ",", 
    RowBox[{
     RowBox[{
      RowBox[{"Length", "[", 
       RowBox[{"StringPosition", "[", 
        RowBox[{"#", ",", "\"\<\[Delta]\>\""}], "]"}], "]"}], "\[Equal]", 
      "0"}], "&"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.4425061125629997`*^9, 3.4425061142609997`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"shift\"\>", ",", "\<\"mvx\"\>", ",", "\<\"mvy\"\>", 
   ",", "\<\"mvz\"\>", ",", "\<\"Evx\"\>", ",", "\<\"Evy\"\>", 
   ",", "\<\"Evz\"\>", ",", "\<\"m\[Psi]\"\>"}], "}"}]], "Output",
 CellChangeTimes->{3.408471057590534*^9, 3.4196715420559998`*^9, 
  3.419771337026*^9, 3.442506083234*^9, 3.442506115336*^9, 3.44594405227*^9, 
  3.4489594965*^9, 3.450075454890625*^9, 3.45024088746875*^9, 
  3.4504153455625*^9, 3.45171737490625*^9, 3.451887210078125*^9, 
  3.505797796734375*^9, 3.5058007673125*^9, 3.506068587546875*^9, 
  3.506239481548375*^9, 3.507270177458625*^9, 3.507288981396125*^9, 
  3.507347202794125*^9, 3.507535326887875*^9, 3.5080897059440684`*^9, 
  3.538727063078125*^9, 3.5940185184421873`*^9, 3.5986043082841797`*^9, 
  3.5986052330078125`*^9, 3.60174114188107*^9, 3.6022299569947968`*^9, 
  3.604216042772461*^9, 3.610261832334055*^9, 3.617692010117172*^9, 
  3.623479744223633*^9, 3.6266098952558594`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"ShowDependance", "[", 
  RowBox[{"\"\<Re\>\"", ",", "allfuncs", ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\"\<F(r)\>\"", "\[Rule]", "\"\<dp\>\""}], ",", 
     RowBox[{"\"\<r/R\>\"", "\[Rule]", "0.3"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.408471146521534*^9, 3.408471147683534*^9}, 
   3.408472045375534*^9, {3.5057978038125*^9, 3.505797811875*^9}, 
   3.505797844234375*^9, {3.505800693765625*^9, 3.505800698515625*^9}, {
   3.5058007571875*^9, 3.505800793109375*^9}, {3.505801012859375*^9, 
   3.50580101359375*^9}, {3.505803307984375*^9, 3.505803313546875*^9}, {
   3.505803429265625*^9, 3.5058034325625*^9}, {3.50623950634525*^9, 
   3.506239541048375*^9}, {3.50727026953675*^9, 3.5072702696305*^9}, {
   3.5073537060285*^9, 3.507353706466*^9}, 3.507353764637875*^9, 
   3.508090273623831*^9, 3.5080903489253597`*^9, {3.538727073046875*^9, 
   3.538727073625*^9}, 3.538728942421875*^9, {3.5940185314910154`*^9, 
   3.594018550485156*^9}, {3.594018606475391*^9, 3.5940186076472654`*^9}, {
   3.59401863929375*^9, 3.594018648037891*^9}, {3.598604312477539*^9, 
   3.598604315586914*^9}, 3.598605229732422*^9, 3.5986053406240234`*^9, 
   3.5992145418366175`*^9, 3.599287572576852*^9, 3.599298999714547*^9, 
   3.5993867227389607`*^9, 3.5993872269440393`*^9, {3.6043046785214844`*^9, 
   3.604304681192383*^9}, 3.6234807904541016`*^9, 3.6234810489365234`*^9, 
   3.6234812131835938`*^9, {3.6234871522626953`*^9, 3.623487152439453*^9}, 
   3.6247768076416016`*^9, 3.6247775889541016`*^9, 3.6247776442822266`*^9, 
   3.6247812978896484`*^9, {3.624781740404297*^9, 3.6247817407558594`*^9}, {
   3.624869589169922*^9, 3.624869589814453*^9}, 3.624870164915039*^9, 
   3.6248702010039062`*^9, 3.62487024975*^9, {3.625469216713867*^9, 
   3.6254691810615234`*^9}, 3.6259334328945312`*^9, 3.6259335960878906`*^9, 
   3.6259362330097656`*^9, {3.625936375298828*^9, 3.6259363810234375`*^9}, 
   3.6261167225966797`*^9, 3.626117534100586*^9, {3.626118177786133*^9, 
   3.626118194573242*^9}, {3.626118466645508*^9, 3.626118478291992*^9}, {
   3.626118595040039*^9, 3.6261186151748047`*^9}, {3.6265989587539062`*^9, 
   3.6265989599990234`*^9}, {3.626600851852539*^9, 3.6266008549296875`*^9}, {
   3.6266098898339844`*^9, 3.6266098918183594`*^9}, {3.6266111490527344`*^9, 
   3.6266111511152344`*^9}, 3.6266113979746094`*^9, {3.6266114916777344`*^9, 
   3.6266114941464844`*^9}, {3.6266203001796875`*^9, 3.6266203002617188`*^9}, 
   3.6266207882939453`*^9, {3.6266325525810547`*^9, 3.626632553209961*^9}, {
   3.6266652490410156`*^9, 3.6266652507285156`*^9}, {3.6266729105947266`*^9, 
   3.6266729107509766`*^9}, 3.626675106232422*^9}],

Cell[BoxData[
 RowBox[{"MapThread", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Show", "[", 
     RowBox[{"#1", ",", "#2"}], "]"}], "&"}], ",", 
   RowBox[{"{", 
    RowBox[{"%", ",", "%%"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.53872901328125*^9, 3.53872903734375*^9}, {
  3.6266206973203125`*^9, 3.626620699352539*^9}, {3.6266652657128906`*^9, 
  3.6266652810410156`*^9}}],

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{
   GraphicsBox[{{}, 
     {RGBColor[0.24720000000000014`, 0.24, 0.6], PointBox[CompressedData["
1:eJxTTMoPSmViYGCQB2IQDQEqDlZdLzcnZtTYw/iJdtuQ+CYOKdY7T30K64Hy
7RxupTyr7ZecCuW7OExIv86Stmc2lO/pcNhU4znv/wVQvp/DfN+wG0d3Lobw
GwIdPH8ePHfeahmc//VQ4l5ZVSifIcRB8Fjr28e6K+B8OTZNqU0Tl0PVhznk
Sd1/7ThvJVQ+0qFu2p3/JZdXwfn8rFrcS+5A+Q3RDuw2Blv7Z6yGysc5BDZZ
pLJrrIHwHRIc2F8kP06LhfIbEh0kHlxyVVi/Es4Xufc8eOPGjRD+gSQHQ42P
tSo7oeoZUhy6o/5ErRWDmZfq8OjcxozIszDz0hwmu9t0XlwD5R9Id+DQ37T2
2UuYezIdbBziVk6fgOCXbmPL6IbxHbIc+gtv+m5+AuU3ZDvEB2zdFakG5R/I
cfiUX8lq8wTm/zyHJT/ZDOqfQfkO+Q67n795LKG41h4Ae+eVeQ==
       "]], {{
        LineBox[{{10., 0.006935483603253236}, {10., 0.006935483597013236}}], 
        LineBox[{
         Offset[{1.5, 0}, {10., 0.006935483603253236}], 
          Offset[{-1.5, 0}, {10., 0.006935483603253236}]}], 
        LineBox[{
         Offset[{1.5, 0}, {10., 0.006935483597013236}], 
          Offset[{-1.5, 0}, {10., 0.006935483597013236}]}]}, {
        LineBox[{{10., 0.00693548361901738}, {10., 0.00693548357541738}}], 
        LineBox[{
         Offset[{1.5, 0}, {10., 0.00693548361901738}], 
          Offset[{-1.5, 0}, {10., 0.00693548361901738}]}], 
        LineBox[{
         Offset[{1.5, 0}, {10., 0.00693548357541738}], 
          Offset[{-1.5, 0}, {10., 0.00693548357541738}]}]}, {
        LineBox[{{20., 0.013843485922958523`}, {20., 0.013831945922958522`}}],
         LineBox[{
         Offset[{1.5, 0}, {20., 0.013843485922958523`}], 
          Offset[{-1.5, 0}, {20., 0.013843485922958523`}]}], 
        LineBox[{
         Offset[{1.5, 0}, {20., 0.013831945922958522`}], 
          Offset[{-1.5, 0}, {20., 0.013831945922958522`}]}]}, {
        LineBox[{{30., 0.02060583612603448}, {30., 0.020604800126034477`}}], 
        LineBox[{
         Offset[{1.5, 0}, {30., 0.02060583612603448}], 
          Offset[{-1.5, 0}, {30., 0.02060583612603448}]}], 
        LineBox[{
         Offset[{1.5, 0}, {30., 0.020604800126034477`}], 
          Offset[{-1.5, 0}, {30., 0.020604800126034477`}]}]}, {
        LineBox[{{40., 0.027088200786187237`}, {40., 0.02708354078618724}}], 
        LineBox[{
         Offset[{1.5, 0}, {40., 0.027088200786187237`}], 
          Offset[{-1.5, 0}, {40., 0.027088200786187237`}]}], 
        LineBox[{
         Offset[{1.5, 0}, {40., 0.02708354078618724}], 
          Offset[{-1.5, 0}, {40., 0.02708354078618724}]}]}, {
        LineBox[{{50., 0.033197519945884525`}, {50., 0.03319429994588453}}], 
        LineBox[{
         Offset[{1.5, 0}, {50., 0.033197519945884525`}], 
          Offset[{-1.5, 0}, {50., 0.033197519945884525`}]}], 
        LineBox[{
         Offset[{1.5, 0}, {50., 0.03319429994588453}], 
          Offset[{-1.5, 0}, {50., 0.03319429994588453}]}]}, {
        LineBox[{{60., 0.038530479230747296`}, {60., 0.038522939230747295`}}],
         LineBox[{
         Offset[{1.5, 0}, {60., 0.038530479230747296`}], 
          Offset[{-1.5, 0}, {60., 0.038530479230747296`}]}], 
        LineBox[{
         Offset[{1.5, 0}, {60., 0.038522939230747295`}], 
          Offset[{-1.5, 0}, {60., 0.038522939230747295`}]}]}, {
        LineBox[{{70., 0.04341989803331211}, {70., 0.043414998033312106`}}], 
        LineBox[{
         Offset[{1.5, 0}, {70., 0.04341989803331211}], 
          Offset[{-1.5, 0}, {70., 0.04341989803331211}]}], 
        LineBox[{
         Offset[{1.5, 0}, {70., 0.043414998033312106`}], 
          Offset[{-1.5, 0}, {70., 0.043414998033312106`}]}]}, {
        LineBox[{{70., 0.04325459391195813}, {70., 0.04324925391195812}}], 
        LineBox[{
         Offset[{1.5, 0}, {70., 0.04325459391195813}], 
          Offset[{-1.5, 0}, {70., 0.04325459391195813}]}], 
        LineBox[{
         Offset[{1.5, 0}, {70., 0.04324925391195812}], 
          Offset[{-1.5, 0}, {70., 0.04324925391195812}]}]}, {
        LineBox[{{80., 0.04722908553235276}, {80., 0.047221145532352765`}}], 
        LineBox[{
         Offset[{1.5, 0}, {80., 0.04722908553235276}], 
          Offset[{-1.5, 0}, {80., 0.04722908553235276}]}], 
        LineBox[{
         Offset[{1.5, 0}, {80., 0.047221145532352765`}], 
          Offset[{-1.5, 0}, {80., 0.047221145532352765`}]}]}, {
        LineBox[{{80., 0.046050845065870136`}, {80., 0.046016045065870134`}}],
         LineBox[{
         Offset[{1.5, 0}, {80., 0.046050845065870136`}], 
          Offset[{-1.5, 0}, {80., 0.046050845065870136`}]}], 
        LineBox[{
         Offset[{1.5, 0}, {80., 0.046016045065870134`}], 
          Offset[{-1.5, 0}, {80., 0.046016045065870134`}]}]}, {
        LineBox[{{90., 0.05003794394594894}, {90., 0.050033123945948936`}}], 
        LineBox[{
         Offset[{1.5, 0}, {90., 0.05003794394594894}], 
          Offset[{-1.5, 0}, {90., 0.05003794394594894}]}], 
        LineBox[{
         Offset[{1.5, 0}, {90., 0.050033123945948936`}], 
          Offset[{-1.5, 0}, {90., 0.050033123945948936`}]}]}, {
        LineBox[{{100., 0.05240297910170953}, {100., 0.052386099101709535`}}],
         LineBox[{
         Offset[{1.5, 0}, {100., 0.05240297910170953}], 
          Offset[{-1.5, 0}, {100., 0.05240297910170953}]}], 
        LineBox[{
         Offset[{1.5, 0}, {100., 0.052386099101709535`}], 
          Offset[{-1.5, 0}, {100., 0.052386099101709535`}]}]}, {
        LineBox[{{100., 0.0524646339774235}, {100., 0.052464577377423494`}}], 
        LineBox[{
         Offset[{1.5, 0}, {100., 0.0524646339774235}], 
          Offset[{-1.5, 0}, {100., 0.0524646339774235}]}], 
        LineBox[{
         Offset[{1.5, 0}, {100., 0.052464577377423494`}], 
          Offset[{-1.5, 0}, {100., 0.052464577377423494`}]}]}, {
        LineBox[{{110., 0.0538995457939592}, {110., 0.05389710579395919}}], 
        LineBox[{
         Offset[{1.5, 0}, {110., 0.0538995457939592}], 
          Offset[{-1.5, 0}, {110., 0.0538995457939592}]}], 
        LineBox[{
         Offset[{1.5, 0}, {110., 0.05389710579395919}], 
          Offset[{-1.5, 0}, {110., 0.05389710579395919}]}]}, {
        LineBox[{{120., 0.05500539618115156}, {120., 0.05498039618115156}}], 
        LineBox[{
         Offset[{1.5, 0}, {120., 0.05500539618115156}], 
          Offset[{-1.5, 0}, {120., 0.05500539618115156}]}], 
        LineBox[{
         Offset[{1.5, 0}, {120., 0.05498039618115156}], 
          Offset[{-1.5, 0}, {120., 0.05498039618115156}]}]}, {
        LineBox[{{130., 0.055508073}, {130., 0.055292127}}], 
        LineBox[{
         Offset[{1.5, 0}, {130., 0.055508073}], 
          Offset[{-1.5, 0}, {130., 0.055508073}]}], 
        LineBox[{
         Offset[{1.5, 0}, {130., 0.055292127}], 
          Offset[{-1.5, 0}, {130., 0.055292127}]}]}, {
        LineBox[{{140., 0.050264130845837376`}, {140., 
         0.050064330845837376`}}], 
        LineBox[{
         Offset[{1.5, 0}, {140., 0.050264130845837376`}], 
          Offset[{-1.5, 0}, {140., 0.050264130845837376`}]}], 
        LineBox[{
         Offset[{1.5, 0}, {140., 0.050064330845837376`}], 
          Offset[{-1.5, 0}, {140., 0.050064330845837376`}]}]}, {
        LineBox[{{140., 0.07245762522201342}, {140., 0.06577762522201343}}], 
        LineBox[{
         Offset[{1.5, 0}, {140., 0.07245762522201342}], 
          Offset[{-1.5, 0}, {140., 0.07245762522201342}]}], 
        LineBox[{
         Offset[{1.5, 0}, {140., 0.06577762522201343}], 
          Offset[{-1.5, 0}, {140., 0.06577762522201343}]}]}, {
        LineBox[{{150., 0.05610200553346794}, {150., 0.05609804553346794}}], 
        LineBox[{
         Offset[{1.5, 0}, {150., 0.05610200553346794}], 
          Offset[{-1.5, 0}, {150., 0.05610200553346794}]}], 
        LineBox[{
         Offset[{1.5, 0}, {150., 0.05609804553346794}], 
          Offset[{-1.5, 0}, {150., 0.05609804553346794}]}]}, {
        LineBox[{{160., 0.054884213073596706`}, {160., 0.0548368130735967}}], 
        LineBox[{
         Offset[{1.5, 0}, {160., 0.054884213073596706`}], 
          Offset[{-1.5, 0}, {160., 0.054884213073596706`}]}], 
        LineBox[{
         Offset[{1.5, 0}, {160., 0.0548368130735967}], 
          Offset[{-1.5, 0}, {160., 0.0548368130735967}]}]}, {
        LineBox[{{170., 0.056264890473650006`}, {170., 0.05624349047365}}], 
        LineBox[{
         Offset[{1.5, 0}, {170., 0.056264890473650006`}], 
          Offset[{-1.5, 0}, {170., 0.056264890473650006`}]}], 
        LineBox[{
         Offset[{1.5, 0}, {170., 0.05624349047365}], 
          Offset[{-1.5, 0}, {170., 0.05624349047365}]}]}, {
        LineBox[{{180., 0.0575460005210651}, {180., 0.0544660005210651}}], 
        LineBox[{
         Offset[{1.5, 0}, {180., 0.0575460005210651}], 
          Offset[{-1.5, 0}, {180., 0.0575460005210651}]}], 
        LineBox[{
         Offset[{1.5, 0}, {180., 0.0544660005210651}], 
          Offset[{-1.5, 0}, {180., 0.0544660005210651}]}]}, {
        LineBox[{{190., 0.054765898680809666`}, {190., 0.05427189868080967}}],
         LineBox[{
         Offset[{1.5, 0}, {190., 0.054765898680809666`}], 
          Offset[{-1.5, 0}, {190., 0.054765898680809666`}]}], 
        LineBox[{
         Offset[{1.5, 0}, {190., 0.05427189868080967}], 
          Offset[{-1.5, 0}, {190., 0.05427189868080967}]}]}, {
        LineBox[{{200., 0.05383764068023029}, {200., 0.05383741468023028}}], 
        LineBox[{
         Offset[{1.5, 0}, {200., 0.05383764068023029}], 
          Offset[{-1.5, 0}, {200., 0.05383764068023029}]}], 
        LineBox[{
         Offset[{1.5, 0}, {200., 0.05383741468023028}], 
          Offset[{-1.5, 0}, {200., 0.05383741468023028}]}]}, {
        LineBox[{{200., 0.053837671445557955`}, {200., 0.05383665344555795}}],
         LineBox[{
         Offset[{1.5, 0}, {200., 0.053837671445557955`}], 
          Offset[{-1.5, 0}, {200., 0.053837671445557955`}]}], 
        LineBox[{
         Offset[{1.5, 0}, {200., 0.05383665344555795}], 
          Offset[{-1.5, 0}, {200., 0.05383665344555795}]}]}, {
        LineBox[{{210., 0.05449342063169407}, {210., 0.054465020631694075`}}],
         LineBox[{
         Offset[{1.5, 0}, {210., 0.05449342063169407}], 
          Offset[{-1.5, 0}, {210., 0.05449342063169407}]}], 
        LineBox[{
         Offset[{1.5, 0}, {210., 0.054465020631694075`}], 
          Offset[{-1.5, 0}, {210., 0.054465020631694075`}]}]}, {
        LineBox[{{220., 0.053049266134581906`}, {220., 0.0530046661345819}}], 
        LineBox[{
         Offset[{1.5, 0}, {220., 0.053049266134581906`}], 
          Offset[{-1.5, 0}, {220., 0.053049266134581906`}]}], 
        LineBox[{
         Offset[{1.5, 0}, {220., 0.0530046661345819}], 
          Offset[{-1.5, 0}, {220., 0.0530046661345819}]}]}, {
        LineBox[{{230., 0.06542254072976815}, {230., 0.03962254072976815}}], 
        LineBox[{
         Offset[{1.5, 0}, {230., 0.06542254072976815}], 
          Offset[{-1.5, 0}, {230., 0.06542254072976815}]}], 
        LineBox[{
         Offset[{1.5, 0}, {230., 0.03962254072976815}], 
          Offset[{-1.5, 0}, {230., 0.03962254072976815}]}]}, {
        LineBox[{{240., 0.05801980122823812}, {240., 0.04705980122823812}}], 
        LineBox[{
         Offset[{1.5, 0}, {240., 0.05801980122823812}], 
          Offset[{-1.5, 0}, {240., 0.05801980122823812}]}], 
        LineBox[{
         Offset[{1.5, 0}, {240., 0.04705980122823812}], 
          Offset[{-1.5, 0}, {240., 0.04705980122823812}]}]}, {
        LineBox[{{250., 0.05689513680927862}, {250., 0.05689113680927862}}], 
        LineBox[{
         Offset[{1.5, 0}, {250., 0.05689513680927862}], 
          Offset[{-1.5, 0}, {250., 0.05689513680927862}]}], 
        LineBox[{
         Offset[{1.5, 0}, {250., 0.05689113680927862}], 
          Offset[{-1.5, 0}, {250., 0.05689113680927862}]}]}}}, {}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesLabel->{
      FormBox["\"Re\"", TraditionalForm], 
      FormBox["\" mvx\"", TraditionalForm]},
    AxesOrigin->{10., 0.00693548359721738},
    Method->{},
    PlotLabel->FormBox["\" mvx(Re)\"", TraditionalForm],
    PlotRangeClipping->True], ",", 
   RowBox[{"PlotRange", "\[Rule]", "Automatic"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6266255416396484`*^9, 3.62662555628125*^9}, 
   3.626626193314453*^9, 3.626626635546875*^9, 3.626627021977539*^9, 
   3.626627762770508*^9}],

Cell[CellGroupData[{

Cell[BoxData["\"\<Re=100;F=dp\>\""], "Input",
 CellChangeTimes->{{3.53872914128125*^9, 3.53872914621875*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   GraphicsBox[{{{}, 
      {Hue[0.67, 0.6, 0.6], 
       PointBox[{{0.4, 0.4006196417082391}, {0.45, 0.394593316634493}, {0.5, 
        0.38775699118720247`}, {0.5, 0.38775699118556295`}, {0.55, 
        0.37993470040823935`}, {0.6, 0.37165171241120376`}, {0.65, 
        0.3634460829387307}, {0.7, 0.353876457624699}, {0.75, 0.34375}, {0.8, 
        0.33404604956321315`}, {0.85, 0.32344975059839415`}, {0.9, 0.3125}, {
        0.9, 0.3141398575369159}}], {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}}}, {}}, {{}, 
      {Hue[0.67, 0.6, 0.6], 
       PointBox[{{0., 0.}, {0.01, 0.07657782010011277}, {0.05, 
        0.26790520225584635`}, {0.1, 0.35253507737701}, {0.2, 
        0.4004537509307514}, {0.3, 0.4065918245860625}, {0.4, 
        0.3997933259262018}, {0.5, 0.3872580094777447}, {0.5, 
        0.3872580094777447}}], {{}, {}, {}, {}, {}, {}, {}, {}, {}}}, {}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesLabel->{
      FormBox["\"r/R\"", TraditionalForm], 
      FormBox["\" shift\"", TraditionalForm]},
    AxesOrigin->{0.4, 0.315},
    PlotLabel->FormBox["\" shift(r/R)\"", TraditionalForm],
    PlotRange->{All, All},
    PlotRangeClipping->True,
    PlotRangePadding->{Automatic, Automatic}], ",", 
   GraphicsBox[{{{}, 
      {Hue[0.67, 0.6, 0.6], 
       PointBox[{{0.4, 0.12332632033358598`}, {0.45, 0.12832694903295758`}, {
        0.5, 0.13269532801158465`}, {0.5, 0.1330553948076009}, {0.55, 
        0.13653688450497534`}, {0.6, 0.13999739907603048`}, {0.65, 
        0.14309183484753718`}, {0.7, 0.14583253759183776`}, {0.75, 
        0.14828200050707147`}, {0.8, 0.15043065185189647`}, {0.85, 
        0.15223000176944562`}, {0.9, 0.1536456446315743}, {0.9, 
        0.1526985272165271}}], {{
         LineBox[{{0.4, 0.12333389033358598`}, {0.4, 0.12331875033358598`}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.4, 0.12333389033358598`}], 
           Offset[{-1.5, 0}, {0.4, 0.12333389033358598`}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.4, 0.12331875033358598`}], 
           Offset[{-1.5, 0}, {0.4, 0.12331875033358598`}]}]}, {
         LineBox[{{0.45, 0.12833169903295757`}, {0.45, 
          0.12832219903295758`}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.45, 0.12833169903295757`}], 
           Offset[{-1.5, 0}, {0.45, 0.12833169903295757`}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.45, 0.12832219903295758`}], 
           Offset[{-1.5, 0}, {0.45, 0.12832219903295758`}]}]}, {
         LineBox[{{0.5, 0.13269973801158466`}, {0.5, 0.13269091801158464`}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.5, 0.13269973801158466`}], 
           Offset[{-1.5, 0}, {0.5, 0.13269973801158466`}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.5, 0.13269091801158464`}], 
           Offset[{-1.5, 0}, {0.5, 0.13269091801158464`}]}]}, {
         LineBox[{{0.5, 0.1330953948076009}, {0.5, 0.13301539480760088`}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.5, 0.1330953948076009}], 
           Offset[{-1.5, 0}, {0.5, 0.1330953948076009}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.5, 0.13301539480760088`}], 
           Offset[{-1.5, 0}, {0.5, 0.13301539480760088`}]}]}, {
         LineBox[{{0.55, 0.13654061450497534`}, {0.55, 
          0.13653315450497533`}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.55, 0.13654061450497534`}], 
           Offset[{-1.5, 0}, {0.55, 0.13654061450497534`}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.55, 0.13653315450497533`}], 
           Offset[{-1.5, 0}, {0.55, 0.13653315450497533`}]}]}, {
         LineBox[{{0.6, 0.13999955907603048`}, {0.6, 0.13999523907603048`}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.6, 0.13999955907603048`}], 
           Offset[{-1.5, 0}, {0.6, 0.13999955907603048`}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.6, 0.13999523907603048`}], 
           Offset[{-1.5, 0}, {0.6, 0.13999523907603048`}]}]}, {
         LineBox[{{0.65, 0.14309359484753717`}, {0.65, 0.1430900748475372}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.65, 0.14309359484753717`}], 
           Offset[{-1.5, 0}, {0.65, 0.14309359484753717`}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.65, 0.1430900748475372}], 
           Offset[{-1.5, 0}, {0.65, 0.1430900748475372}]}]}, {
         LineBox[{{0.7, 0.14583624759183775`}, {0.7, 0.14582882759183777`}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.7, 0.14583624759183775`}], 
           Offset[{-1.5, 0}, {0.7, 0.14583624759183775`}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.7, 0.14582882759183777`}], 
           Offset[{-1.5, 0}, {0.7, 0.14582882759183777`}]}]}, {
         LineBox[{{0.75, 0.14828444050707146`}, {0.75, 
          0.14827956050707147`}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.75, 0.14828444050707146`}], 
           Offset[{-1.5, 0}, {0.75, 0.14828444050707146`}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.75, 0.14827956050707147`}], 
           Offset[{-1.5, 0}, {0.75, 0.14827956050707147`}]}]}, {
         LineBox[{{0.8, 0.15043291185189647`}, {0.8, 0.15042839185189646`}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.8, 0.15043291185189647`}], 
           Offset[{-1.5, 0}, {0.8, 0.15043291185189647`}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.8, 0.15042839185189646`}], 
           Offset[{-1.5, 0}, {0.8, 0.15042839185189646`}]}]}, {
         LineBox[{{0.85, 0.15223241176944563`}, {0.85, 0.1522275917694456}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.85, 0.15223241176944563`}], 
           Offset[{-1.5, 0}, {0.85, 0.15223241176944563`}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.85, 0.1522275917694456}], 
           Offset[{-1.5, 0}, {0.85, 0.1522275917694456}]}]}, {
         LineBox[{{0.9, 0.1536464286315743}, {0.9, 0.1536448606315743}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.9, 0.1536464286315743}], 
           Offset[{-1.5, 0}, {0.9, 0.1536464286315743}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.9, 0.1536448606315743}], 
           Offset[{-1.5, 0}, {0.9, 0.1536448606315743}]}]}, {
         LineBox[{{0.9, 0.1527379272165271}, {0.9, 0.1526591272165271}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.9, 0.1527379272165271}], 
           Offset[{-1.5, 0}, {0.9, 0.1527379272165271}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.9, 0.1526591272165271}], 
           Offset[{-1.5, 0}, {0.9, 0.1526591272165271}]}]}}}, {}}, {{}, 
      {Hue[0.67, 0.6, 0.6], 
       PointBox[{{0., 0.}, {0.01, 0.013626641122068423`}, {0.05, 
        0.05261818121956949}, {0.1, 0.07802197193318532}, {0.2, 
        0.10244775762728037`}, {0.3, 0.11414306112810237`}, {0.4, 
        0.12358917686076011`}, {0.5, 0.13308911713633884`}, {0.5, 
        0.13307579140445203`}}], {{}, {
         LineBox[{{0.01, 0.013627041122068423`}, {0.01, 
          0.013626241122068424`}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.01, 0.013627041122068423`}], 
           Offset[{-1.5, 0}, {0.01, 0.013627041122068423`}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.01, 0.013626241122068424`}], 
           Offset[{-1.5, 0}, {0.01, 0.013626241122068424`}]}]}, {
         LineBox[{{0.05, 0.052818181219569486`}, {0.05, 
          0.05241818121956949}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.05, 0.052818181219569486`}], 
           Offset[{-1.5, 0}, {0.05, 0.052818181219569486`}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.05, 0.05241818121956949}], 
           Offset[{-1.5, 0}, {0.05, 0.05241818121956949}]}]}, {
         LineBox[{{0.1, 0.07812197193318532}, {0.1, 0.07792197193318531}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.1, 0.07812197193318532}], 
           Offset[{-1.5, 0}, {0.1, 0.07812197193318532}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.1, 0.07792197193318531}], 
           Offset[{-1.5, 0}, {0.1, 0.07792197193318531}]}]}, {
         LineBox[{{0.2, 0.10246775762728037`}, {0.2, 0.10242775762728036`}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.2, 0.10246775762728037`}], 
           Offset[{-1.5, 0}, {0.2, 0.10246775762728037`}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.2, 0.10242775762728036`}], 
           Offset[{-1.5, 0}, {0.2, 0.10242775762728036`}]}]}, {
         LineBox[{{0.3, 0.11414606112810237`}, {0.3, 0.11414006112810236`}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.3, 0.11414606112810237`}], 
           Offset[{-1.5, 0}, {0.3, 0.11414606112810237`}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.3, 0.11414006112810236`}], 
           Offset[{-1.5, 0}, {0.3, 0.11414006112810236`}]}]}, {
         LineBox[{{0.4, 0.12360917686076012`}, {0.4, 0.1235691768607601}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.4, 0.12360917686076012`}], 
           Offset[{-1.5, 0}, {0.4, 0.12360917686076012`}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.4, 0.1235691768607601}], 
           Offset[{-1.5, 0}, {0.4, 0.1235691768607601}]}]}, {
         LineBox[{{0.5, 0.13309111713633884`}, {0.5, 0.13308711713633883`}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.5, 0.13309111713633884`}], 
           Offset[{-1.5, 0}, {0.5, 0.13309111713633884`}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.5, 0.13308711713633883`}], 
           Offset[{-1.5, 0}, {0.5, 0.13308711713633883`}]}]}, {
         LineBox[{{0.5, 0.13308579140445204`}, {0.5, 0.13306579140445202`}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.5, 0.13308579140445204`}], 
           Offset[{-1.5, 0}, {0.5, 0.13308579140445204`}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.5, 0.13306579140445202`}], 
           Offset[{-1.5, 0}, {0.5, 0.13306579140445202`}]}]}}}, {}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesLabel->{
      FormBox["\"r/R\"", TraditionalForm], 
      FormBox["\" mvx\"", TraditionalForm]},
    AxesOrigin->{0.4, 0.123},
    PlotLabel->FormBox["\" mvx(r/R)\"", TraditionalForm],
    PlotRange->{All, All},
    PlotRangeClipping->True,
    PlotRangePadding->{Automatic, Automatic}], ",", 
   GraphicsBox[{{{}, 
      {Hue[0.67, 0.6, 0.6], 
       PointBox[{{0.4, 0.6039802373891837}, {0.45, 0.5835446965608716}, {0.5, 
        0.5664983716287727}, {0.5, 0.5655208782467852}, {0.55, 
        0.5520206554984275}, {0.6, 0.5396106965042703}, {0.65, 
        0.5287834566697425}, {0.7, 0.5192212594165089}, {0.75, 
        0.5107920725912162}, {0.8, 0.5032401403102578}, {0.85, 
        0.4963547137214886}, {0.9, 0.489887150866732}, {0.9, 
        0.48942685607441144`}}], {{
         LineBox[{{0.4, 0.6039966373891837}, {0.4, 0.6039638373891837}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.4, 0.6039966373891837}], 
           Offset[{-1.5, 0}, {0.4, 0.6039966373891837}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.4, 0.6039638373891837}], 
           Offset[{-1.5, 0}, {0.4, 0.6039638373891837}]}]}, {
         LineBox[{{0.45, 0.5835599965608717}, {0.45, 0.5835293965608715}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.45, 0.5835599965608717}], 
           Offset[{-1.5, 0}, {0.45, 0.5835599965608717}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.45, 0.5835293965608715}], 
           Offset[{-1.5, 0}, {0.45, 0.5835293965608715}]}]}, {
         LineBox[{{0.5, 0.5665124716287727}, {0.5, 0.5664842716287727}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.5, 0.5665124716287727}], 
           Offset[{-1.5, 0}, {0.5, 0.5665124716287727}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.5, 0.5664842716287727}], 
           Offset[{-1.5, 0}, {0.5, 0.5664842716287727}]}]}, {
         LineBox[{{0.5, 0.5655608782467852}, {0.5, 0.5654808782467852}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.5, 0.5655608782467852}], 
           Offset[{-1.5, 0}, {0.5, 0.5655608782467852}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.5, 0.5654808782467852}], 
           Offset[{-1.5, 0}, {0.5, 0.5654808782467852}]}]}, {
         LineBox[{{0.55, 0.5520328554984275}, {0.55, 0.5520084554984275}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.55, 0.5520328554984275}], 
           Offset[{-1.5, 0}, {0.55, 0.5520328554984275}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.55, 0.5520084554984275}], 
           Offset[{-1.5, 0}, {0.55, 0.5520084554984275}]}]}, {
         LineBox[{{0.6, 0.5396174465042703}, {0.6, 0.5396039465042702}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.6, 0.5396174465042703}], 
           Offset[{-1.5, 0}, {0.6, 0.5396174465042703}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.6, 0.5396039465042702}], 
           Offset[{-1.5, 0}, {0.6, 0.5396039465042702}]}]}, {
         LineBox[{{0.65, 0.5287889266697424}, {0.65, 0.5287779866697425}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.65, 0.5287889266697424}], 
           Offset[{-1.5, 0}, {0.65, 0.5287889266697424}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.65, 0.5287779866697425}], 
           Offset[{-1.5, 0}, {0.65, 0.5287779866697425}]}]}, {
         LineBox[{{0.7, 0.5192307994165088}, {0.7, 0.5192117194165089}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.7, 0.5192307994165088}], 
           Offset[{-1.5, 0}, {0.7, 0.5192307994165088}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.7, 0.5192117194165089}], 
           Offset[{-1.5, 0}, {0.7, 0.5192117194165089}]}]}, {
         LineBox[{{0.75, 0.5107993925912162}, {0.75, 0.5107847525912161}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.75, 0.5107993925912162}], 
           Offset[{-1.5, 0}, {0.75, 0.5107993925912162}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.75, 0.5107847525912161}], 
           Offset[{-1.5, 0}, {0.75, 0.5107847525912161}]}]}, {
         LineBox[{{0.8, 0.5032463403102577}, {0.8, 0.5032339403102578}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.8, 0.5032463403102577}], 
           Offset[{-1.5, 0}, {0.8, 0.5032463403102577}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.8, 0.5032339403102578}], 
           Offset[{-1.5, 0}, {0.8, 0.5032339403102578}]}]}, {
         LineBox[{{0.85, 0.4963607337214886}, {0.85, 0.4963486937214886}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.85, 0.4963607337214886}], 
           Offset[{-1.5, 0}, {0.85, 0.4963607337214886}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.85, 0.4963486937214886}], 
           Offset[{-1.5, 0}, {0.85, 0.4963486937214886}]}]}, {
         LineBox[{{0.9, 0.489892660866732}, {0.9, 0.489881640866732}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.9, 0.489892660866732}], 
           Offset[{-1.5, 0}, {0.9, 0.489892660866732}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.9, 0.489881640866732}], 
           Offset[{-1.5, 0}, {0.9, 0.489881640866732}]}]}, {
         LineBox[{{0.9, 0.48944685607441146`}, {0.9, 0.4894068560744114}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.9, 0.48944685607441146`}], 
           Offset[{-1.5, 0}, {0.9, 0.48944685607441146`}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.9, 0.4894068560744114}], 
           Offset[{-1.5, 0}, {0.9, 0.4894068560744114}]}]}}}, {}}, {{}, 
      {Hue[0.67, 0.6, 0.6], 
       PointBox[{{0., 1.0001321842586905`}, {0.01, 0.9946828978681188}, {0.05,
         0.9221648480861365}, {0.1, 0.8415585340404677}, {0.2, 
        0.7328168964381774}, {0.3, 0.6589936193075648}, {0.4, 
        0.6047451801136862}, {0.5, 0.5672496598484695}, {0.5, 
        0.5672040488676856}}], {{
         LineBox[{{0., 1.0001921842586905`}, {0., 1.0000721842586906`}}], 
         LineBox[{
          Offset[{1.5, 0}, {0., 1.0001921842586905`}], 
           Offset[{-1.5, 0}, {0., 1.0001921842586905`}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0., 1.0000721842586906`}], 
           Offset[{-1.5, 0}, {0., 1.0000721842586906`}]}]}, {
         LineBox[{{0.01, 0.9946928978681188}, {0.01, 0.9946728978681189}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.01, 0.9946928978681188}], 
           Offset[{-1.5, 0}, {0.01, 0.9946928978681188}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.01, 0.9946728978681189}], 
           Offset[{-1.5, 0}, {0.01, 0.9946728978681189}]}]}, {
         LineBox[{{0.05, 0.9235648480861365}, {0.05, 0.9207648480861366}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.05, 0.9235648480861365}], 
           Offset[{-1.5, 0}, {0.05, 0.9235648480861365}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.05, 0.9207648480861366}], 
           Offset[{-1.5, 0}, {0.05, 0.9207648480861366}]}]}, {
         LineBox[{{0.1, 0.8425585340404677}, {0.1, 0.8405585340404677}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.1, 0.8425585340404677}], 
           Offset[{-1.5, 0}, {0.1, 0.8425585340404677}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.1, 0.8405585340404677}], 
           Offset[{-1.5, 0}, {0.1, 0.8405585340404677}]}]}, {
         LineBox[{{0.2, 0.7330168964381774}, {0.2, 0.7326168964381774}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.2, 0.7330168964381774}], 
           Offset[{-1.5, 0}, {0.2, 0.7330168964381774}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.2, 0.7326168964381774}], 
           Offset[{-1.5, 0}, {0.2, 0.7326168964381774}]}]}, {
         LineBox[{{0.3, 0.6590936193075648}, {0.3, 0.6588936193075648}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.3, 0.6590936193075648}], 
           Offset[{-1.5, 0}, {0.3, 0.6590936193075648}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.3, 0.6588936193075648}], 
           Offset[{-1.5, 0}, {0.3, 0.6588936193075648}]}]}, {
         LineBox[{{0.4, 0.6048051801136861}, {0.4, 0.6046851801136862}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.4, 0.6048051801136861}], 
           Offset[{-1.5, 0}, {0.4, 0.6048051801136861}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.4, 0.6046851801136862}], 
           Offset[{-1.5, 0}, {0.4, 0.6046851801136862}]}]}, {
         LineBox[{{0.5, 0.5672536598484695}, {0.5, 0.5672456598484695}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.5, 0.5672536598484695}], 
           Offset[{-1.5, 0}, {0.5, 0.5672536598484695}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.5, 0.5672456598484695}], 
           Offset[{-1.5, 0}, {0.5, 0.5672456598484695}]}]}, {
         LineBox[{{0.5, 0.5672340488676856}, {0.5, 0.5671740488676856}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.5, 0.5672340488676856}], 
           Offset[{-1.5, 0}, {0.5, 0.5672340488676856}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.5, 0.5671740488676856}], 
           Offset[{-1.5, 0}, {0.5, 0.5671740488676856}]}]}}}, {}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesLabel->{
      FormBox["\"r/R\"", TraditionalForm], 
      FormBox["\" mvy\"", TraditionalForm]},
    AxesOrigin->{0.4, 0.49},
    PlotLabel->FormBox["\" mvy(r/R)\"", TraditionalForm],
    PlotRange->{All, All},
    PlotRangeClipping->True,
    PlotRangePadding->{Automatic, Automatic}], ",", 
   GraphicsBox[{{{}, 
      {Hue[0.67, 0.6, 0.6], 
       PointBox[{{0.4, 0.08252623645195602}, {0.45, 0.0885056379236741}, {0.5,
         0.09442468210891139}, {0.5, 0.09460115542167544}, {0.55, 
        0.10035733139668597`}, {0.6, 0.10639832263287244`}, {0.65, 
        0.11258642821931344`}, {0.7, 0.11898879161065178`}, {0.75, 
        0.12568809770758432`}, {0.8, 0.13278453730551854`}, {0.85, 
        0.14031355843791993`}, {0.9, 0.1483557694114099}, {0.9, 
        0.1482232450705515}}], {{
         LineBox[{{0.4, 0.08252909645195601}, {0.4, 0.08252337645195602}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.4, 0.08252909645195601}], 
           Offset[{-1.5, 0}, {0.4, 0.08252909645195601}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.4, 0.08252337645195602}], 
           Offset[{-1.5, 0}, {0.4, 0.08252337645195602}]}]}, {
         LineBox[{{0.45, 0.0885080379236741}, {0.45, 0.0885032379236741}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.45, 0.0885080379236741}], 
           Offset[{-1.5, 0}, {0.45, 0.0885080379236741}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.45, 0.0885032379236741}], 
           Offset[{-1.5, 0}, {0.45, 0.0885032379236741}]}]}, {
         LineBox[{{0.5, 0.09442698210891139}, {0.5, 0.09442238210891139}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.5, 0.09442698210891139}], 
           Offset[{-1.5, 0}, {0.5, 0.09442698210891139}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.5, 0.09442238210891139}], 
           Offset[{-1.5, 0}, {0.5, 0.09442238210891139}]}]}, {
         LineBox[{{0.5, 0.09462115542167544}, {0.5, 0.09458115542167543}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.5, 0.09462115542167544}], 
           Offset[{-1.5, 0}, {0.5, 0.09462115542167544}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.5, 0.09458115542167543}], 
           Offset[{-1.5, 0}, {0.5, 0.09458115542167543}]}]}, {
         LineBox[{{0.55, 0.10035918139668597`}, {0.55, 
          0.10035548139668597`}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.55, 0.10035918139668597`}], 
           Offset[{-1.5, 0}, {0.55, 0.10035918139668597`}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.55, 0.10035548139668597`}], 
           Offset[{-1.5, 0}, {0.55, 0.10035548139668597`}]}]}, {
         LineBox[{{0.6, 0.10639929963287244`}, {0.6, 0.10639734563287244`}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.6, 0.10639929963287244`}], 
           Offset[{-1.5, 0}, {0.6, 0.10639929963287244`}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.6, 0.10639734563287244`}], 
           Offset[{-1.5, 0}, {0.6, 0.10639734563287244`}]}]}, {
         LineBox[{{0.65, 0.11258720021931344`}, {0.65, 
          0.11258565621931345`}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.65, 0.11258720021931344`}], 
           Offset[{-1.5, 0}, {0.65, 0.11258720021931344`}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.65, 0.11258565621931345`}], 
           Offset[{-1.5, 0}, {0.65, 0.11258565621931345`}]}]}, {
         LineBox[{{0.7, 0.11899010161065178`}, {0.7, 0.11898748161065177`}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.7, 0.11899010161065178`}], 
           Offset[{-1.5, 0}, {0.7, 0.11899010161065178`}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.7, 0.11898748161065177`}], 
           Offset[{-1.5, 0}, {0.7, 0.11898748161065177`}]}]}, {
         LineBox[{{0.75, 0.12568963770758432`}, {0.75, 
          0.12568655770758433`}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.75, 0.12568963770758432`}], 
           Offset[{-1.5, 0}, {0.75, 0.12568963770758432`}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.75, 0.12568655770758433`}], 
           Offset[{-1.5, 0}, {0.75, 0.12568655770758433`}]}]}, {
         LineBox[{{0.8, 0.13278529230551853`}, {0.8, 0.13278378230551854`}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.8, 0.13278529230551853`}], 
           Offset[{-1.5, 0}, {0.8, 0.13278529230551853`}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.8, 0.13278378230551854`}], 
           Offset[{-1.5, 0}, {0.8, 0.13278378230551854`}]}]}, {
         LineBox[{{0.85, 0.14031432543791994`}, {0.85, 
          0.14031279143791991`}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.85, 0.14031432543791994`}], 
           Offset[{-1.5, 0}, {0.85, 0.14031432543791994`}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.85, 0.14031279143791991`}], 
           Offset[{-1.5, 0}, {0.85, 0.14031279143791991`}]}]}, {
         LineBox[{{0.9, 0.1483563744114099}, {0.9, 0.14835516441140992`}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.9, 0.1483563744114099}], 
           Offset[{-1.5, 0}, {0.9, 0.1483563744114099}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.9, 0.14835516441140992`}], 
           Offset[{-1.5, 0}, {0.9, 0.14835516441140992`}]}]}, {
         LineBox[{{0.9, 0.14826094507055151`}, {0.9, 0.1481855450705515}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.9, 0.14826094507055151`}], 
           Offset[{-1.5, 0}, {0.9, 0.14826094507055151`}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.9, 0.1481855450705515}], 
           Offset[{-1.5, 0}, {0.9, 0.1481855450705515}]}]}}}, {}}, {{}, 
      {Hue[0.67, 0.6, 0.6], 
       PointBox[{{0., 0.}, {0.01, 0.006643549791346362}, {0.05, 
        0.028136528361035543`}, {0.1, 0.0440283999489968}, {0.2, 
        0.05940847951070448}, {0.3, 0.07022819780596243}, {0.4, 
        0.08270742072272178}, {0.5, 0.09463366941163849}, {0.5, 
        0.09462734831561291}}], {{}, {
         LineBox[{{0.01, 0.006643749791346362}, {0.01, 
          0.006643349791346362}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.01, 0.006643749791346362}], 
           Offset[{-1.5, 0}, {0.01, 0.006643749791346362}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.01, 0.006643349791346362}], 
           Offset[{-1.5, 0}, {0.01, 0.006643349791346362}]}]}, {
         LineBox[{{0.05, 0.028276528361035544`}, {0.05, 
          0.02799652836103554}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.05, 0.028276528361035544`}], 
           Offset[{-1.5, 0}, {0.05, 0.028276528361035544`}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.05, 0.02799652836103554}], 
           Offset[{-1.5, 0}, {0.05, 0.02799652836103554}]}]}, {
         LineBox[{{0.1, 0.0441283999489968}, {0.1, 0.0439283999489968}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.1, 0.0441283999489968}], 
           Offset[{-1.5, 0}, {0.1, 0.0441283999489968}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.1, 0.0439283999489968}], 
           Offset[{-1.5, 0}, {0.1, 0.0439283999489968}]}]}, {
         LineBox[{{0.2, 0.05942847951070448}, {0.2, 0.05938847951070448}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.2, 0.05942847951070448}], 
           Offset[{-1.5, 0}, {0.2, 0.05942847951070448}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.2, 0.05938847951070448}], 
           Offset[{-1.5, 0}, {0.2, 0.05938847951070448}]}]}, {
         LineBox[{{0.3, 0.07023819780596242}, {0.3, 0.07021819780596243}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.3, 0.07023819780596242}], 
           Offset[{-1.5, 0}, {0.3, 0.07023819780596242}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.3, 0.07021819780596243}], 
           Offset[{-1.5, 0}, {0.3, 0.07021819780596243}]}]}, {
         LineBox[{{0.4, 0.08271642072272177}, {0.4, 0.08269842072272178}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.4, 0.08271642072272177}], 
           Offset[{-1.5, 0}, {0.4, 0.08271642072272177}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.4, 0.08269842072272178}], 
           Offset[{-1.5, 0}, {0.4, 0.08269842072272178}]}]}, {
         LineBox[{{0.5, 0.0946343694116385}, {0.5, 0.09463296941163848}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.5, 0.0946343694116385}], 
           Offset[{-1.5, 0}, {0.5, 0.0946343694116385}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.5, 0.09463296941163848}], 
           Offset[{-1.5, 0}, {0.5, 0.09463296941163848}]}]}, {
         LineBox[{{0.5, 0.09463234831561292}, {0.5, 0.0946223483156129}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.5, 0.09463234831561292}], 
           Offset[{-1.5, 0}, {0.5, 0.09463234831561292}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.5, 0.0946223483156129}], 
           Offset[{-1.5, 0}, {0.5, 0.0946223483156129}]}]}}}, {}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesLabel->{
      FormBox["\"r/R\"", TraditionalForm], 
      FormBox["\" mvz\"", TraditionalForm]},
    AxesOrigin->{0.4, 0},
    PlotLabel->FormBox["\" mvz(r/R)\"", TraditionalForm],
    PlotRange->{All, All},
    PlotRangeClipping->True,
    PlotRangePadding->{Automatic, Automatic}], ",", 
   GraphicsBox[{{{}, 
      {Hue[0.67, 0.6, 0.6], 
       PointBox[{{0.4, 0.0030630310190331036`}, {0.45, 
        0.0032411751196792494`}, {0.5, 0.003385593679659075}, {0.5, 
        0.0033959722218895568`}, {0.55, 0.003499185870972841}, {0.6, 
        0.0035846986880224904`}, {0.65, 0.0036435083759870698`}, {0.7, 
        0.0036770425282055094`}, {0.75, 0.0036870328560198243`}, {0.8, 
        0.003673829850277058}, {0.85, 0.0036369088577463656`}, {0.9, 
        0.003575192534995716}, {0.9, 
        0.0035846961563617964`}}], {{
         LineBox[{{0.4, 0.0030631890190331037`}, {0.4, 
          0.0030628730190331035`}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.4, 0.0030631890190331037`}], 
           Offset[{-1.5, 0}, {0.4, 0.0030631890190331037`}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.4, 0.0030628730190331035`}], 
           Offset[{-1.5, 0}, {0.4, 0.0030628730190331035`}]}]}, {
         LineBox[{{0.45, 0.0032413251196792493`}, {0.45, 
          0.0032410251196792494`}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.45, 0.0032413251196792493`}], 
           Offset[{-1.5, 0}, {0.45, 0.0032413251196792493`}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.45, 0.0032410251196792494`}], 
           Offset[{-1.5, 0}, {0.45, 0.0032410251196792494`}]}]}, {
         LineBox[{{0.5, 0.0033857266796590746`}, {0.5, 
          0.003385460679659075}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.5, 0.0033857266796590746`}], 
           Offset[{-1.5, 0}, {0.5, 0.0033857266796590746`}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.5, 0.003385460679659075}], 
           Offset[{-1.5, 0}, {0.5, 0.003385460679659075}]}]}, {
         LineBox[{{0.5, 0.003396772221889557}, {0.5, 
          0.0033951722218895568`}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.5, 0.003396772221889557}], 
           Offset[{-1.5, 0}, {0.5, 0.003396772221889557}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.5, 0.0033951722218895568`}], 
           Offset[{-1.5, 0}, {0.5, 0.0033951722218895568`}]}]}, {
         LineBox[{{0.55, 0.003499292870972841}, {0.55, 
          0.003499078870972841}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.55, 0.003499292870972841}], 
           Offset[{-1.5, 0}, {0.55, 0.003499292870972841}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.55, 0.003499078870972841}], 
           Offset[{-1.5, 0}, {0.55, 0.003499078870972841}]}]}, {
         LineBox[{{0.6, 0.0035847537880224906`}, {0.6, 
          0.0035846435880224903`}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.6, 0.0035847537880224906`}], 
           Offset[{-1.5, 0}, {0.6, 0.0035847537880224906`}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.6, 0.0035846435880224903`}], 
           Offset[{-1.5, 0}, {0.6, 0.0035846435880224903`}]}]}, {
         LineBox[{{0.65, 0.0036435512759870697`}, {0.65, 
          0.00364346547598707}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.65, 0.0036435512759870697`}], 
           Offset[{-1.5, 0}, {0.65, 0.0036435512759870697`}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.65, 0.00364346547598707}], 
           Offset[{-1.5, 0}, {0.65, 0.00364346547598707}]}]}, {
         LineBox[{{0.7, 0.0036771257282055096`}, {0.7, 
          0.0036769593282055093`}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.7, 0.0036771257282055096`}], 
           Offset[{-1.5, 0}, {0.7, 0.0036771257282055096`}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.7, 0.0036769593282055093`}], 
           Offset[{-1.5, 0}, {0.7, 0.0036769593282055093`}]}]}, {
         LineBox[{{0.75, 0.003687092156019824}, {0.75, 
          0.0036869735560198244`}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.75, 0.003687092156019824}], 
           Offset[{-1.5, 0}, {0.75, 0.003687092156019824}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.75, 0.0036869735560198244`}], 
           Offset[{-1.5, 0}, {0.75, 0.0036869735560198244`}]}]}, {
         LineBox[{{0.8, 0.003673883550277058}, {0.8, 0.003673776150277058}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.8, 0.003673883550277058}], 
           Offset[{-1.5, 0}, {0.8, 0.003673883550277058}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.8, 0.003673776150277058}], 
           Offset[{-1.5, 0}, {0.8, 0.003673776150277058}]}]}, {
         LineBox[{{0.85, 0.0036369656577463654`}, {0.85, 
          0.0036368520577463657`}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.85, 0.0036369656577463654`}], 
           Offset[{-1.5, 0}, {0.85, 0.0036369656577463654`}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.85, 0.0036368520577463657`}], 
           Offset[{-1.5, 0}, {0.85, 0.0036368520577463657`}]}]}, {
         LineBox[{{0.9, 0.003575251134995716}, {0.9, 0.003575133934995716}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.9, 0.003575251134995716}], 
           Offset[{-1.5, 0}, {0.9, 0.003575251134995716}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.9, 0.003575133934995716}], 
           Offset[{-1.5, 0}, {0.9, 0.003575133934995716}]}]}, {
         LineBox[{{0.9, 0.0035876061563617965`}, {0.9, 
          0.0035817861563617963`}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.9, 0.0035876061563617965`}], 
           Offset[{-1.5, 0}, {0.9, 0.0035876061563617965`}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.9, 0.0035817861563617963`}], 
           Offset[{-1.5, 0}, {0.9, 0.0035817861563617963`}]}]}}}, {}}, {{}, 
      {Hue[0.67, 0.6, 0.6], 
       PointBox[{{0., 0.}, {0.01, 0.00002595187302216067}, {0.05, 
        0.0004126034218529424}, {0.1, 0.0009879969393727353}, {0.2, 
        0.0019292897224350315`}, {0.3, 0.0026017999714140036`}, {0.4, 
        0.0030769691489554605`}, {0.5, 0.003400072900535195}, {0.5, 
        0.0033997146275929076`}}], {{}, {
         LineBox[{{0.01, 0.00002595387302216067}, {0.01, 
          0.00002594987302216067}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.01, 0.00002595387302216067}], 
           Offset[{-1.5, 0}, {0.01, 0.00002595387302216067}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.01, 0.00002594987302216067}], 
           Offset[{-1.5, 0}, {0.01, 0.00002594987302216067}]}]}, {
         LineBox[{{0.05, 0.0004156034218529424}, {0.05, 
          0.00040960342185294236`}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.05, 0.0004156034218529424}], 
           Offset[{-1.5, 0}, {0.05, 0.0004156034218529424}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.05, 0.00040960342185294236`}], 
           Offset[{-1.5, 0}, {0.05, 0.00040960342185294236`}]}]}, {
         LineBox[{{0.1, 0.0009919969393727354}, {0.1, 
          0.0009839969393727352}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.1, 0.0009919969393727354}], 
           Offset[{-1.5, 0}, {0.1, 0.0009919969393727354}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.1, 0.0009839969393727352}], 
           Offset[{-1.5, 0}, {0.1, 0.0009839969393727352}]}]}, {
         LineBox[{{0.2, 0.0019302897224350315`}, {0.2, 
          0.0019282897224350316`}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.2, 0.0019302897224350315`}], 
           Offset[{-1.5, 0}, {0.2, 0.0019302897224350315`}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.2, 0.0019282897224350316`}], 
           Offset[{-1.5, 0}, {0.2, 0.0019282897224350316`}]}]}, {
         LineBox[{{0.3, 0.0026027999714140037`}, {0.3, 
          0.0026007999714140035`}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.3, 0.0026027999714140037`}], 
           Offset[{-1.5, 0}, {0.3, 0.0026027999714140037`}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.3, 0.0026007999714140035`}], 
           Offset[{-1.5, 0}, {0.3, 0.0026007999714140035`}]}]}, {
         LineBox[{{0.4, 0.0030774691489554606`}, {0.4, 
          0.0030764691489554605`}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.4, 0.0030774691489554606`}], 
           Offset[{-1.5, 0}, {0.4, 0.0030774691489554606`}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.4, 0.0030764691489554605`}], 
           Offset[{-1.5, 0}, {0.4, 0.0030764691489554605`}]}]}, {
         LineBox[{{0.5, 0.0034001129005351953`}, {0.5, 
          0.003400032900535195}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.5, 0.0034001129005351953`}], 
           Offset[{-1.5, 0}, {0.5, 0.0034001129005351953`}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.5, 0.003400032900535195}], 
           Offset[{-1.5, 0}, {0.5, 0.003400032900535195}]}]}, {
         LineBox[{{0.5, 0.0034000146275929076`}, {0.5, 
          0.0033994146275929077`}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.5, 0.0034000146275929076`}], 
           Offset[{-1.5, 0}, {0.5, 0.0034000146275929076`}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.5, 0.0033994146275929077`}], 
           Offset[{-1.5, 0}, {0.5, 0.0033994146275929077`}]}]}}}, {}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesLabel->{
      FormBox["\"r/R\"", TraditionalForm], 
      FormBox["\" Evx\"", TraditionalForm]},
    AxesOrigin->{0.4, 0.0030600000000000002`},
    PlotLabel->FormBox["\" Evx(r/R)\"", TraditionalForm],
    PlotRange->{All, All},
    PlotRangeClipping->True,
    PlotRangePadding->{Automatic, Automatic}], ",", 
   GraphicsBox[{{{}, 
      {Hue[0.67, 0.6, 0.6], 
       PointBox[{{0.4, 0.13715609457707317`}, {0.45, 0.13133929289070848`}, {
        0.5, 0.12608551321081432`}, {0.5, 0.12604513209515025`}, {0.55, 
        0.12126819750468054`}, {0.6, 0.11681124555502859`}, {0.65, 
        0.11261012080709304`}, {0.7, 0.1085973193615295}, {0.75, 
        0.10476358305852548`}, {0.8, 0.10105104660697702`}, {0.85, 
        0.0973891988809176}, {0.9, 0.09372982661217423}, {0.9, 
        0.09347466964889727}}], {{
         LineBox[{{0.4, 0.13716296457707317`}, {0.4, 0.13714922457707318`}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.4, 0.13716296457707317`}], 
           Offset[{-1.5, 0}, {0.4, 0.13716296457707317`}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.4, 0.13714922457707318`}], 
           Offset[{-1.5, 0}, {0.4, 0.13714922457707318`}]}]}, {
         LineBox[{{0.45, 0.1313462828907085}, {0.45, 0.13133230289070846`}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.45, 0.1313462828907085}], 
           Offset[{-1.5, 0}, {0.45, 0.1313462828907085}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.45, 0.13133230289070846`}], 
           Offset[{-1.5, 0}, {0.45, 0.13133230289070846`}]}]}, {
         LineBox[{{0.5, 0.12609199321081432`}, {0.5, 0.12607903321081432`}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.5, 0.12609199321081432`}], 
           Offset[{-1.5, 0}, {0.5, 0.12609199321081432`}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.5, 0.12607903321081432`}], 
           Offset[{-1.5, 0}, {0.5, 0.12607903321081432`}]}]}, {
         LineBox[{{0.5, 0.12604813209515026`}, {0.5, 0.12604213209515025`}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.5, 0.12604813209515026`}], 
           Offset[{-1.5, 0}, {0.5, 0.12604813209515026`}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.5, 0.12604213209515025`}], 
           Offset[{-1.5, 0}, {0.5, 0.12604213209515025`}]}]}, {
         LineBox[{{0.55, 0.12127379750468054`}, {0.55, 
          0.12126259750468055`}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.55, 0.12127379750468054`}], 
           Offset[{-1.5, 0}, {0.55, 0.12127379750468054`}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.55, 0.12126259750468055`}], 
           Offset[{-1.5, 0}, {0.55, 0.12126259750468055`}]}]}, {
         LineBox[{{0.6, 0.11681440555502859`}, {0.6, 0.11680808555502858`}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.6, 0.11681440555502859`}], 
           Offset[{-1.5, 0}, {0.6, 0.11681440555502859`}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.6, 0.11680808555502858`}], 
           Offset[{-1.5, 0}, {0.6, 0.11680808555502858`}]}]}, {
         LineBox[{{0.65, 0.11261272080709304`}, {0.65, 
          0.11260752080709303`}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.65, 0.11261272080709304`}], 
           Offset[{-1.5, 0}, {0.65, 0.11261272080709304`}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.65, 0.11260752080709303`}], 
           Offset[{-1.5, 0}, {0.65, 0.11260752080709303`}]}]}, {
         LineBox[{{0.7, 0.1086019793615295}, {0.7, 0.1085926593615295}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.7, 0.1086019793615295}], 
           Offset[{-1.5, 0}, {0.7, 0.1086019793615295}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.7, 0.1085926593615295}], 
           Offset[{-1.5, 0}, {0.7, 0.1085926593615295}]}]}, {
         LineBox[{{0.75, 0.10476733305852548`}, {0.75, 
          0.10475983305852549`}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.75, 0.10476733305852548`}], 
           Offset[{-1.5, 0}, {0.75, 0.10476733305852548`}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.75, 0.10475983305852549`}], 
           Offset[{-1.5, 0}, {0.75, 0.10475983305852549`}]}]}, {
         LineBox[{{0.8, 0.10105435660697702`}, {0.8, 0.10104773660697701`}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.8, 0.10105435660697702`}], 
           Offset[{-1.5, 0}, {0.8, 0.10105435660697702`}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.8, 0.10104773660697701`}], 
           Offset[{-1.5, 0}, {0.8, 0.10104773660697701`}]}]}, {
         LineBox[{{0.85, 0.0973925988809176}, {0.85, 0.0973857988809176}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.85, 0.0973925988809176}], 
           Offset[{-1.5, 0}, {0.85, 0.0973925988809176}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.85, 0.0973857988809176}], 
           Offset[{-1.5, 0}, {0.85, 0.0973857988809176}]}]}, {
         LineBox[{{0.9, 0.09373314661217423}, {0.9, 0.09372650661217423}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.9, 0.09373314661217423}], 
           Offset[{-1.5, 0}, {0.9, 0.09373314661217423}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.9, 0.09372650661217423}], 
           Offset[{-1.5, 0}, {0.9, 0.09372650661217423}]}]}, {
         LineBox[{{0.9, 0.09348566964889726}, {0.9, 0.09346366964889727}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.9, 0.09348566964889726}], 
           Offset[{-1.5, 0}, {0.9, 0.09348566964889726}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.9, 0.09346366964889727}], 
           Offset[{-1.5, 0}, {0.9, 0.09346366964889727}]}]}}}, {}}, {{}, 
      {Hue[0.67, 0.6, 0.6], 
       PointBox[{{0., 0.2619597954220996}, {0.01, 0.25960014366192263`}, {
        0.05, 0.23043479978803588`}, {0.1, 0.20287367456131206`}, {0.2, 
        0.1711193680508256}, {0.3, 0.1516014329273149}, {0.4, 
        0.13754650614106667`}, {0.5, 0.12645318468602}, {0.5, 
        0.12643250326888686`}}], {{
         LineBox[{{0., 0.2619797954220996}, {0., 0.26193979542209955`}}], 
         LineBox[{
          Offset[{1.5, 0}, {0., 0.2619797954220996}], 
           Offset[{-1.5, 0}, {0., 0.2619797954220996}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0., 0.26193979542209955`}], 
           Offset[{-1.5, 0}, {0., 0.26193979542209955`}]}]}, {
         LineBox[{{0.01, 0.2596051436619226}, {0.01, 0.25959514366192266`}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.01, 0.2596051436619226}], 
           Offset[{-1.5, 0}, {0.01, 0.2596051436619226}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.01, 0.25959514366192266`}], 
           Offset[{-1.5, 0}, {0.01, 0.25959514366192266`}]}]}, {
         LineBox[{{0.05, 0.2311347997880359}, {0.05, 0.22973479978803588`}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.05, 0.2311347997880359}], 
           Offset[{-1.5, 0}, {0.05, 0.2311347997880359}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.05, 0.22973479978803588`}], 
           Offset[{-1.5, 0}, {0.05, 0.22973479978803588`}]}]}, {
         LineBox[{{0.1, 0.20337367456131206`}, {0.1, 0.20237367456131206`}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.1, 0.20337367456131206`}], 
           Offset[{-1.5, 0}, {0.1, 0.20337367456131206`}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.1, 0.20237367456131206`}], 
           Offset[{-1.5, 0}, {0.1, 0.20237367456131206`}]}]}, {
         LineBox[{{0.2, 0.1711283680508256}, {0.2, 0.17111036805082558`}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.2, 0.1711283680508256}], 
           Offset[{-1.5, 0}, {0.2, 0.1711283680508256}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.2, 0.17111036805082558`}], 
           Offset[{-1.5, 0}, {0.2, 0.17111036805082558`}]}]}, {
         LineBox[{{0.3, 0.1516514329273149}, {0.3, 0.1515514329273149}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.3, 0.1516514329273149}], 
           Offset[{-1.5, 0}, {0.3, 0.1516514329273149}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.3, 0.1515514329273149}], 
           Offset[{-1.5, 0}, {0.3, 0.1515514329273149}]}]}, {
         LineBox[{{0.4, 0.13757650614106667`}, {0.4, 0.13751650614106667`}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.4, 0.13757650614106667`}], 
           Offset[{-1.5, 0}, {0.4, 0.13757650614106667`}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.4, 0.13751650614106667`}], 
           Offset[{-1.5, 0}, {0.4, 0.13751650614106667`}]}]}, {
         LineBox[{{0.5, 0.12645518468602}, {0.5, 0.12645118468601999`}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.5, 0.12645518468602}], 
           Offset[{-1.5, 0}, {0.5, 0.12645518468602}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.5, 0.12645118468601999`}], 
           Offset[{-1.5, 0}, {0.5, 0.12645118468601999`}]}]}, {
         LineBox[{{0.5, 0.12645250326888685`}, {0.5, 0.12641250326888687`}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.5, 0.12645250326888685`}], 
           Offset[{-1.5, 0}, {0.5, 0.12645250326888685`}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.5, 0.12641250326888687`}], 
           Offset[{-1.5, 0}, {0.5, 0.12641250326888687`}]}]}}}, {}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesLabel->{
      FormBox["\"r/R\"", TraditionalForm], 
      FormBox["\" Evy\"", TraditionalForm]},
    AxesOrigin->{0.4, 0.094},
    PlotLabel->FormBox["\" Evy(r/R)\"", TraditionalForm],
    PlotRange->{All, All},
    PlotRangeClipping->True,
    PlotRangePadding->{Automatic, Automatic}], ",", 
   GraphicsBox[{{{}, 
      {Hue[0.67, 0.6, 0.6], 
       PointBox[{{0.4, 0.0010867529704218608`}, {0.45, 
        0.0011593288521047234`}, {0.5, 0.001221975574635917}, {0.5, 
        0.0012259847377802365`}, {0.55, 0.0012757451207247713`}, {0.6, 
        0.0013216445421827064`}, {0.65, 0.0013601413305074897`}, {0.7, 
        0.0013917405503903813`}, {0.75, 0.001417089896924352}, {0.8, 
        0.0014362787056995843`}, {0.85, 0.0014490666419078456`}, {0.9, 
        0.0014549768703405967`}, {0.9, 
        0.0014585382328759365`}}], {{
         LineBox[{{0.4, 0.0010868102704218608`}, {0.4, 
          0.0010866956704218608`}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.4, 0.0010868102704218608`}], 
           Offset[{-1.5, 0}, {0.4, 0.0010868102704218608`}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.4, 0.0010866956704218608`}], 
           Offset[{-1.5, 0}, {0.4, 0.0010866956704218608`}]}]}, {
         LineBox[{{0.45, 0.0011593881521047235`}, {0.45, 
          0.0011592695521047234`}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.45, 0.0011593881521047235`}], 
           Offset[{-1.5, 0}, {0.45, 0.0011593881521047235`}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.45, 0.0011592695521047234`}], 
           Offset[{-1.5, 0}, {0.45, 0.0011592695521047234`}]}]}, {
         LineBox[{{0.5, 0.001222029074635917}, {0.5, 
          0.0012219220746359169`}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.5, 0.001222029074635917}], 
           Offset[{-1.5, 0}, {0.5, 0.001222029074635917}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.5, 0.0012219220746359169`}], 
           Offset[{-1.5, 0}, {0.5, 0.0012219220746359169`}]}]}, {
         LineBox[{{0.5, 0.0012262847377802364`}, {0.5, 
          0.0012256847377802365`}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.5, 0.0012262847377802364`}], 
           Offset[{-1.5, 0}, {0.5, 0.0012262847377802364`}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.5, 0.0012256847377802365`}], 
           Offset[{-1.5, 0}, {0.5, 0.0012256847377802365`}]}]}, {
         LineBox[{{0.55, 0.0012757886207247714`}, {0.55, 
          0.0012757016207247712`}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.55, 0.0012757886207247714`}], 
           Offset[{-1.5, 0}, {0.55, 0.0012757886207247714`}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.55, 0.0012757016207247712`}], 
           Offset[{-1.5, 0}, {0.55, 0.0012757016207247712`}]}]}, {
         LineBox[{{0.6, 0.0013216669421827064`}, {0.6, 
          0.0013216221421827063`}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.6, 0.0013216669421827064`}], 
           Offset[{-1.5, 0}, {0.6, 0.0013216669421827064`}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.6, 0.0013216221421827063`}], 
           Offset[{-1.5, 0}, {0.6, 0.0013216221421827063`}]}]}, {
         LineBox[{{0.65, 0.0013601588305074896`}, {0.65, 
          0.0013601238305074898`}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.65, 0.0013601588305074896`}], 
           Offset[{-1.5, 0}, {0.65, 0.0013601588305074896`}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.65, 0.0013601238305074898`}], 
           Offset[{-1.5, 0}, {0.65, 0.0013601238305074898`}]}]}, {
         LineBox[{{0.7, 0.0013917719503903814`}, {0.7, 
          0.0013917091503903812`}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.7, 0.0013917719503903814`}], 
           Offset[{-1.5, 0}, {0.7, 0.0013917719503903814`}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.7, 0.0013917091503903812`}], 
           Offset[{-1.5, 0}, {0.7, 0.0013917091503903812`}]}]}, {
         LineBox[{{0.75, 0.001417117196924352}, {0.75, 
          0.001417062596924352}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.75, 0.001417117196924352}], 
           Offset[{-1.5, 0}, {0.75, 0.001417117196924352}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.75, 0.001417062596924352}], 
           Offset[{-1.5, 0}, {0.75, 0.001417062596924352}]}]}, {
         LineBox[{{0.8, 0.0014363003056995843`}, {0.8, 
          0.0014362571056995843`}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.8, 0.0014363003056995843`}], 
           Offset[{-1.5, 0}, {0.8, 0.0014363003056995843`}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.8, 0.0014362571056995843`}], 
           Offset[{-1.5, 0}, {0.8, 0.0014362571056995843`}]}]}, {
         LineBox[{{0.85, 0.0014490884419078457`}, {0.85, 
          0.0014490448419078455`}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.85, 0.0014490884419078457`}], 
           Offset[{-1.5, 0}, {0.85, 0.0014490884419078457`}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.85, 0.0014490448419078455`}], 
           Offset[{-1.5, 0}, {0.85, 0.0014490448419078455`}]}]}, {
         LineBox[{{0.9, 0.0014549983703405966`}, {0.9, 
          0.0014549553703405967`}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.9, 0.0014549983703405966`}], 
           Offset[{-1.5, 0}, {0.9, 0.0014549983703405966`}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.9, 0.0014549553703405967`}], 
           Offset[{-1.5, 0}, {0.9, 0.0014549553703405967`}]}]}, {
         LineBox[{{0.9, 0.0014596682328759365`}, {0.9, 
          0.0014574082328759365`}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.9, 0.0014596682328759365`}], 
           Offset[{-1.5, 0}, {0.9, 0.0014596682328759365`}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.9, 0.0014574082328759365`}], 
           Offset[{-1.5, 0}, {0.9, 0.0014574082328759365`}]}]}}}, {}}, {{}, 
      {Hue[0.67, 0.6, 0.6], 
       PointBox[{{0., 0.}, {0.01, 8.655265054139394*^-6}, {0.05, 
        0.00013894006063773685`}, {0.1, 0.0003363697290911757}, {0.2, 
        0.0006666104747425213}, {0.3, 0.0009102013415777377}, {0.4, 
        0.001091518607400959}, {0.5, 0.0012268399946309828`}, {0.5, 
        0.0012266944907294995`}}], {{}, {
         LineBox[{{0.01, 8.655765054139394*^-6}, {0.01, 
          8.654765054139395*^-6}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.01, 8.655765054139394*^-6}], 
           Offset[{-1.5, 0}, {0.01, 8.655765054139394*^-6}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.01, 8.654765054139395*^-6}], 
           Offset[{-1.5, 0}, {0.01, 8.654765054139395*^-6}]}]}, {
         LineBox[{{0.05, 0.00013994006063773685`}, {0.05, 
          0.00013794006063773685`}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.05, 0.00013994006063773685`}], 
           Offset[{-1.5, 0}, {0.05, 0.00013994006063773685`}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.05, 0.00013794006063773685`}], 
           Offset[{-1.5, 0}, {0.05, 0.00013794006063773685`}]}]}, {
         LineBox[{{0.1, 0.0003383697290911757}, {0.1, 
          0.0003343697290911757}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.1, 0.0003383697290911757}], 
           Offset[{-1.5, 0}, {0.1, 0.0003383697290911757}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.1, 0.0003343697290911757}], 
           Offset[{-1.5, 0}, {0.1, 0.0003343697290911757}]}]}, {
         LineBox[{{0.2, 0.0006670104747425213}, {0.2, 
          0.0006662104747425213}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.2, 0.0006670104747425213}], 
           Offset[{-1.5, 0}, {0.2, 0.0006670104747425213}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.2, 0.0006662104747425213}], 
           Offset[{-1.5, 0}, {0.2, 0.0006662104747425213}]}]}, {
         LineBox[{{0.3, 0.0009105013415777376}, {0.3, 
          0.0009099013415777377}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.3, 0.0009105013415777376}], 
           Offset[{-1.5, 0}, {0.3, 0.0009105013415777376}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.3, 0.0009099013415777377}], 
           Offset[{-1.5, 0}, {0.3, 0.0009099013415777377}]}]}, {
         LineBox[{{0.4, 0.001091718607400959}, {0.4, 
          0.0010913186074009591`}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.4, 0.001091718607400959}], 
           Offset[{-1.5, 0}, {0.4, 0.001091718607400959}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.4, 0.0010913186074009591`}], 
           Offset[{-1.5, 0}, {0.4, 0.0010913186074009591`}]}]}, {
         LineBox[{{0.5, 0.001226859994630983}, {0.5, 
          0.0012268199946309827`}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.5, 0.001226859994630983}], 
           Offset[{-1.5, 0}, {0.5, 0.001226859994630983}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.5, 0.0012268199946309827`}], 
           Offset[{-1.5, 0}, {0.5, 0.0012268199946309827`}]}]}, {
         LineBox[{{0.5, 0.0012267944907294996`}, {0.5, 
          0.0012265944907294995`}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.5, 0.0012267944907294996`}], 
           Offset[{-1.5, 0}, {0.5, 0.0012267944907294996`}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.5, 0.0012265944907294995`}], 
           Offset[{-1.5, 0}, {0.5, 0.0012265944907294995`}]}]}}}, {}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesLabel->{
      FormBox["\"r/R\"", TraditionalForm], 
      FormBox["\" Evz\"", TraditionalForm]},
    AxesOrigin->{0.4, 0.00108},
    PlotLabel->FormBox["\" Evz(r/R)\"", TraditionalForm],
    PlotRange->{All, All},
    PlotRangeClipping->True,
    PlotRangePadding->{Automatic, Automatic}], ",", 
   GraphicsBox[{{{}, 
      {Hue[0.67, 0.6, 0.6], 
       PointBox[{{0.4, 0.04069044053847285}, {0.45, 0.04175485706762601}, {
        0.5, 0.04257114731544128}, {0.5, 0.042572496574394554`}, {0.55, 
        0.04316198230375838}, {0.6, 0.04354121568761243}, {0.65, 
        0.0437342745332264}, {0.7, 0.043789797322776824`}, {0.75, 
        0.04369413083329597}, {0.8, 0.0434717546384199}, {0.85, 
        0.04312580572269992}, {0.9, 0.04266649039414594}, {0.9, 
        0.042694946951469595`}}], {{
         LineBox[{{0.4, 0.041924502778200534`}, {0.4, 0.03945637829874517}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.4, 0.041924502778200534`}], 
           Offset[{-1.5, 0}, {0.4, 0.041924502778200534`}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.4, 0.03945637829874517}], 
           Offset[{-1.5, 0}, {0.4, 0.03945637829874517}]}]}, {
         LineBox[{{0.45, 0.04305459064809975}, {0.45, 
          0.040455123487152266`}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.45, 0.04305459064809975}], 
           Offset[{-1.5, 0}, {0.45, 0.04305459064809975}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.45, 0.040455123487152266`}], 
           Offset[{-1.5, 0}, {0.45, 0.040455123487152266`}]}]}, {
         LineBox[{{0.5, 0.04392823308112557}, {0.5, 0.04121406154975699}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.5, 0.04392823308112557}], 
           Offset[{-1.5, 0}, {0.5, 0.04392823308112557}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.5, 0.04121406154975699}], 
           Offset[{-1.5, 0}, {0.5, 0.04121406154975699}]}]}, {
         LineBox[{{0.5, 0.043929521233179204`}, {0.5, 
          0.041215471915609904`}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.5, 0.043929521233179204`}], 
           Offset[{-1.5, 0}, {0.5, 0.043929521233179204`}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.5, 0.041215471915609904`}], 
           Offset[{-1.5, 0}, {0.5, 0.041215471915609904`}]}]}, {
         LineBox[{{0.55, 0.04456914288505092}, {0.55, 0.04175482172246584}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.55, 0.04456914288505092}], 
           Offset[{-1.5, 0}, {0.55, 0.04456914288505092}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.55, 0.04175482172246584}], 
           Offset[{-1.5, 0}, {0.55, 0.04175482172246584}]}]}, {
         LineBox[{{0.6, 0.04499229434358545}, {0.6, 0.04209013703163942}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.6, 0.04499229434358545}], 
           Offset[{-1.5, 0}, {0.6, 0.04499229434358545}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.6, 0.04209013703163942}], 
           Offset[{-1.5, 0}, {0.6, 0.04209013703163942}]}]}, {
         LineBox[{{0.65, 0.04522286879483578}, {0.65, 
          0.042245680271617014`}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.65, 0.04522286879483578}], 
           Offset[{-1.5, 0}, {0.65, 0.04522286879483578}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.65, 0.042245680271617014`}], 
           Offset[{-1.5, 0}, {0.65, 0.042245680271617014`}]}]}, {
         LineBox[{{0.7, 0.04530944571977903}, {0.7, 0.04227014892577462}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.7, 0.04530944571977903}], 
           Offset[{-1.5, 0}, {0.7, 0.04530944571977903}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.7, 0.04227014892577462}], 
           Offset[{-1.5, 0}, {0.7, 0.04227014892577462}]}]}, {
         LineBox[{{0.75, 0.04524026755507297}, {0.75, 
          0.042147994111518976`}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.75, 0.04524026755507297}], 
           Offset[{-1.5, 0}, {0.75, 0.04524026755507297}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.75, 0.042147994111518976`}], 
           Offset[{-1.5, 0}, {0.75, 0.042147994111518976`}]}]}, {
         LineBox[{{0.8, 0.04503949065482117}, {0.8, 0.04190401862201863}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.8, 0.04503949065482117}], 
           Offset[{-1.5, 0}, {0.8, 0.04503949065482117}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.8, 0.04190401862201863}], 
           Offset[{-1.5, 0}, {0.8, 0.04190401862201863}]}]}, {
         LineBox[{{0.85, 0.0447078397807954}, {0.85, 0.041543771664604434`}}],
          LineBox[{
          Offset[{1.5, 0}, {0.85, 0.0447078397807954}], 
           Offset[{-1.5, 0}, {0.85, 0.0447078397807954}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.85, 0.041543771664604434`}], 
           Offset[{-1.5, 0}, {0.85, 0.041543771664604434`}]}]}, {
         LineBox[{{0.9, 0.04425759398448144}, {0.9, 0.04107538680381044}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.9, 0.04425759398448144}], 
           Offset[{-1.5, 0}, {0.9, 0.04425759398448144}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.9, 0.04107538680381044}], 
           Offset[{-1.5, 0}, {0.9, 0.04107538680381044}]}]}, {
         LineBox[{{0.9, 0.04428797842356687}, {0.9, 0.04110191547937232}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.9, 0.04428797842356687}], 
           Offset[{-1.5, 0}, {0.9, 0.04428797842356687}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.9, 0.04110191547937232}], 
           Offset[{-1.5, 0}, {0.9, 0.04110191547937232}]}]}}}, {}}, {{}, 
      {Hue[0.67, 0.6, 0.6], 
       PointBox[{{0., 0.}, {0.01, 0.00375674091872375}, {0.05, 
        0.0151988508599875}, {0.1, 0.023660077563574994`}, {0.2, 
        0.03367133290125}, {0.3, 0.039974345558125}, {0.4, 0.0447071990625}, {
        0.5, 0.04849360818875001}, {0.5, 
        0.048493643345000004`}}], {{}, {
         LineBox[{{0.01, 0.00401797753184875}, {0.01, 
          0.0034955043055987503`}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.01, 0.00401797753184875}], 
           Offset[{-1.5, 0}, {0.01, 0.00401797753184875}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.01, 0.0034955043055987503`}], 
           Offset[{-1.5, 0}, {0.01, 0.0034955043055987503`}]}]}, {
         LineBox[{{0.05, 0.0165465325787375}, {0.05, 0.013851169141237497`}}],
          LineBox[{
          Offset[{1.5, 0}, {0.05, 0.0165465325787375}], 
           Offset[{-1.5, 0}, {0.05, 0.0165465325787375}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.05, 0.013851169141237497`}], 
           Offset[{-1.5, 0}, {0.05, 0.013851169141237497`}]}]}, {
         LineBox[{{0.1, 0.026784770844824994`}, {0.1, 
          0.020535384282324994`}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.1, 0.026784770844824994`}], 
           Offset[{-1.5, 0}, {0.1, 0.026784770844824994`}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.1, 0.020535384282324994`}], 
           Offset[{-1.5, 0}, {0.1, 0.020535384282324994`}]}]}, {
         LineBox[{{0.2, 0.040968599620000004`}, {0.2, 0.0263740661825}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.2, 0.040968599620000004`}], 
           Offset[{-1.5, 0}, {0.2, 0.040968599620000004`}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.2, 0.0263740661825}], 
           Offset[{-1.5, 0}, {0.2, 0.0263740661825}]}]}, {
         LineBox[{{0.3, 0.051950690245625}, {0.3, 0.027998000870624998`}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.3, 0.051950690245625}], 
           Offset[{-1.5, 0}, {0.3, 0.051950690245625}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.3, 0.027998000870624998`}], 
           Offset[{-1.5, 0}, {0.3, 0.027998000870624998`}]}]}, {
         LineBox[{{0.4, 0.061748817812499995`}, {0.4, 
          0.027665580312500007`}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.4, 0.061748817812499995`}], 
           Offset[{-1.5, 0}, {0.4, 0.061748817812499995`}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.4, 0.027665580312500007`}], 
           Offset[{-1.5, 0}, {0.4, 0.027665580312500007`}]}]}, {
         LineBox[{{0.5, 0.07098582006375004}, {0.5, 0.026001396313749987`}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.5, 0.07098582006375004}], 
           Offset[{-1.5, 0}, {0.5, 0.07098582006375004}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.5, 0.026001396313749987`}], 
           Offset[{-1.5, 0}, {0.5, 0.026001396313749987`}]}]}, {
         LineBox[{{0.5, 0.07098594943875003}, {0.5, 0.026001337251249985`}}], 
         LineBox[{
          Offset[{1.5, 0}, {0.5, 0.07098594943875003}], 
           Offset[{-1.5, 0}, {0.5, 0.07098594943875003}]}], 
         LineBox[{
          Offset[{1.5, 0}, {0.5, 0.026001337251249985`}], 
           Offset[{-1.5, 0}, {0.5, 0.026001337251249985`}]}]}}}, {}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesLabel->{
      FormBox["\"r/R\"", TraditionalForm], 
      FormBox["\" m\[Psi]\"", TraditionalForm]},
    AxesOrigin->{0.4, 0.0407},
    PlotLabel->FormBox["\" m\[Psi](r/R)\"", TraditionalForm],
    PlotRange->{All, All},
    PlotRangeClipping->True,
    PlotRangePadding->{Automatic, Automatic}]}], "}"}]], "Output",
 CellChangeTimes->{3.53872903875*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ShowDependance", "[", 
  RowBox[{"\"\<r/R\>\"", ",", "allfuncs", ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\"\<F(r)\>\"", "\[Rule]", "\"\<r\>\""}], ",", 
     RowBox[{"\"\<Re\>\"", "\[Rule]", "100"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.507288945927375*^9, 3.50728899397425*^9}, 
   3.5081142863299084`*^9, 3.538728668203125*^9, {3.599816681684578*^9, 
   3.59981670728907*^9}, 3.59989568838282*^9, 3.5998960871904373`*^9, {
   3.601741484078336*^9, 3.6017414884006014`*^9}, {3.601742312843961*^9, 
   3.6017423132668123`*^9}, 3.601750271561734*^9, {3.603617864366727*^9, 
   3.6036178666137967`*^9}, 3.6042160380820312`*^9, 3.604216362736328*^9, 
   3.6043024501132812`*^9, 3.6176920053593593`*^9, 3.6234797685791016`*^9, 
   3.6234798341484375`*^9, 3.623480299254883*^9, 3.624727874076172*^9, 
   3.6247811220771484`*^9, {3.624781183569336*^9, 3.624781183631836*^9}, 
   3.6248685038203125`*^9, 3.624868714560547*^9, {3.6248688969941406`*^9, 
   3.6248688994033203`*^9}, {3.6248694938564453`*^9, 3.624869494151367*^9}, 
   3.625469024745117*^9, {3.625923309823242*^9, 3.6259233116757812`*^9}, {
   3.625933553548828*^9, 3.6259335735*^9}, {3.6259366834072266`*^9, 
   3.6259366836035156`*^9}, 3.6259913983583984`*^9, {3.6261166800341797`*^9, 
   3.6261166804414062`*^9}, 3.626116947977539*^9, {3.626118501897461*^9, 
   3.6261185787285156`*^9}, {3.6261186246435547`*^9, 3.626118642944336*^9}, {
   3.6264320498146954`*^9, 3.6264320808478985`*^9}, {3.6266099230214844`*^9, 
   3.6266099249121094`*^9}, {3.6266099577402344`*^9, 3.6266099846464844`*^9}, 
   3.6266654174003906`*^9, {3.6266654526972656`*^9, 3.6266654529472656`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"All data matches (\"\>", "\[InvisibleSpace]", "True", 
   "\[InvisibleSpace]", "\<\")\"\>", 
   "\[InvisibleSpace]", "\<\"&&(F(r)=\\\"r\\\")\"\>", 
   "\[InvisibleSpace]", "\<\"&&(Re=100)\"\>", 
   "\[InvisibleSpace]", "\<\":\"\>"}],
  SequenceForm[
  "All data matches (", True, ")", "&&(F(r)=\"r\")", "&&(Re=100)", ":"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.5998166907793045`*^9, 3.599816708021492*^9}, 
   3.599895689590828*^9, 3.5998960875898514`*^9, 3.601741489209195*^9, 
   3.6017423135832186`*^9, 3.601750273299039*^9, 3.603617876580594*^9, {
   3.604216039084961*^9, 3.604216044633789*^9}, 3.604216363314453*^9, 
   3.6043024503759766`*^9, {3.61769200232225*^9, 3.617692012712875*^9}, 
   3.623479770598633*^9, 3.623479836171875*^9, 3.623480299498047*^9, 
   3.6234813476689453`*^9, 3.623482714041992*^9, 3.6234850520371094`*^9, 
   3.6247267101708984`*^9, 3.6247278759023438`*^9, 3.6247811226367188`*^9, 
   3.624781183991211*^9, 3.624868504861328*^9, 3.6248687147216797`*^9, 
   3.6248689000615234`*^9, 3.624869494756836*^9, 3.6254690300185547`*^9, 
   3.6254691885302734`*^9, 3.6259233130351562`*^9, {3.6259335541171875`*^9, 
   3.625933573879883*^9}, 3.625936683875*^9, 3.6259913986816406`*^9, {
   3.6261166722158203`*^9, 3.6261166811035156`*^9}, {3.6261169483583984`*^9, 
   3.6261169744570312`*^9}, {3.6261185021679688`*^9, 
   3.6261185791289062`*^9}, {3.626118624899414*^9, 3.62611864321875*^9}, 
   3.626432083960203*^9, 3.6266099255683594`*^9, {3.6266099625527344`*^9, 
   3.6266099917558594`*^9}, 3.6266654184628906`*^9, 3.6266654538535156`*^9, 
   3.6266655644472656`*^9, 3.6266682768623047`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"All such parameters=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
    "0.05`", ",", "0.1`", ",", "0.15`", ",", "0.25`", ",", "0.3`", ",", 
     "0.35`", ",", "0.4`", ",", "0.45`", ",", "0.5`", ",", "0.55`", ",", 
     "0.6`", ",", "0.65`", ",", "0.7`", ",", "0.75`", ",", "0.8`", ",", 
     "0.85`", ",", "0.9`"}], "}"}]}],
  SequenceForm[
  "All such parameters=", {0.05, 0.1, 0.15, 0.25, 0.3, 0.35, 0.4, 0.45, 0.5, 
   0.55, 0.6, 0.65, 0.7, 0.75, 0.8, 0.85, 0.9}],
  Editable->False]], "Print",
 CellChangeTimes->{{3.5998166907793045`*^9, 3.599816708021492*^9}, 
   3.599895689590828*^9, 3.5998960875898514`*^9, 3.601741489209195*^9, 
   3.6017423135832186`*^9, 3.601750273299039*^9, 3.603617876580594*^9, {
   3.604216039084961*^9, 3.604216044633789*^9}, 3.604216363314453*^9, 
   3.6043024503759766`*^9, {3.61769200232225*^9, 3.617692012712875*^9}, 
   3.623479770598633*^9, 3.623479836171875*^9, 3.623480299498047*^9, 
   3.6234813476689453`*^9, 3.623482714041992*^9, 3.6234850520371094`*^9, 
   3.6247267101708984`*^9, 3.6247278759023438`*^9, 3.6247811226367188`*^9, 
   3.624781183991211*^9, 3.624868504861328*^9, 3.6248687147216797`*^9, 
   3.6248689000615234`*^9, 3.624869494756836*^9, 3.6254690300185547`*^9, 
   3.6254691885302734`*^9, 3.6259233130351562`*^9, {3.6259335541171875`*^9, 
   3.625933573879883*^9}, 3.625936683875*^9, 3.6259913986816406`*^9, {
   3.6261166722158203`*^9, 3.6261166811035156`*^9}, {3.6261169483583984`*^9, 
   3.6261169744570312`*^9}, {3.6261185021679688`*^9, 
   3.6261185791289062`*^9}, {3.626118624899414*^9, 3.62611864321875*^9}, 
   3.626432083960203*^9, 3.6266099255683594`*^9, {3.6266099625527344`*^9, 
   3.6266099917558594`*^9}, 3.6266654184628906`*^9, 3.6266654538535156`*^9, 
   3.6266655644472656`*^9, 3.6266682769404297`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"Nxz\"\>", ",", "\<\"Re\"\>", ",", "\<\"gamma\"\>", 
   ",", "\<\"F(r)\"\>", ",", "\<\"Coriolis\"\>", ",", "\<\"comment\"\>"}], 
  "}"}]], "Print",
 CellChangeTimes->{{3.5998166907793045`*^9, 3.599816708021492*^9}, 
   3.599895689590828*^9, 3.5998960875898514`*^9, 3.601741489209195*^9, 
   3.6017423135832186`*^9, 3.601750273299039*^9, 3.603617876580594*^9, {
   3.604216039084961*^9, 3.604216044633789*^9}, 3.604216363314453*^9, 
   3.6043024503759766`*^9, {3.61769200232225*^9, 3.617692012712875*^9}, 
   3.623479770598633*^9, 3.623479836171875*^9, 3.623480299498047*^9, 
   3.6234813476689453`*^9, 3.623482714041992*^9, 3.6234850520371094`*^9, 
   3.6247267101708984`*^9, 3.6247278759023438`*^9, 3.6247811226367188`*^9, 
   3.624781183991211*^9, 3.624868504861328*^9, 3.6248687147216797`*^9, 
   3.6248689000615234`*^9, 3.624869494756836*^9, 3.6254690300185547`*^9, 
   3.6254691885302734`*^9, 3.6259233130351562`*^9, {3.6259335541171875`*^9, 
   3.625933573879883*^9}, 3.625936683875*^9, 3.6259913986816406`*^9, {
   3.6261166722158203`*^9, 3.6261166811035156`*^9}, {3.6261169483583984`*^9, 
   3.6261169744570312`*^9}, {3.6261185021679688`*^9, 
   3.6261185791289062`*^9}, {3.626118624899414*^9, 3.62611864321875*^9}, 
   3.626432083960203*^9, 3.6266099255683594`*^9, {3.6266099625527344`*^9, 
   3.6266099917558594`*^9}, 3.6266654184628906`*^9, 3.6266654538535156`*^9, 
   3.6266655644472656`*^9, 3.6266682769560547`*^9}],

Cell[BoxData["\<\"Plots can be shown for parameters:\"\>"], "Print",
 CellChangeTimes->{{3.5998166907793045`*^9, 3.599816708021492*^9}, 
   3.599895689590828*^9, 3.5998960875898514`*^9, 3.601741489209195*^9, 
   3.6017423135832186`*^9, 3.601750273299039*^9, 3.603617876580594*^9, {
   3.604216039084961*^9, 3.604216044633789*^9}, 3.604216363314453*^9, 
   3.6043024503759766`*^9, {3.61769200232225*^9, 3.617692012712875*^9}, 
   3.623479770598633*^9, 3.623479836171875*^9, 3.623480299498047*^9, 
   3.6234813476689453`*^9, 3.623482714041992*^9, 3.6234850520371094`*^9, 
   3.6247267101708984`*^9, 3.6247278759023438`*^9, 3.6247811226367188`*^9, 
   3.624781183991211*^9, 3.624868504861328*^9, 3.6248687147216797`*^9, 
   3.6248689000615234`*^9, 3.624869494756836*^9, 3.6254690300185547`*^9, 
   3.6254691885302734`*^9, 3.6259233130351562`*^9, {3.6259335541171875`*^9, 
   3.625933573879883*^9}, 3.625936683875*^9, 3.6259913986816406`*^9, {
   3.6261166722158203`*^9, 3.6261166811035156`*^9}, {3.6261169483583984`*^9, 
   3.6261169744570312`*^9}, {3.6261185021679688`*^9, 
   3.6261185791289062`*^9}, {3.626118624899414*^9, 3.62611864321875*^9}, 
   3.626432083960203*^9, 3.6266099255683594`*^9, {3.6266099625527344`*^9, 
   3.6266099917558594`*^9}, 3.6266654184628906`*^9, 3.6266654538535156`*^9, 
   3.6266655644472656`*^9, 3.6266682769560547`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\:2116\"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\":\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\<\"Nxz\"\>", "\[Rule]", "256"}], ",", 
     RowBox[{"\<\"Re\"\>", "\[Rule]", "100"}], ",", 
     RowBox[{"\<\"gamma\"\>", "\[Rule]", "0.0001`"}], ",", 
     RowBox[{"\<\"F(r)\"\>", "\[Rule]", "\<\"r\"\>"}], ",", 
     RowBox[{"\<\"Coriolis\"\>", "\[Rule]", "0"}], ",", 
     RowBox[{"\<\"comment\"\>", "\[Rule]", "\<\"ErrScale 1e-4\"\>"}]}], "}"}],
    "\[InvisibleSpace]", "\<\", number of points=\"\>", "\[InvisibleSpace]", 
   "18"}],
  SequenceForm[
  "\:2116", 1, ":", {
   "Nxz" -> 256, "Re" -> 100, "gamma" -> 0.0001, "F(r)" -> "r", "Coriolis" -> 
    0, "comment" -> "ErrScale 1e-4"}, ", number of points=", 18],
  Editable->False]], "Print",
 CellChangeTimes->{{3.5998166907793045`*^9, 3.599816708021492*^9}, 
   3.599895689590828*^9, 3.5998960875898514`*^9, 3.601741489209195*^9, 
   3.6017423135832186`*^9, 3.601750273299039*^9, 3.603617876580594*^9, {
   3.604216039084961*^9, 3.604216044633789*^9}, 3.604216363314453*^9, 
   3.6043024503759766`*^9, {3.61769200232225*^9, 3.617692012712875*^9}, 
   3.623479770598633*^9, 3.623479836171875*^9, 3.623480299498047*^9, 
   3.6234813476689453`*^9, 3.623482714041992*^9, 3.6234850520371094`*^9, 
   3.6247267101708984`*^9, 3.6247278759023438`*^9, 3.6247811226367188`*^9, 
   3.624781183991211*^9, 3.624868504861328*^9, 3.6248687147216797`*^9, 
   3.6248689000615234`*^9, 3.624869494756836*^9, 3.6254690300185547`*^9, 
   3.6254691885302734`*^9, 3.6259233130351562`*^9, {3.6259335541171875`*^9, 
   3.625933573879883*^9}, 3.625936683875*^9, 3.6259913986816406`*^9, {
   3.6261166722158203`*^9, 3.6261166811035156`*^9}, {3.6261169483583984`*^9, 
   3.6261169744570312`*^9}, {3.6261185021679688`*^9, 
   3.6261185791289062`*^9}, {3.626118624899414*^9, 3.62611864321875*^9}, 
   3.626432083960203*^9, 3.6266099255683594`*^9, {3.6266099625527344`*^9, 
   3.6266099917558594`*^9}, 3.6266654184628906`*^9, 3.6266654538535156`*^9, 
   3.6266655644472656`*^9, 3.6266682769560547`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"So constant parameters are:\\t\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\<\"Nxz\"\>", "\[Rule]", "256"}], ",", 
     RowBox[{"\<\"Re\"\>", "\[Rule]", "100"}], ",", 
     RowBox[{"\<\"gamma\"\>", "\[Rule]", "0.0001`"}], ",", 
     RowBox[{"\<\"F(r)\"\>", "\[Rule]", "\<\"r\"\>"}], ",", 
     RowBox[{"\<\"Coriolis\"\>", "\[Rule]", "0"}], ",", 
     RowBox[{"\<\"comment\"\>", "\[Rule]", "\<\"ErrScale 1e-4\"\>"}]}], 
    "}"}]}],
  SequenceForm[
  "So constant parameters are:\t", {
   "Nxz" -> 256, "Re" -> 100, "gamma" -> 0.0001, "F(r)" -> "r", "Coriolis" -> 
    0, "comment" -> "ErrScale 1e-4"}],
  Editable->False]], "Print",
 CellChangeTimes->{{3.5998166907793045`*^9, 3.599816708021492*^9}, 
   3.599895689590828*^9, 3.5998960875898514`*^9, 3.601741489209195*^9, 
   3.6017423135832186`*^9, 3.601750273299039*^9, 3.603617876580594*^9, {
   3.604216039084961*^9, 3.604216044633789*^9}, 3.604216363314453*^9, 
   3.6043024503759766`*^9, {3.61769200232225*^9, 3.617692012712875*^9}, 
   3.623479770598633*^9, 3.623479836171875*^9, 3.623480299498047*^9, 
   3.6234813476689453`*^9, 3.623482714041992*^9, 3.6234850520371094`*^9, 
   3.6247267101708984`*^9, 3.6247278759023438`*^9, 3.6247811226367188`*^9, 
   3.624781183991211*^9, 3.624868504861328*^9, 3.6248687147216797`*^9, 
   3.6248689000615234`*^9, 3.624869494756836*^9, 3.6254690300185547`*^9, 
   3.6254691885302734`*^9, 3.6259233130351562`*^9, {3.6259335541171875`*^9, 
   3.625933573879883*^9}, 3.625936683875*^9, 3.6259913986816406`*^9, {
   3.6261166722158203`*^9, 3.6261166811035156`*^9}, {3.6261169483583984`*^9, 
   3.6261169744570312`*^9}, {3.6261185021679688`*^9, 
   3.6261185791289062`*^9}, {3.626118624899414*^9, 3.62611864321875*^9}, 
   3.626432083960203*^9, 3.6266099255683594`*^9, {3.6266099625527344`*^9, 
   3.6266099917558594`*^9}, 3.6266654184628906`*^9, 3.6266654538535156`*^9, 
   3.6266655644472656`*^9, 3.6266682769560547`*^9}]
}, Open  ]]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{
   GraphicsBox[
    {Hue[0.67, 0.6, 0.6], 
     PointBox[{{1., 0.0012403508025825}, {10., 0.012162517089725003`}, {10., 
      0.012151597873574999`}, {20., 0.022698485626300002`}, {30., 
      0.03036084130055}, {40., 0.03510509562149999}, {50., 
      0.037820908193225006`}, {60., 0.039324496852299995`}, {70., 
      0.040091333717424994`}, {80., 0.04035239383749999}, {90., 
      0.040277596593499984`}, {100., 
      0.039974345558125}}], {{
       LineBox[{{1., 0.0015889225994575003`}, {1., 0.0008917790057074995}}], 
       LineBox[{
        Offset[{1.5, 0}, {1., 0.0015889225994575003`}], 
         Offset[{-1.5, 0}, {1., 0.0015889225994575003`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {1., 0.0008917790057074995}], 
         Offset[{-1.5, 0}, {1., 0.0008917790057074995}]}]}, {
       LineBox[{{10., 0.015578885839725005`}, {10., 0.008746148339725}}], 
       LineBox[{
        Offset[{1.5, 0}, {10., 0.015578885839725005`}], 
         Offset[{-1.5, 0}, {10., 0.015578885839725005`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {10., 0.008746148339725}], 
         Offset[{-1.5, 0}, {10., 0.008746148339725}]}]}, {
       LineBox[{{10., 0.015574505217324997`}, {10., 0.008728690529825}}], 
       LineBox[{
        Offset[{1.5, 0}, {10., 0.015574505217324997`}], 
         Offset[{-1.5, 0}, {10., 0.015574505217324997`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {10., 0.008728690529825}], 
         Offset[{-1.5, 0}, {10., 0.008728690529825}]}]}, {
       LineBox[{{20., 0.02913592592317501}, {20., 0.016261045329424996`}}], 
       LineBox[{
        Offset[{1.5, 0}, {20., 0.02913592592317501}], 
         Offset[{-1.5, 0}, {20., 0.02913592592317501}]}], 
       LineBox[{
        Offset[{1.5, 0}, {20., 0.016261045329424996`}], 
         Offset[{-1.5, 0}, {20., 0.016261045329424996`}]}]}, {
       LineBox[{{30., 0.039049900363050005`}, {30., 0.02167178223805}}], 
       LineBox[{
        Offset[{1.5, 0}, {30., 0.039049900363050005`}], 
         Offset[{-1.5, 0}, {30., 0.039049900363050005`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {30., 0.02167178223805}], 
         Offset[{-1.5, 0}, {30., 0.02167178223805}]}]}, {
       LineBox[{{40., 0.04524754030899998}, {40., 0.024962650934000005`}}], 
       LineBox[{
        Offset[{1.5, 0}, {40., 0.04524754030899998}], 
         Offset[{-1.5, 0}, {40., 0.04524754030899998}]}], 
       LineBox[{
        Offset[{1.5, 0}, {40., 0.024962650934000005`}], 
         Offset[{-1.5, 0}, {40., 0.024962650934000005`}]}]}, {
       LineBox[{{50., 0.04884440319322504}, {50., 0.026797413193224966`}}], 
       LineBox[{
        Offset[{1.5, 0}, {50., 0.04884440319322504}], 
         Offset[{-1.5, 0}, {50., 0.04884440319322504}]}], 
       LineBox[{
        Offset[{1.5, 0}, {50., 0.026797413193224966`}], 
         Offset[{-1.5, 0}, {50., 0.026797413193224966`}]}]}, {
       LineBox[{{60., 0.05085935732104999}, {60., 0.027789636383549997`}}], 
       LineBox[{
        Offset[{1.5, 0}, {60., 0.05085935732104999}], 
         Offset[{-1.5, 0}, {60., 0.05085935732104999}]}], 
       LineBox[{
        Offset[{1.5, 0}, {60., 0.027789636383549997`}], 
         Offset[{-1.5, 0}, {60., 0.027789636383549997`}]}]}, {
       LineBox[{{70., 0.051903749654925}, {70., 0.028278917779924986`}}], 
       LineBox[{
        Offset[{1.5, 0}, {70., 0.051903749654925}], 
         Offset[{-1.5, 0}, {70., 0.051903749654925}]}], 
       LineBox[{
        Offset[{1.5, 0}, {70., 0.028278917779924986`}], 
         Offset[{-1.5, 0}, {70., 0.028278917779924986`}]}]}, {
       LineBox[{{80., 0.05231479211874999}, {80., 0.02838999555625}}], 
       LineBox[{
        Offset[{1.5, 0}, {80., 0.05231479211874999}], 
         Offset[{-1.5, 0}, {80., 0.05231479211874999}]}], 
       LineBox[{
        Offset[{1.5, 0}, {80., 0.02838999555625}], 
         Offset[{-1.5, 0}, {80., 0.02838999555625}]}]}, {
       LineBox[{{90., 0.05228504643724999}, {90., 0.02827014674974998}}], 
       LineBox[{
        Offset[{1.5, 0}, {90., 0.05228504643724999}], 
         Offset[{-1.5, 0}, {90., 0.05228504643724999}]}], 
       LineBox[{
        Offset[{1.5, 0}, {90., 0.02827014674974998}], 
         Offset[{-1.5, 0}, {90., 0.02827014674974998}]}]}, {
       LineBox[{{100., 0.051950690245625}, {100., 0.027998000870624998`}}], 
       LineBox[{
        Offset[{1.5, 0}, {100., 0.051950690245625}], 
         Offset[{-1.5, 0}, {100., 0.051950690245625}]}], 
       LineBox[{
        Offset[{1.5, 0}, {100., 0.027998000870624998`}], 
         Offset[{-1.5, 0}, {100., 0.027998000870624998`}]}]}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesLabel->{
      FormBox["\"Re\"", TraditionalForm], 
      FormBox["\" m\[Psi]\"", TraditionalForm]},
    PlotLabel->FormBox["\" m\[Psi](Re)\"", TraditionalForm],
    PlotRangeClipping->True,
    ImageCache->GraphicsData["CompressedBitmap", "\<\
eJzFGmlsVEV4uke35ShHkVQ0WH4Qmv5Q2hAiGy4FkUuheLRWEbCyQjwgUBIC
GkENh5G48QhHq6BUropATLZoKqBEBDHWVDHihhAkWBJFEonRRuJzvjm/mTdv
2ZZaN3n79n0z77uvmdl75tUumP/0vNqFNfOK714yb/GChTVLiyctWkJB4RxC
SDW9ZhQT+O3Rn+KrmnieB4P4VshuYZJKEPaJJ9P0CWD5CiY/iZTHRvxzexIv
nSTxRIo92XPwM0VCQgwywDfH89IkGVfUSMrCVSrH4kmS9tMJOUTpw6Xsz25R
4sGY4DKViJNk2lPSpilpzkmKJOHumMtJDDOltefVJxSHgJNpzYELwxRtY145
qSjTWrgWDgkrMEVWLAgUQCaiRE4q9P55zcwYYabLoew9e055RZkPt4seqDTB
2KR3wtk051WRIcVVGXhx47VE5cpwiVqGWPCc8+DOYMiy9jwQF/sz/Hbiktay
YiZIXBcOFywLy0bZ03DlDG5rAEnqWEhU37xnVxIViSIUAy0rxhlO37xOWdaS
NDgUByIf1r7lDBU1h6gx1zwRihz9TW5ULh/pusgNTskRLUFwyuNTYxkzMn+v
kAnrytLOjOzIukOKtXu4eMmQks0yRHoF0NfulUW2H81gvdyFBNShnrUWqRFy
BA+Z6kOPbK04WuRWzoNkHX5rP0wnEwg1CYhlSTjLmOHTw7zWC32NlAGEmJEe
GxIuZVT5eDKHGZkEpFPJU5YpSxjp+9mP7AacjLfh8B0zGNP0MWNSS0LJOV2p
LEHjt+lTt0nG4AqZOmR3DosaMHPs/5hvwvIYrKfldLpKGclPJMku9XrB1OQT
x39Shu7ncMiYA9bXActV36ZAIjvnGlljdQl3nt4Vzc6sgcalb0kQKV4J/s6k
DQHGkSKtYMcMse+wTiXCda+lvfwMhUiLFVG0udSVh5rPHFn0zIen5szec3BZ
barvlSvtY7Lw/fzAYu+jxnUdXdy4u7Xl8Zq9/4wfuwUo3nLx4hWiSQXHf35w
22OTIjHDrvQ6seCJfd64MZupfI1kbNcKFkJBfPXO8XVABy5EpwvN1QN+ghJ/
vq9iO5BpmzVz++jW1rbitrbfx7d8fWH6sc/PDU//+OsoQb2go+4qg5g34RGt
BH4hNoAs2BDsKb1m1da3vzr16Ow9F2ZVNOxbueKjUVkoISDiPbRG4esjHTIi
puc2pX7YunbNEfakSQXb1T0m6zpem4SV0/LAzzNo0avk3LnLk05+eR6UDsof
kYUTu8dCiqBeL9ii5jU+/9zH1N5bNm545ShAdq5e1XymqnJnuvqhXa++/tqx
EZ2WXhRxQ/EhW9O/3Dv9HSD/510T6sUomFrkNtBB1SfNaamL2wQz/bllhXOV
xMsFAeR8jvF6VZxLaN1gTPksv+HNN461VczYDlZB/LB65IEjgvNdnjZ1W0vN
Y+/DpLz29quYzaJLl/4gpaZ3Cj5K42V+77TGcFM8JG4ldJd3ah452sGHaeQA
I/AEOmuiEUS1+9YXCxfsh5oGbx996skDZysf3AFzgeGZRz87u27zphObqBMs
btzTCu/CvCR1AIDDOAi6/L2GlvqX13/6Un3dSaABvgo4Tj9cvWvAdYcJtp+r
A+R1Kg+8UiZDMJVkDJ5PJuZ/IF7FehAkCs5WPrADdCKNCUajKN69/dR3FwEG
cu6nBqbG3Sv1APcQpCOSL+0N1EB929auOQwkpA8AKqL10JmiI1cxkLV0fevB
RQL2Qcq/aTkgwWLmYjGlGwAsnIX/uBAywsoM/a/f0HT9kkyhfMi8uyd/Bh8F
5YId5BvSvAdWLD8oKHSbkB2uL+m0WFtSb+brTC1jLyvDKZO2T7yjrnsl4y1t
Rwu4XnpSWLwetRA+0cCQkCnXbd543DZkw4svHJIwKR7muBusl2krJmzsONgu
GgHuICPABb/5SzGDLXpJ2/41cUKdRLx+08bjAGPlVrxnl2CczJwRYMHYU2EW
UZnrGEvB0kD2ZLoZ9azcE5HlAK4MMoPRoZbX7tr5jeTz/P2zGoBPXeNJzKj7
SFcstbliw4JZMnc41VpbpNqN+wW6WMyOyzkHm04D/7pXIDGjfxD6sLOZKzCk
3rK2ZfBKAu+HZiNXN+Wbgk71bFRItWSdojcArY0DdvEVSRSKMVhAtgjQLnR3
YQzu+txjOOuUlkzRHRAz3cDuZb6zfb7a4/Jwn8/boTxYOkqLwAWd1n8pRKfX
Sqy+oR6U+VgRDzloBaUAEKzQOoMAEMhNy5amWBtpc52LucadYjYNc0CUG/u/
eB0/mJMERqHf/3bunEZYsABZYCPEUifTI7S/l6dN2Uo4LAIMu9v54BKaF7jA
TiVZ4xNVjE0Q6CJiKvd/KkxUKN6/1R5BcjLMkzkO59mveStyuOQ4cwj3oGKI
7+b3VqwkUnLfDG2zQ0eHeiBpgrEYRYHvUBW392BNeb6kcjVvFMd0DIsUj9/V
vo7AwvMh4JJi6FMh3zkY8qwE2v82GOojGEoSvUiRq1X7uMx/SMoPE8iNUv9o
H0oob5Cymnb5MRmsPNRhynJrSB6Ae3If1kTfS85DfjzIRkEZTfDzoiiimBBo
CxSKpPI1LiQcuXmwla2OJSgF9ZtaPCX1yKzPVcmrXb7dihH/GYycW2DkB+yU
+jgEHeDpZYnBZR9itv74lIdT436rjwi5B8ZRxN7AHQQdruF3FXXMDdI73qbC
9A02CzvGpkRpsyXIhpRjmGyK9/X+nfaYCMpXElbUcQ71DqQ0Kzry9XEYNTkU
Y7goGx/1npNN7t8DCD4W0OffRNgDse04W7dLKH2wdak+XO9KEKNT9R+tOnV6
s7KgETK6Zqh/qOD/LGChVLOfwTm5HtEZUJ4RreZrbJpwzWEo24jYEjL5j7H8
EcGfgdmYA4+PhDaM2oUw5LLQp9R/N2JKy3E7Ud1qZFKOIcLeCxuJSOU/uXzS
6dKZoUnOv3J413g=\
\>"]], ",", 
   GraphicsBox[
    {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJxTTMoPSmViYGCQAGIQDQEqDr/OtDGccW6zh/BNHNIzNXje1k6B8u0c5F7I
J3kJzIbyXRzkpRj3s4vNh/I9HTgnqJX8W7UAyvdzsIhiSZ9qtxDCbwh06Hl+
pX5hJZTPEOKgckgq60AjTD7MYUbZLHmTNJh8pMOO+5JJc81g8tEOT7xWbl32
HWZ+nMPMc8V+n9dD+Q4JDlVPq7oWJ0H5DYkO9yeqSqQIQ/kHkhzapnOXrmuG
uTfFIeTyefOnD+ZB9ac6nH9Ra/TEEcpvSHNoq/HYNGHJXKj+dIdTj6ewnBOA
8hkyHbZlHOpIapoD1Z/l0PRTeGLbd2j4NGQ7xPzVnJRUAOUfyHE4VMHgt+Tz
LKj+PIdfUvEeX6tm2QMA0o9yIQ==
      "]], {{
       LineBox[{{10., 0.011128952424385559`}, {10., 0.01061404715994499}}], 
       LineBox[{
        Offset[{1.5, 0}, {10., 0.011128952424385559`}], 
         Offset[{-1.5, 0}, {10., 0.011128952424385559`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {10., 0.01061404715994499}], 
         Offset[{-1.5, 0}, {10., 0.01061404715994499}]}]}, {
       LineBox[{{20., 0.020480555043722808`}, {20., 0.019542683838450314`}}], 
       LineBox[{
        Offset[{1.5, 0}, {20., 0.020480555043722808`}], 
         Offset[{-1.5, 0}, {20., 0.020480555043722808`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {20., 0.019542683838450314`}], 
         Offset[{-1.5, 0}, {20., 0.019542683838450314`}]}]}, {
       LineBox[{{30., 0.02705107071238671}, {30., 0.02580759139518101}}], 
       LineBox[{
        Offset[{1.5, 0}, {30., 0.02705107071238671}], 
         Offset[{-1.5, 0}, {30., 0.02705107071238671}]}], 
       LineBox[{
        Offset[{1.5, 0}, {30., 0.02580759139518101}], 
         Offset[{-1.5, 0}, {30., 0.02580759139518101}]}]}, {
       LineBox[{{40., 0.031092498576453687`}, {40., 0.029622453955318144`}}], 
       LineBox[{
        Offset[{1.5, 0}, {40., 0.031092498576453687`}], 
         Offset[{-1.5, 0}, {40., 0.031092498576453687`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {40., 0.029622453955318144`}], 
         Offset[{-1.5, 0}, {40., 0.029622453955318144`}]}]}, {
       LineBox[{{50., 0.033369826674988744`}, {50., 0.031739334088836384`}}], 
       LineBox[{
        Offset[{1.5, 0}, {50., 0.033369826674988744`}], 
         Offset[{-1.5, 0}, {50., 0.033369826674988744`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {50., 0.031739334088836384`}], 
         Offset[{-1.5, 0}, {50., 0.031739334088836384`}]}]}, {
       LineBox[{{60., 0.03455608726873097}, {60., 0.03280511273073036}}], 
       LineBox[{
        Offset[{1.5, 0}, {60., 0.03455608726873097}], 
         Offset[{-1.5, 0}, {60., 0.03455608726873097}]}], 
       LineBox[{
        Offset[{1.5, 0}, {60., 0.03280511273073036}], 
         Offset[{-1.5, 0}, {60., 0.03280511273073036}]}]}, {
       LineBox[{{70., 0.035049781710127126`}, {70., 0.03321240787737145}}], 
       LineBox[{
        Offset[{1.5, 0}, {70., 0.035049781710127126`}], 
         Offset[{-1.5, 0}, {70., 0.035049781710127126`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {70., 0.03321240787737145}], 
         Offset[{-1.5, 0}, {70., 0.03321240787737145}]}]}, {
       LineBox[{{80., 0.03514314355627661}, {80., 0.03324295902896758}}], 
       LineBox[{
        Offset[{1.5, 0}, {80., 0.03514314355627661}], 
         Offset[{-1.5, 0}, {80., 0.03514314355627661}]}], 
       LineBox[{
        Offset[{1.5, 0}, {80., 0.03324295902896758}], 
         Offset[{-1.5, 0}, {80., 0.03324295902896758}]}]}, {
       LineBox[{{90., 0.03495879573361424}, {90., 0.03300695755052255}}], 
       LineBox[{
        Offset[{1.5, 0}, {90., 0.03495879573361424}], 
         Offset[{-1.5, 0}, {90., 0.03495879573361424}]}], 
       LineBox[{
        Offset[{1.5, 0}, {90., 0.03300695755052255}], 
         Offset[{-1.5, 0}, {90., 0.03300695755052255}]}]}, {
       LineBox[{{100., 0.03462452731676586}, {100., 0.03261507806277413}}], 
       LineBox[{
        Offset[{1.5, 0}, {100., 0.03462452731676586}], 
         Offset[{-1.5, 0}, {100., 0.03462452731676586}]}], 
       LineBox[{
        Offset[{1.5, 0}, {100., 0.03261507806277413}], 
         Offset[{-1.5, 0}, {100., 0.03261507806277413}]}]}, {
       LineBox[{{110., 0.03417678239178307}, {110., 0.03210207517400432}}], 
       LineBox[{
        Offset[{1.5, 0}, {110., 0.03417678239178307}], 
         Offset[{-1.5, 0}, {110., 0.03417678239178307}]}], 
       LineBox[{
        Offset[{1.5, 0}, {110., 0.03210207517400432}], 
         Offset[{-1.5, 0}, {110., 0.03210207517400432}]}]}, {
       LineBox[{{120., 0.03365895153991572}, {120., 0.031525838740818275`}}], 
       LineBox[{
        Offset[{1.5, 0}, {120., 0.03365895153991572}], 
         Offset[{-1.5, 0}, {120., 0.03365895153991572}]}], 
       LineBox[{
        Offset[{1.5, 0}, {120., 0.031525838740818275`}], 
         Offset[{-1.5, 0}, {120., 0.031525838740818275`}]}]}, {
       LineBox[{{130., 0.03309566229175407}, {130., 0.030909446835871757`}}], 
       LineBox[{
        Offset[{1.5, 0}, {130., 0.03309566229175407}], 
         Offset[{-1.5, 0}, {130., 0.03309566229175407}]}], 
       LineBox[{
        Offset[{1.5, 0}, {130., 0.030909446835871757`}], 
         Offset[{-1.5, 0}, {130., 0.030909446835871757`}]}]}, {
       LineBox[{{140., 0.032515815150217946`}, {140., 0.03028006792855208}}], 
       LineBox[{
        Offset[{1.5, 0}, {140., 0.032515815150217946`}], 
         Offset[{-1.5, 0}, {140., 0.032515815150217946`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {140., 0.03028006792855208}], 
         Offset[{-1.5, 0}, {140., 0.03028006792855208}]}]}, {
       LineBox[{{150., 0.031916220305975684`}, {150., 
        0.029635304607577555`}}], 
       LineBox[{
        Offset[{1.5, 0}, {150., 0.031916220305975684`}], 
         Offset[{-1.5, 0}, {150., 0.031916220305975684`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {150., 0.029635304607577555`}], 
         Offset[{-1.5, 0}, {150., 0.029635304607577555`}]}]}, {
       LineBox[{{160., 0.031315982369620486`}, {160., 
        0.028993583234557092`}}], 
       LineBox[{
        Offset[{1.5, 0}, {160., 0.031315982369620486`}], 
         Offset[{-1.5, 0}, {160., 0.031315982369620486`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {160., 0.028993583234557092`}], 
         Offset[{-1.5, 0}, {160., 0.028993583234557092`}]}]}, {
       LineBox[{{170., 0.030728156858273344`}, {170., 0.02836830459378536}}], 
       LineBox[{
        Offset[{1.5, 0}, {170., 0.030728156858273344`}], 
         Offset[{-1.5, 0}, {170., 0.030728156858273344`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {170., 0.02836830459378536}], 
         Offset[{-1.5, 0}, {170., 0.02836830459378536}]}]}, {
       LineBox[{{180., 0.030145084032497407`}, {180., 
        0.027751073959941714`}}], 
       LineBox[{
        Offset[{1.5, 0}, {180., 0.030145084032497407`}], 
         Offset[{-1.5, 0}, {180., 0.030145084032497407`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {180., 0.027751073959941714`}], 
         Offset[{-1.5, 0}, {180., 0.027751073959941714`}]}]}, {
       LineBox[{{190., 0.02959699509790354}, {190., 0.027171840026376855`}}], 
       LineBox[{
        Offset[{1.5, 0}, {190., 0.02959699509790354}], 
         Offset[{-1.5, 0}, {190., 0.02959699509790354}]}], 
       LineBox[{
        Offset[{1.5, 0}, {190., 0.027171840026376855`}], 
         Offset[{-1.5, 0}, {190., 0.027171840026376855`}]}]}, {
       LineBox[{{200., 0.0290678287593753}, {200., 0.026614429078171953`}}], 
       LineBox[{
        Offset[{1.5, 0}, {200., 0.0290678287593753}], 
         Offset[{-1.5, 0}, {200., 0.0290678287593753}]}], 
       LineBox[{
        Offset[{1.5, 0}, {200., 0.026614429078171953`}], 
         Offset[{-1.5, 0}, {200., 0.026614429078171953`}]}]}, {
       LineBox[{{210., 0.02855099290682709}, {210., 0.02607185294289669}}], 
       LineBox[{
        Offset[{1.5, 0}, {210., 0.02855099290682709}], 
         Offset[{-1.5, 0}, {210., 0.02855099290682709}]}], 
       LineBox[{
        Offset[{1.5, 0}, {210., 0.02607185294289669}], 
         Offset[{-1.5, 0}, {210., 0.02607185294289669}]}]}, {
       LineBox[{{220., 0.028047158115624405`}, {220., 
        0.025544646715201274`}}], 
       LineBox[{
        Offset[{1.5, 0}, {220., 0.028047158115624405`}], 
         Offset[{-1.5, 0}, {220., 0.028047158115624405`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {220., 0.025544646715201274`}], 
         Offset[{-1.5, 0}, {220., 0.025544646715201274`}]}]}, {
       LineBox[{{230., 0.027581946060141086`}, {230., 
        0.025058143472433857`}}], 
       LineBox[{
        Offset[{1.5, 0}, {230., 0.027581946060141086`}], 
         Offset[{-1.5, 0}, {230., 0.027581946060141086`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {230., 0.025058143472433857`}], 
         Offset[{-1.5, 0}, {230., 0.025058143472433857`}]}]}, {
       LineBox[{{240., 0.027131457730691963`}, {240., 
        0.024587888396257612`}}], 
       LineBox[{
        Offset[{1.5, 0}, {240., 0.027131457730691963`}], 
         Offset[{-1.5, 0}, {240., 0.027131457730691963`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {240., 0.024587888396257612`}], 
         Offset[{-1.5, 0}, {240., 0.024587888396257612`}]}]}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesLabel->{
      FormBox["\"Re\"", TraditionalForm], 
      FormBox["\" m\[Psi]\"", TraditionalForm]},
    PlotLabel->FormBox["\" m\[Psi](Re)\"", TraditionalForm],
    PlotRangeClipping->True,
    ImageCache->GraphicsData["CompressedBitmap", "\<\
eJy9WXtwjFcUv+wmK4KEICidUFRV61GdYQ15JxJJJJ4JbYnUNpQiNR2jGFot
f7TTnepMZeWFRNRbsR716JSaFtNMlal2i6KqD68yGUmF7T33fb98u9kkM83M
5n577rnnnHvO75x7vrvpuQvzZ87NXTgrLzcquSB3fv6svDejkuYVYJKlBUJo
Cv6Mi0Lw7MWP7N8U5PV6YVIdOpLBijxOO+J/Dre3JSG3QW4HJdmdHkLh3zEB
efB3lYZ56DKbIPW36+ygpSUhWEEL4YbPin7IQshBgqxqpmItGq0LtT+SDJ3x
lAO5QRrwONxMhB05PSDOg5x2Nu+LR6MNQVmDCb+VEDrUEw8b6Wcfgpe6kRN8
06BIQovUjfY4HYQTpAl34FXU27rRZjw6LRv1jMpWjTYT78GG9GfBbFgkoTGj
O5MBf/E4EeYhhtEd+jfcjEenCcNxiIES4UdHCoq0FwUol9IiVaAPZKIJzP36
thn+p98D0NPfPthn/M1obCudyNAFuZ0yCX3iuunYp1nX0VyNnQenP96lT7z7
yYFOrMJIP3GDvYaqAxsQfjQrBZQWJGg9o6Tb6VywLzW0GAWL+mZaz0wLj15G
0/huhLVK5DUkuJFDTLupfJROhhBDsOBZGsuT2aouCdKWcPQb/aFW4BZ0eRjd
WNSNG/e8/IB40UtcocqVy6VcqzCFBbelKtKWdvLrKw/jYtaBsMcxo1z07CEc
iBdyneYVEzZtwjj+/zy6oTZCCzUtcBI/PL40csw34VTcW5UVVVV5udtWF376
DRVHNh+lKyOfdhy3JmUIK6O2oG4mKwcyzKoRpDC3ILUYBSsiiBmj/BGIjpH+
OAxm+OJlOzM2FtRxulPVefzdX4dgracmyLQe0QMmzEepFO4l5vg61y0musyq
tYWlktkcxUUrPOeELYffv1+LRvTtjboOKPRGjyxEpQvGAZ/Ft2NZfvtSajbH
lRJfO9ytamvr0PNdkVC6Jj9TKFXj3YT90Tmb8Nn2BS+gARl7pu93X9B5mhkz
5j8GH9/nUH1dFIa48SR/bbMOm8LQOG+Aodo1RzoaC8PWgcKQwUB2oeJg8wWN
puHRoviTG2mR5Z5rJRt8ms7GVH13/di8N/Z4puRsZj1W06Fp4dBUd6g1gxKb
vegsIMq55uOTpx0zd+CjBGBsqU6OLyJPwBHRTAy3koER53g8em4kSRnYuXQJ
reOtu9y6VQ0TF7MnV95OG1MGjNfHZ5V/OW/ubni+l5JcAqP0lm+IhAeOepjH
9IS09SD8UWy0a/7WLWfNYPIEpfW7cuVO0ulT15auLzvDXBeC/6+Fp5rEuHUw
wkl+I2vsBniui4t2ES5uuNVYhoOEx8yKu6Dx/gQc2psQ+6C4GftIcZDe7Eq4
2kOVWlRRXlW26v1jJ+bM3s285/prbPoG1Zt1cTEusPRSzqRNv06auAks/zsj
ff32pUsOCYvbN/Xs4cYrh7rFxwFE+9sO4F1AwbUJ4yvADrD5cvakTXfHjCb2
P44Z6eJefZCYUIxt33gJz5/Nnb519+JFByCxBnl+vtkpAJSYz1EzWb/iYD28
ge+9M9WgCJq2YefP/UGbMZoypDmEyZVFrlMMHzaOjwdJJMVcD+NjXVuWLzt0
PyWpBKOMpF/FyneOLC8tOQPWsyg2vSSFatEx8vXL2w+ZBXqvTpxQQXFOm61w
XhlOzHl9993UlFJg4qMETbTr/uikkt8mji//JSe78ofp07bufHvxQQBdjwCK
WYSPN2DlZBDO1vmGrqi6lZ5KjKlNiCXdMuugw8Hv4L9ty5Z+4Zmas5kjB/u4
WEXOI9xd18XGrPszM2PDoYUF+1YXrv028/hXl6Oa73KcmE5+YWB8Z3UcPDft
la3VSYnFv4/L3EgRgywk2LzAhNBCCBE4jr0P6XgrnRbCfxNIYdGAQ7FlBWzl
79p5HjAHDVGvAJDfwfwI9XjYGyuGjt0c+axmgqLDBQv2sm28fPDAT6Afajii
5cwCZfQT50cnLrw09TOWB6E1dBuF1ckJRQ0BCfVtXsuRLdr3nkskuFqyNgTa
DuZ32MudMSllLCbBJFET44uv4hJ0MWdy5fczcrcdLpi/j+ZpG46rf1KTSwLB
1TPNrEQWrRLJbkBsHYBfvvLdo8z+tgQncbEufnDezKBnW00iPd+ZwS4o/Sdn
z9qFg1LEAmTF5d81+egRDwfTs81ujdQ4+WyNUDgouZ2WSsBOjIXspsYW8oMZ
ziYcqNLa+LgizFt6+rWZO9Z++MFxQNqgAMpOSEBlhxtp3j+h0FU4roBpcCdO
55KahPgiOKl2YdwC3l/d+/mPIheGNNN/Nq2oGC/HGtc3tw086VlTBM+Jje5a
hJFK12I13iTFU7Gml+v60N0ENCP0KdVHbCqCbZlb53Cr92Gsr4LtKtZyt9pV
Ee2o5cxrRtBA1HgqkhF4qReHN06KvHWGUdxeMCkdyBCG5O0Eb2ntwmyBIi4d
a3Qot7uaQWHMICeS0OfdprFp4O8WsmseRkX1UAuUXXPekyJqEtrD/UT5KZNQ
DjVM8csFL7+F0cW34XwKyrsbRchKGqRodDCx7YQIp8AabftZRxYqu1qsQf1Z
x839SKJPXUkPmxDtmpR+jBeWnLedVgdUUMpuWrmVljmrWRlmOB3VK1GqjeIW
Cbzwt3JZeTpRgNjVS2y51uwEVv2uvpCq+jUzIxpnJhdpNIupFVfWBjPZevmq
LhFjZTT1WOjWeAvltQMPq/5+qVsYpFvI5tSjQPsT60zNpLfqHZF6a8lvQBxs
uWa2UoVk/dIPRXE3HYyM19nsOlxsRKlj/DrXj7FdeUqyCGopI48R8ZOnSBuh
hm6KiG0AnNSPZNP8/k7NVn0ZYWPQ7KNUG34eaq+E6q9C9TKCfgdjbSZy6qmQ
gRFXW9q+DOLZDvB3m/Cy3VioBmiVlEqwknUWrRCJ+sfSXymXemlGLf4D+2NB
qQ==\
\>"]]}], "]"}]], "Input",
 CellChangeTimes->{{3.50728902003675*^9, 3.507289024568*^9}, {
  3.50728911334925*^9, 3.5072891311305*^9}, {3.507289266396125*^9, 
  3.507289288208625*^9}}],

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{
   GraphicsBox[
    {Hue[0.67, 0.6, 0.6], 
     PointBox[{{0.5, 0.039789922761304136`}, {0.6, 0.04102322503056963}, {0.7,
       0.04146750061633102}, {0.8, 0.04131220891756408}, {0.9, 
      0.040735183859255134`}, {0.975, 
      0.040148674308095114`}}], {{
       LineBox[{{0.5, 0.04082990307557678}, {0.5, 0.03874994244703149}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.5, 0.04082990307557678}], 
         Offset[{-1.5, 0}, {0.5, 0.04082990307557678}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.5, 0.03874994244703149}], 
         Offset[{-1.5, 0}, {0.5, 0.03874994244703149}]}]}, {
       LineBox[{{0.6, 0.04212221827106993}, {0.6, 0.03992423179006932}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.6, 0.04212221827106993}], 
         Offset[{-1.5, 0}, {0.6, 0.04212221827106993}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.6, 0.03992423179006932}], 
         Offset[{-1.5, 0}, {0.6, 0.03992423179006932}]}]}, {
       LineBox[{{0.7, 0.04260287140587633}, {0.7, 0.040332129826785704`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.7, 0.04260287140587633}], 
         Offset[{-1.5, 0}, {0.7, 0.04260287140587633}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.7, 0.040332129826785704`}], 
         Offset[{-1.5, 0}, {0.7, 0.040332129826785704`}]}]}, {
       LineBox[{{0.8, 0.04246658164405919}, {0.8, 0.040157836191068975`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.8, 0.04246658164405919}], 
         Offset[{-1.5, 0}, {0.8, 0.04246658164405919}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.8, 0.040157836191068975`}], 
         Offset[{-1.5, 0}, {0.8, 0.040157836191068975`}]}]}, {
       LineBox[{{0.9, 0.04190378769648881}, {0.9, 0.03956658002202146}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.9, 0.04190378769648881}], 
         Offset[{-1.5, 0}, {0.9, 0.04190378769648881}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.9, 0.03956658002202146}], 
         Offset[{-1.5, 0}, {0.9, 0.03956658002202146}]}]}, {
       LineBox[{{0.975, 0.0413224421801254}, {0.975, 0.03897490643606483}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.975, 0.0413224421801254}], 
         Offset[{-1.5, 0}, {0.975, 0.0413224421801254}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.975, 0.03897490643606483}], 
         Offset[{-1.5, 0}, {0.975, 0.03897490643606483}]}]}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesLabel->{
      FormBox["\"r/R\"", TraditionalForm], 
      FormBox["\" m\[Psi]\"", TraditionalForm]},
    PlotLabel->FormBox["\" m\[Psi](r/R)\"", TraditionalForm],
    PlotRangeClipping->True,
    ImageCache->GraphicsData["CompressedBitmap", "\<\
eJy1WX2IFVUUv/vmvXE33V5k7vqVLiSyLBhZf2QDkiWZLytds1wk000cFDLF
DCL7w/2jrCga6g/LtpT8og8iCsaCLb9ILCP/KOljKDGJ7Y9ESCKsYJpz77n3
nnvfndebdnvL23lzz73n/s7nPXPmrv4t69Zu6N+yfk1/1+2b+zetW7/mka4F
GzdnQ14LY2xF9l3YxeB3mv3EfytYmqZApJep/NLG4pDxTxAlfCRNYxZmfzH/
nXJ6ic+oNpyTzyNhUSB5tLFux5wEJggGLMnuJwmIU/ilwlLgH8a4VcCiJGUe
v/MFrSfgdGBTq3G6Zy2No4gNupbWamppTzAb6BVOziYlEQsR7EQTEMwOYyE7
cAG5JVeg9YVIB1rYB3TPXhpHLBo0l4JK+oLujA6qCSRdycI1Jj9CFguYkDYf
mFCUMJgFTC+NWSRIrCxpNbGnkkmxFQIpuyOtgLpAy9croTJ3iEOnutD0s211
sU5W4wLVLXXpwgLmciwpcxJ2ZjoadDhdRhuo6XW1LtY7lBoCBehVwsHqHFKq
SyKcSCPSM6LJx7FBDJD23iGFEHbqYfpDrSKjTn5mK2uWTVoYY7DdLd0eqFGM
2YGTFitgOuRbBYl1NJEA6umx8mOh2LQ+CQi0nshgyGYW/18lEujlPKCS1JIc
IYBN8L6Fj7CGacVNK1ENhSJTqTGSLMRY+dDGhz9IMQcv/OzET9fy4XbDA6Su
InUP4GnipFuzhrHkppWUtahF6hKJ59D2NWJs4vnzv4MsP/QtP4Bm9wwhxBZj
eI5NLCGki3tKgPwUVXXSDNdAi7hyDufRA3v4ys9RTOFQaJZscUQPJnEueXrf
7NsycnVn/hDF2vmteZxFKeUbc1RU8XrYtEcpd8y3l8ur35gNmBWNR3wzDHmw
KMhKFOqbeIYokRsHVNVJS5MEHSYzFB79rvyotTVTYFe44TtWebhMXCZOdBYJ
UySsgW6dT10Jq46uMkg2hqcCbASHhIii19Bkj+3be0qGPZsmXGXJsaNn0pvn
viK/1yXf/ypNbMgyTmba6Am2FfeTDsoIvJYmdN4oiQkHDZDmmIdOcmb5vfth
nz9umz/IpouxruHh32BcRZktxIQmosd30GIIR49L6/OpjuWIC/KpUrIo2Mov
vPTi8VNrHnznq9Wr3j4wsG2oozDcwqkpu/IxostcHjzg8AgGTLu3P3kIvt1n
z15oF8NzTn/9y9KjR35ccPLzczBccUhAvSzzJH7X0YTCq06aQJz5FZEgl0dJ
ZZTStl2vfyHQVVovXfp73qkvf77z+Kdn4Qr30gPh967tTx0e7l2y55uV978J
qFkDqbi71UtVOK+ogNZHRi4Pt1RgCvCSv26d9ypc4V4iB4lWH4y/lVGWJw04
6YVFd+w2pCkrL8F6SD5u0BLJk0mZBqm5jLnqo4oSYwxSpTIJVBf8Z17ecQLm
7nj+uWMNg2RcHQ5X9iR0z5VvyBQ8nF2mKCjDuWVL98JcnqsaB/p/S5r19qBH
jTzIIcVjZoJwKJvxejJc+y4rKNiqDw9+B0Lx8f8p4VaILbVMZStxqQCFsCgq
xqgk4ramErFRqVNZSqk6L3h4nll+3/73tj7+kVMW03Q7P9mUYfULy5Jvkram
UnKuLLmx75sux2O6Ythv55/zb9nplAV3u+LixUsXFtV2cX10NhE3bU0l4sZ2
8W0JpLfxiCZWG+5dvGfw2acPOyWYamSqAnWeJ4051MvauwdklhLxUTaeD3IR
87okQ8x9328yFqY2od8CxVxKn4/4o+VIkis2G+AhsO/joSRT/RvqlJ8yunkn
VY9mOu8UP9EQMFjiyIaH3j/9wMq3Dj66JQaNE8AjzTCe8uTMn1Dzrmc2LPh4
LwCLf/jtNynMjFFLI5gyjNAsKb+oFsYzGjWZfhLHfqdRk7kwoTqhvD+37J59
YFwo+yWsERRXuiOiiiuOQpTm7ic4RAOlOpTsEBfgZohmssMd5gqSsyHvvFyN
AiRRqNQYmCTaakDSVfzSrsQOY9kTg8xHuiLkqVY+Xt5EWVxe95xIWzKhbLxS
XxP13JxiXKR44qoOB+QyXvqV1fYTbSH9CoG2p2VDTgazAaiKgCKmG0vSASx2
Kr61i94oWE1TQa8PM1TedGU1HZhzGlh5hsOUN1gk0iX0Hew9igabk5fJMRKP
nTZbPd314qOittL+p9lGaqyD+vxYXd1jE1xW+rHR4xUqF/2NK62eqLvfRJ4Y
xBwC1ejntRkJkfo3bTYZqKus/rVVYLSU5ZsT6WfCcwPSBcOsQhESniXUDm2x
E+SkxLDXeAYeA/b4YrClP9sw0UX0dpqnPhe1MWzIkr8+ZjRtQnG4uoCRPqDD
rzm4rfrItuGKtZV8pOKNyCSSb5gqp/T5RZA7uid2EaH6EBZP4+WeNUd1/oih
vH9T8GRlWyPY9AnIWbk66FI8Vec43DjiPEmLkLqF6RKJntrIi2dSEwbWWxWS
AlpxO/s9j21iHYwmz7rtNBKVO4nQY+R2Ku9a26FC4b6kbBLYCXGWI7P7FEIo
Gr1lRzUsHRhfDzpPDtbyD0Zc6Q4=\
\>"]], ",", 
   GraphicsBox[
    {Hue[0.67, 0.6, 0.6], 
     PointBox[{{0.3, 0.032554580381912564`}, {0.4, 0.036142051517273566`}, {
      0.5, 0.03836840387716068}, {0.6, 0.039852385743626206`}, {0.6, 
      0.039852385743626206`}, {0.7, 0.04082938396435376}, {0.8, 
      0.04151688895955037}, {0.9, 0.04210730829286087}, {0.975, 
      0.042495562812752706`}}], {{
       LineBox[{{0.3, 0.033369826674988744`}, {0.3, 0.031739334088836384`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.3, 0.033369826674988744`}], 
         Offset[{-1.5, 0}, {0.3, 0.033369826674988744`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.3, 0.031739334088836384`}], 
         Offset[{-1.5, 0}, {0.3, 0.031739334088836384`}]}]}, {
       LineBox[{{0.4, 0.03708863716516283}, {0.4, 0.0351954658693843}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.4, 0.03708863716516283}], 
         Offset[{-1.5, 0}, {0.4, 0.03708863716516283}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.4, 0.0351954658693843}], 
         Offset[{-1.5, 0}, {0.4, 0.0351954658693843}]}]}, {
       LineBox[{{0.5, 0.03941548522127806}, {0.5, 0.0373213225330433}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.5, 0.03941548522127806}], 
         Offset[{-1.5, 0}, {0.5, 0.03941548522127806}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.5, 0.0373213225330433}], 
         Offset[{-1.5, 0}, {0.5, 0.0373213225330433}]}]}, {
       LineBox[{{0.6, 0.04098023143552398}, {0.6, 0.038724540051728436`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.6, 0.04098023143552398}], 
         Offset[{-1.5, 0}, {0.6, 0.04098023143552398}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.6, 0.038724540051728436`}], 
         Offset[{-1.5, 0}, {0.6, 0.038724540051728436`}]}]}, {
       LineBox[{{0.6, 0.04098023143552398}, {0.6, 0.038724540051728436`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.6, 0.04098023143552398}], 
         Offset[{-1.5, 0}, {0.6, 0.04098023143552398}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.6, 0.038724540051728436`}], 
         Offset[{-1.5, 0}, {0.6, 0.038724540051728436`}]}]}, {
       LineBox[{{0.7, 0.042024994819597095`}, {0.7, 0.039633773109110426`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.7, 0.042024994819597095`}], 
         Offset[{-1.5, 0}, {0.7, 0.042024994819597095`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.7, 0.039633773109110426`}], 
         Offset[{-1.5, 0}, {0.7, 0.039633773109110426`}]}]}, {
       LineBox[{{0.8, 0.04277660093376674}, {0.8, 0.040257176985334}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.8, 0.04277660093376674}], 
         Offset[{-1.5, 0}, {0.8, 0.04277660093376674}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.8, 0.040257176985334}], 
         Offset[{-1.5, 0}, {0.8, 0.040257176985334}]}]}, {
       LineBox[{{0.9, 0.043426175203590545`}, {0.9, 0.040788441382131196`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.9, 0.043426175203590545`}], 
         Offset[{-1.5, 0}, {0.9, 0.043426175203590545`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.9, 0.040788441382131196`}], 
         Offset[{-1.5, 0}, {0.9, 0.040788441382131196`}]}]}, {
       LineBox[{{0.975, 0.04386033342090174}, {0.975, 
        0.041130792204603674`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.975, 0.04386033342090174}], 
         Offset[{-1.5, 0}, {0.975, 0.04386033342090174}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.975, 0.041130792204603674`}], 
         Offset[{-1.5, 0}, {0.975, 0.041130792204603674`}]}]}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesLabel->{
      FormBox["\"r/R\"", TraditionalForm], 
      FormBox["\" m\[Psi]\"", TraditionalForm]},
    PlotLabel->FormBox["\" m\[Psi](r/R)\"", TraditionalForm],
    PlotRangeClipping->True,
    ImageCache->GraphicsData["CompressedBitmap", "\<\
eJy1WX2IVFUUvztv9stt3WrNUaMcoWTYClsN2ob8IMtarWylUoQwEV/6Rykm
Ee3+0VBkmcGj/tC2XbVQI4QKgmfBkl8QmpIgCdVAYhLrHy2CUiFYr3vOPed+
vLmz7q7biPvmnXvn3N8953d+9777nli9ed3aF1dvXr9mdf7RTas3rlu/5uX8
og2bpCmoEUKslP8X5wV8T+RX+rNSJEkCjZ7LJLzUizgU+ClGZbQkSSxC+a8k
7RlsmQCtIiobu+5fjkQxLLE9wIapIozdroWiugrTlVz0iwiHdfvnZ1B/0Sn/
hSKWsMpRkX8kyvI+p2bRipe7RALTCGO8i0NAm6jZVNjLIgqli7R9AGYSe/3E
oYTAdrjm8qK7rCCFJbd/2KPgJXb/QgH9QH+IWoC9A4xeSFGfbE+nRbmOzRQ4
OZX2foxcP9rl1GSQVBami9ld7RU+ylEoerqVD4aPvmV7Rf+wR8NWdpmlzk4a
0woxZo8/yu5Mp02oYFROx7aXwxyRJDZ2+QUhdvdgdir8gJ2Iw1MqhivQP/Rt
K6bHVYRz/JQKNGySQUOtTpQN15lR+8gTJBFGsWuPOwuiQDPSdqgkxLFC0921
I0ZKtDtuHEViwE6SkP5xlqp00pGuMqVrlpAsnb6QhKCYLqGCgpkqoVJRlUq6
FPuKzWJGT9mxl6Vq9PG4cSSiPh43Em1UQtci0mRb2wJH21TV3aptzcK0sQtX
12LXjlwzFLf7szgx79i/0s8bHLsWNxIyVUKqdImIpG1Psk5Aa6TQNKqmpXqC
JsUNqonyWU3WbUL4pi+sygabUpPARF1xBVXKwLbZEtF3a0o8riZzKGrQImS1
+XgXUCX62jJ6tiTlhMpUbQxFji4yMMQsbG52CMMhifQ9wOXwwHd7MEGikKYe
w/S1ZXT2TODZVpYVy4kg28ENL30FA+HCXYC/9ezAgp3hRTvieRvYXAOBhuyr
loBoVK2S9Dorox7YU6AskEa+unfPKYar9hpgTRRXEgUA77IeW3AdtqwJTdYs
PaqWMmQ24UUOZjwUrqEg3YQTlquaoj6tHXbOfO2mWPKiqz9xVvRCoc1iTnB2
+TP7DHhl0wHj8HptyN3ssN+abGaHIRaXnqXEEsVpZiuaGH5iAcIKWCgpwS40
i64BRtXibYOFQJGvXxRzXWIAo0QhL4dya2ZHIJvMn/shR+Cpo0fOzrHrF2XN
BUh17FZeOgMKX5M/e9aamcP11N4YZVMakGDo72NBjXpEN/2YeSMs2azRqKoX
18QRFRe36VU+jE1i540rPVl2aKeDCTVjUUU3XLlydcGpH35fduTwr3C98fLl
K+L+cSUJqrnM9AoEWzBqZeMonDt3EcTwnwXze+EKWCwc1cnQMkIypDZXuKMl
H4HBEaDCSepuf2/bUdExgrS3jDjt9v6Sy9HEIbCEQ47/9yML+/T4uXHhg5KH
HqEfs+SGsZR4cpEfHLy05803vgUcX3a/9g3c/y+caNPbKDcWtN7BuK/v2nly
95a3DsIVccgWkBMpnRKdCO4t//KHLutZ48oXXv/KURvaYedq+NLg4cvscVuD
9TaCkgj9Te02erhCsjv9woXLG/d/drq0s/8kXO8mSM1jopDedA10iXwnqZf8
TScTqIihCtLIHjt+7DdA9vyB+Cdm1ZbeHccvdT6689/583ovLlm8+8HTpwfh
Ef56WQVLTy5U3/uKVj85jX6b3SpjtaAsoDAyav1aaSjex9e98AXgPrPquf2M
GxgG7NshMwzZBsUUd46AaXWeNrn1bKcVqY7I3w51oD7ywbWdtrCGYwEAJHW4
+tCCj3BhBe4rfBOgOfrg/e8uLuncDThRwWULXKFt0Ynvz3ec+fFCfuxi5q5X
WsC8PjDULQpu77tbDwHUvq1vH2KBe2fH9mO6YCjEQJMT4drPhx5f8jGkZMrQ
0J9iOuFtHRNzFUbZLpnbTJTos3YDudDZDSDqicMQlQhy/ulle3TJ0YyYUHhH
0gWJ4ETJxOzKDQ39BeQBEvEh1lhIz7KExVfS0YdlVUl+m+jqtjMx0S8LBH3V
1wd+hqlgnZKtd9vWwzpBxGR7isArmN7Z5c/uMzMZdRkUKRW1Fc+ibfI+q2ug
1VStzXJcCygpg11LP0klpc6ZhbSwThvEo5boVBX4HpNM3CeZpRTgAnQtHgT7
lU/3ngJ+WcGvc6YiLSzxDHtsO8N0MfgeXAz0aQp6msKoKwp6nQNdWkDv4X58
me17ujAwlZ7Ve7VDtiBdx4GfAd/iJ0Py4XuYUIJVn9ZdAATpRM0eCf2qPEh4
RNj3IJF6ppzrRKAa36udayJpaEDekti2h02+qx7nNFY/YuR82xsey8bes448
SGy1Goo2OZwuOqcWrm2hcjrcO5Lb6GdwbM5Yi26TeczWTarimzUoPphXz5HW
iUXqbBcY/oDtYmJFjtPHzHz+p1OhDkI6RueFp6eu+mmcvPA7ifRpn9qlhu4T
FXunVxvMXwdQCwGKhNnn8iuElDutqLF+5UCPH7drmpjTAwredJ01w+WOYbJ8
hyeVc1JN1lFhncd9YKOhM8kJbLNIn0u7Nd1rLRT8VqhWD2X4Z9xG2kbH3kqv
m8zzHr0yodIQsfMOTYVc6djNaR0TvmMj81tzxBRG9gEquWt0NMTmN2aSXDio
W4R7Qm2OYJl3iu/Wi6HYPEnzuWhiasASFvvwtUnYx+kWcut4sPLA1sbjwG4d
HWzmcxomUcR3Zmx2IiYZacjsP2vJIbfdMnq45nyCOWDKb2RwG8yKlIarfltb
HelUvEwV9hsEs7cRVEsWckvdjC6666Y+cEv51O8ZrK0b99HHf1aigmsFeJrO
rVNsZn1CV74XjDw9vYx7aByhT5x2poIWLiXKputwLJ5pp5BGdLsr9w2CV/Co
gi520CrefLi1PtODxFmvqXs9D6d1NzWcdRpitiPFtCDe41H2OhtCqE57s+is
1hVBIvAU4VkyRM1/iK5kjw==\
\>"]]}], "]"}]], "Input",
 CellChangeTimes->{{3.50623965653275*^9, 3.506239728360875*^9}, {
  3.506318037298375*^9, 3.5063180508765*^9}, {3.5072702893805*^9, 
  3.507270298864875*^9}}],

Cell[CellGroupData[{

Cell["\:0420\:0435\:0437\:0443\:043b\:044c\:0442\:0430\:0442\:044b", \
"Subsubsection",
 CellChangeTimes->{{3.5072894200055*^9, 3.50728942316175*^9}}],

Cell[CellGroupData[{

Cell["\"F(r)=1; Re=50\"", "Text",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{{3.506239512689*^9, 3.5062395348765*^9}, {
   3.506239575642125*^9, 3.506239575689*^9}, 3.594100763987109*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   GraphicsBox[
    {Hue[0.67, 0.6, 0.6], 
     PointBox[{{0.5, 0.3109866453574916}, {0.6, 0.3203125}, {0.7, 0.328125}, {
      0.8, 0.3351900706594598}, {0.9, 0.34145230213012245`}, {0.975, 
      0.34609381188065885`}}], {{}, {}, {}, {}, {}, {}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesLabel->{
      FormBox["\"r/R\"", TraditionalForm], 
      FormBox["\" shift\"", TraditionalForm]},
    PlotLabel->FormBox["\" shift(r/R)\"", TraditionalForm],
    PlotRangeClipping->True], ",", 
   GraphicsBox[
    {Hue[0.67, 0.6, 0.6], 
     PointBox[{{0.5, 0.1270879880558343}, {0.6, 0.12761044691746612`}, {0.7, 
      0.1253848470729196}, {0.8, 0.1210703428358523}, {0.9, 
      0.1168791669561522}, {0.975, 
      0.11700605774313559`}}], {{
       LineBox[{{0.5, 0.1271024880558343}, {0.5, 0.1270734880558343}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.5, 0.1271024880558343}], 
         Offset[{-1.5, 0}, {0.5, 0.1271024880558343}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.5, 0.1270734880558343}], 
         Offset[{-1.5, 0}, {0.5, 0.1270734880558343}]}]}, {
       LineBox[{{0.6, 0.12762294691746612`}, {0.6, 0.12759794691746612`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.6, 0.12762294691746612`}], 
         Offset[{-1.5, 0}, {0.6, 0.12762294691746612`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.6, 0.12759794691746612`}], 
         Offset[{-1.5, 0}, {0.6, 0.12759794691746612`}]}]}, {
       LineBox[{{0.7, 0.1253908670729196}, {0.7, 0.1253788270729196}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.7, 0.1253908670729196}], 
         Offset[{-1.5, 0}, {0.7, 0.1253908670729196}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.7, 0.1253788270729196}], 
         Offset[{-1.5, 0}, {0.7, 0.1253788270729196}]}]}, {
       LineBox[{{0.8, 0.1210756628358523}, {0.8, 0.1210650228358523}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.8, 0.1210756628358523}], 
         Offset[{-1.5, 0}, {0.8, 0.1210756628358523}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.8, 0.1210650228358523}], 
         Offset[{-1.5, 0}, {0.8, 0.1210650228358523}]}]}, {
       LineBox[{{0.9, 0.1168839369561522}, {0.9, 0.1168743969561522}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.9, 0.1168839369561522}], 
         Offset[{-1.5, 0}, {0.9, 0.1168839369561522}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.9, 0.1168743969561522}], 
         Offset[{-1.5, 0}, {0.9, 0.1168743969561522}]}]}, {
       LineBox[{{0.975, 0.11700703574313559`}, {0.975, 
        0.11700507974313559`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.975, 0.11700703574313559`}], 
         Offset[{-1.5, 0}, {0.975, 0.11700703574313559`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.975, 0.11700507974313559`}], 
         Offset[{-1.5, 0}, {0.975, 0.11700507974313559`}]}]}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesLabel->{
      FormBox["\"r/R\"", TraditionalForm], 
      FormBox["\" mvx\"", TraditionalForm]},
    PlotLabel->FormBox["\" mvx(r/R)\"", TraditionalForm],
    PlotRangeClipping->True], ",", 
   GraphicsBox[
    {Hue[0.67, 0.6, 0.6], 
     PointBox[{{0.5, 0.710057231028355}, {0.6, 0.6703904106504012}, {0.7, 
      0.636331261517286}, {0.8, 0.6066904581477236}, {0.9, 
      0.5807769709839788}, {0.975, 
      0.5348926969623711}}], {{
       LineBox[{{0.5, 0.7101057310283551}, {0.5, 0.710008731028355}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.5, 0.7101057310283551}], 
         Offset[{-1.5, 0}, {0.5, 0.7101057310283551}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.5, 0.710008731028355}], 
         Offset[{-1.5, 0}, {0.5, 0.710008731028355}]}]}, {
       LineBox[{{0.6, 0.6704322106504012}, {0.6, 0.6703486106504012}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.6, 0.6704322106504012}], 
         Offset[{-1.5, 0}, {0.6, 0.6704322106504012}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.6, 0.6703486106504012}], 
         Offset[{-1.5, 0}, {0.6, 0.6703486106504012}]}]}, {
       LineBox[{{0.7, 0.6363518615172861}, {0.7, 0.636310661517286}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.7, 0.6363518615172861}], 
         Offset[{-1.5, 0}, {0.7, 0.6363518615172861}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.7, 0.636310661517286}], 
         Offset[{-1.5, 0}, {0.7, 0.636310661517286}]}]}, {
       LineBox[{{0.8, 0.6067150581477236}, {0.8, 0.6066658581477236}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.8, 0.6067150581477236}], 
         Offset[{-1.5, 0}, {0.8, 0.6067150581477236}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.8, 0.6066658581477236}], 
         Offset[{-1.5, 0}, {0.8, 0.6066658581477236}]}]}, {
       LineBox[{{0.9, 0.5807902709839788}, {0.9, 0.5807636709839789}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.9, 0.5807902709839788}], 
         Offset[{-1.5, 0}, {0.9, 0.5807902709839788}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.9, 0.5807636709839789}], 
         Offset[{-1.5, 0}, {0.9, 0.5807636709839789}]}]}, {
       LineBox[{{0.975, 0.5348953369623711}, {0.975, 0.534890056962371}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.975, 0.5348953369623711}], 
         Offset[{-1.5, 0}, {0.975, 0.5348953369623711}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.975, 0.534890056962371}], 
         Offset[{-1.5, 0}, {0.975, 0.534890056962371}]}]}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesLabel->{
      FormBox["\"r/R\"", TraditionalForm], 
      FormBox["\" mvy\"", TraditionalForm]},
    PlotLabel->FormBox["\" mvy(r/R)\"", TraditionalForm],
    PlotRangeClipping->True], ",", 
   GraphicsBox[
    {Hue[0.67, 0.6, 0.6], 
     PointBox[{{0.5, 0.07871704689366528}, {0.6, 0.08569022306097251}, {0.7, 
      0.09154024101251208}, {0.8, 0.09634085450099317}, {0.9, 
      0.10001418473178736`}, {0.975, 
      0.10060367480978216`}}], {{
       LineBox[{{0.5, 0.07872598689366528}, {0.5, 0.07870810689366528}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.5, 0.07872598689366528}], 
         Offset[{-1.5, 0}, {0.5, 0.07872598689366528}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.5, 0.07870810689366528}], 
         Offset[{-1.5, 0}, {0.5, 0.07870810689366528}]}]}, {
       LineBox[{{0.6, 0.08569872306097251}, {0.6, 0.08568172306097252}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.6, 0.08569872306097251}], 
         Offset[{-1.5, 0}, {0.6, 0.08569872306097251}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.6, 0.08568172306097252}], 
         Offset[{-1.5, 0}, {0.6, 0.08568172306097252}]}]}, {
       LineBox[{{0.7, 0.09154522101251208}, {0.7, 0.09153526101251208}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.7, 0.09154522101251208}], 
         Offset[{-1.5, 0}, {0.7, 0.09154522101251208}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.7, 0.09153526101251208}], 
         Offset[{-1.5, 0}, {0.7, 0.09153526101251208}]}]}, {
       LineBox[{{0.8, 0.09634606450099317}, {0.8, 0.09633564450099316}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.8, 0.09634606450099317}], 
         Offset[{-1.5, 0}, {0.8, 0.09634606450099317}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.8, 0.09633564450099316}], 
         Offset[{-1.5, 0}, {0.8, 0.09633564450099316}]}]}, {
       LineBox[{{0.9, 0.10001677473178736`}, {0.9, 0.10001159473178736`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.9, 0.10001677473178736`}], 
         Offset[{-1.5, 0}, {0.9, 0.10001677473178736`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.9, 0.10001159473178736`}], 
         Offset[{-1.5, 0}, {0.9, 0.10001159473178736`}]}]}, {
       LineBox[{{0.975, 0.10060412480978216`}, {0.975, 
        0.10060322480978216`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.975, 0.10060412480978216`}], 
         Offset[{-1.5, 0}, {0.975, 0.10060412480978216`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.975, 0.10060322480978216`}], 
         Offset[{-1.5, 0}, {0.975, 0.10060322480978216`}]}]}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesLabel->{
      FormBox["\"r/R\"", TraditionalForm], 
      FormBox["\" mvz\"", TraditionalForm]},
    PlotLabel->FormBox["\" mvz(r/R)\"", TraditionalForm],
    PlotRangeClipping->True], ",", 
   GraphicsBox[
    {Hue[0.67, 0.6, 0.6], 
     PointBox[{{0.5, 0.00282738301014597}, {0.6, 0.002979851846442448}, {0.7, 
      0.003009600127340504}, {0.8, 0.0029390609489197863`}, {0.9, 
      0.0027899385556753114`}, {0.975, 
      0.002586690439898239}}], {{
       LineBox[{{0.5, 0.00282811501014597}, {0.5, 0.0028266510101459703`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.5, 0.00282811501014597}], 
         Offset[{-1.5, 0}, {0.5, 0.00282811501014597}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.5, 0.0028266510101459703`}], 
         Offset[{-1.5, 0}, {0.5, 0.0028266510101459703`}]}]}, {
       LineBox[{{0.6, 0.0029805478464424483`}, {0.6, 0.002979155846442448}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.6, 0.0029805478464424483`}], 
         Offset[{-1.5, 0}, {0.6, 0.0029805478464424483`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.6, 0.002979155846442448}], 
         Offset[{-1.5, 0}, {0.6, 0.002979155846442448}]}]}, {
       LineBox[{{0.7, 0.0030099991273405038`}, {0.7, 0.003009201127340504}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.7, 0.0030099991273405038`}], 
         Offset[{-1.5, 0}, {0.7, 0.0030099991273405038`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.7, 0.003009201127340504}], 
         Offset[{-1.5, 0}, {0.7, 0.003009201127340504}]}]}, {
       LineBox[{{0.8, 0.0029394729489197863`}, {0.8, 
        0.0029386489489197864`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.8, 0.0029394729489197863`}], 
         Offset[{-1.5, 0}, {0.8, 0.0029394729489197863`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.8, 0.0029386489489197864`}], 
         Offset[{-1.5, 0}, {0.8, 0.0029386489489197864`}]}]}, {
       LineBox[{{0.9, 0.0027901355556753113`}, {0.9, 
        0.0027897415556753114`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.9, 0.0027901355556753113`}], 
         Offset[{-1.5, 0}, {0.9, 0.0027901355556753113`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.9, 0.0027897415556753114`}], 
         Offset[{-1.5, 0}, {0.9, 0.0027897415556753114`}]}]}, {
       LineBox[{{0.975, 0.0025867230398982388`}, {0.975, 
        0.002586657839898239}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.975, 0.0025867230398982388`}], 
         Offset[{-1.5, 0}, {0.975, 0.0025867230398982388`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.975, 0.002586657839898239}], 
         Offset[{-1.5, 0}, {0.975, 0.002586657839898239}]}]}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesLabel->{
      FormBox["\"r/R\"", TraditionalForm], 
      FormBox["\" Evx\"", TraditionalForm]},
    PlotLabel->FormBox["\" Evx(r/R)\"", TraditionalForm],
    PlotRangeClipping->True], ",", 
   GraphicsBox[
    {Hue[0.67, 0.6, 0.6], 
     PointBox[{{0.5, 0.1631492272224705}, {0.6, 0.15045743873556972`}, {0.7, 
      0.13926420746635548`}, {0.8, 0.12912445396859895`}, {0.9, 
      0.11979352289248972`}, {0.975, 
      0.1053790768757645}}], {{
       LineBox[{{0.5, 0.1631717272224705}, {0.5, 0.16312672722247049`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.5, 0.1631717272224705}], 
         Offset[{-1.5, 0}, {0.5, 0.1631717272224705}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.5, 0.16312672722247049`}], 
         Offset[{-1.5, 0}, {0.5, 0.16312672722247049`}]}]}, {
       LineBox[{{0.6, 0.15047623873556973`}, {0.6, 0.1504386387355697}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.6, 0.15047623873556973`}], 
         Offset[{-1.5, 0}, {0.6, 0.15047623873556973`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.6, 0.1504386387355697}], 
         Offset[{-1.5, 0}, {0.6, 0.1504386387355697}]}]}, {
       LineBox[{{0.7, 0.13927530746635547`}, {0.7, 0.1392531074663555}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.7, 0.13927530746635547`}], 
         Offset[{-1.5, 0}, {0.7, 0.13927530746635547`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.7, 0.1392531074663555}], 
         Offset[{-1.5, 0}, {0.7, 0.1392531074663555}]}]}, {
       LineBox[{{0.8, 0.12913645396859896`}, {0.8, 0.12911245396859894`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.8, 0.12913645396859896`}], 
         Offset[{-1.5, 0}, {0.8, 0.12913645396859896`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.8, 0.12911245396859894`}], 
         Offset[{-1.5, 0}, {0.8, 0.12911245396859894`}]}]}, {
       LineBox[{{0.9, 0.11979977289248972`}, {0.9, 0.11978727289248972`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.9, 0.11979977289248972`}], 
         Offset[{-1.5, 0}, {0.9, 0.11979977289248972`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.9, 0.11978727289248972`}], 
         Offset[{-1.5, 0}, {0.9, 0.11978727289248972`}]}]}, {
       LineBox[{{0.975, 0.10538030687576451`}, {0.975, 0.1053778468757645}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.975, 0.10538030687576451`}], 
         Offset[{-1.5, 0}, {0.975, 0.10538030687576451`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.975, 0.1053778468757645}], 
         Offset[{-1.5, 0}, {0.975, 0.1053778468757645}]}]}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesLabel->{
      FormBox["\"r/R\"", TraditionalForm], 
      FormBox["\" Evy\"", TraditionalForm]},
    PlotLabel->FormBox["\" Evy(r/R)\"", TraditionalForm],
    PlotRangeClipping->True], ",", 
   GraphicsBox[
    {Hue[0.67, 0.6, 0.6], 
     PointBox[{{0.5, 0.0010099005833371676`}, {0.6, 0.0010910869124469208`}, {
      0.7, 0.0011353307066682059`}, {0.8, 0.001149150832960381}, {0.9, 
      0.0011391125178011792`}, {0.975, 
      0.0011029778287592058`}}], {{
       LineBox[{{0.5, 0.0010101685833371677`}, {0.5, 
        0.0010096325833371675`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.5, 0.0010101685833371677`}], 
         Offset[{-1.5, 0}, {0.5, 0.0010101685833371677`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.5, 0.0010096325833371675`}], 
         Offset[{-1.5, 0}, {0.5, 0.0010096325833371675`}]}]}, {
       LineBox[{{0.6, 0.0010913499124469207`}, {0.6, 
        0.0010908239124469209`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.6, 0.0010913499124469207`}], 
         Offset[{-1.5, 0}, {0.6, 0.0010913499124469207`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.6, 0.0010908239124469209`}], 
         Offset[{-1.5, 0}, {0.6, 0.0010908239124469209`}]}]}, {
       LineBox[{{0.7, 0.0011354877066682059`}, {0.7, 0.001135173706668206}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.7, 0.0011354877066682059`}], 
         Offset[{-1.5, 0}, {0.7, 0.0011354877066682059`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.7, 0.001135173706668206}], 
         Offset[{-1.5, 0}, {0.7, 0.001135173706668206}]}]}, {
       LineBox[{{0.8, 0.001149317832960381}, {0.8, 0.0011489838329603811`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.8, 0.001149317832960381}], 
         Offset[{-1.5, 0}, {0.8, 0.001149317832960381}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.8, 0.0011489838329603811`}], 
         Offset[{-1.5, 0}, {0.8, 0.0011489838329603811`}]}]}, {
       LineBox[{{0.9, 0.0011391957178011791`}, {0.9, 
        0.0011390293178011792`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.9, 0.0011391957178011791`}], 
         Offset[{-1.5, 0}, {0.9, 0.0011391957178011791`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.9, 0.0011390293178011792`}], 
         Offset[{-1.5, 0}, {0.9, 0.0011390293178011792`}]}]}, {
       LineBox[{{0.975, 0.0011029924287592058`}, {0.975, 
        0.0011029632287592058`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.975, 0.0011029924287592058`}], 
         Offset[{-1.5, 0}, {0.975, 0.0011029924287592058`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.975, 0.0011029632287592058`}], 
         Offset[{-1.5, 0}, {0.975, 0.0011029632287592058`}]}]}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesLabel->{
      FormBox["\"r/R\"", TraditionalForm], 
      FormBox["\" Evz\"", TraditionalForm]},
    PlotLabel->FormBox["\" Evz(r/R)\"", TraditionalForm],
    PlotRangeClipping->True], ",", 
   GraphicsBox[
    {Hue[0.67, 0.6, 0.6], 
     PointBox[{{0.5, 0.039789922761304136`}, {0.6, 0.04102322503056963}, {0.7,
       0.04146750061633102}, {0.8, 0.04131220891756408}, {0.9, 
      0.040735183859255134`}, {0.975, 
      0.040148674308095114`}}], {{
       LineBox[{{0.5, 0.04082990307557678}, {0.5, 0.03874994244703149}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.5, 0.04082990307557678}], 
         Offset[{-1.5, 0}, {0.5, 0.04082990307557678}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.5, 0.03874994244703149}], 
         Offset[{-1.5, 0}, {0.5, 0.03874994244703149}]}]}, {
       LineBox[{{0.6, 0.04212221827106993}, {0.6, 0.03992423179006932}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.6, 0.04212221827106993}], 
         Offset[{-1.5, 0}, {0.6, 0.04212221827106993}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.6, 0.03992423179006932}], 
         Offset[{-1.5, 0}, {0.6, 0.03992423179006932}]}]}, {
       LineBox[{{0.7, 0.04260287140587633}, {0.7, 0.040332129826785704`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.7, 0.04260287140587633}], 
         Offset[{-1.5, 0}, {0.7, 0.04260287140587633}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.7, 0.040332129826785704`}], 
         Offset[{-1.5, 0}, {0.7, 0.040332129826785704`}]}]}, {
       LineBox[{{0.8, 0.04246658164405919}, {0.8, 0.040157836191068975`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.8, 0.04246658164405919}], 
         Offset[{-1.5, 0}, {0.8, 0.04246658164405919}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.8, 0.040157836191068975`}], 
         Offset[{-1.5, 0}, {0.8, 0.040157836191068975`}]}]}, {
       LineBox[{{0.9, 0.04190378769648881}, {0.9, 0.03956658002202146}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.9, 0.04190378769648881}], 
         Offset[{-1.5, 0}, {0.9, 0.04190378769648881}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.9, 0.03956658002202146}], 
         Offset[{-1.5, 0}, {0.9, 0.03956658002202146}]}]}, {
       LineBox[{{0.975, 0.0413224421801254}, {0.975, 0.03897490643606483}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.975, 0.0413224421801254}], 
         Offset[{-1.5, 0}, {0.975, 0.0413224421801254}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.975, 0.03897490643606483}], 
         Offset[{-1.5, 0}, {0.975, 0.03897490643606483}]}]}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesLabel->{
      FormBox["\"r/R\"", TraditionalForm], 
      FormBox["\" m\[Psi]\"", TraditionalForm]},
    PlotLabel->FormBox["\" m\[Psi](r/R)\"", TraditionalForm],
    PlotRangeClipping->True]}], "}"}]], "Output",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{3.506239542189*^9, 3.594100763987109*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell["\"F(r)=r; Re=50\"", "Text",
 CellGroupingRules->{GroupTogetherGrouping, 10001.},
 CellChangeTimes->{{3.506239512689*^9, 3.5062395348765*^9}, 
   3.5941007706765623`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   GraphicsBox[
    {Hue[0.67, 0.6, 0.6], 
     PointBox[{{0.7, 0.43558857874412416`}, {0.8, 0.4522906812117342}, {0.9, 
      0.4671388701783606}, {0.975, 0.47732735526849845`}}], {{}, {}, {}, {}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesLabel->{
      FormBox["\"r/R\"", TraditionalForm], 
      FormBox["\" shift\"", TraditionalForm]},
    PlotLabel->FormBox["\" shift(r/R)\"", TraditionalForm],
    PlotRangeClipping->True], ",", 
   GraphicsBox[
    {Hue[0.67, 0.6, 0.6], 
     PointBox[{{0.7, 0.11576382617814464`}, {0.8, 0.11704161094719365`}, {0.9,
       0.11750019294306675`}, {0.975, 
      0.11746134863431083`}}], {{
       LineBox[{{0.7, 0.11576970617814464`}, {0.7, 0.11575794617814464`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.7, 0.11576970617814464`}], 
         Offset[{-1.5, 0}, {0.7, 0.11576970617814464`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.7, 0.11575794617814464`}], 
         Offset[{-1.5, 0}, {0.7, 0.11575794617814464`}]}]}, {
       LineBox[{{0.8, 0.11704441094719364`}, {0.8, 0.11703881094719365`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.8, 0.11704441094719364`}], 
         Offset[{-1.5, 0}, {0.8, 0.11704441094719364`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.8, 0.11703881094719365`}], 
         Offset[{-1.5, 0}, {0.8, 0.11703881094719365`}]}]}, {
       LineBox[{{0.9, 0.11750077194306675`}, {0.9, 0.11749961394306675`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.9, 0.11750077194306675`}], 
         Offset[{-1.5, 0}, {0.9, 0.11750077194306675`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.9, 0.11749961394306675`}], 
         Offset[{-1.5, 0}, {0.9, 0.11749961394306675`}]}]}, {
       LineBox[{{0.975, 0.11746243863431083`}, {0.975, 
        0.11746025863431084`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.975, 0.11746243863431083`}], 
         Offset[{-1.5, 0}, {0.975, 0.11746243863431083`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.975, 0.11746025863431084`}], 
         Offset[{-1.5, 0}, {0.975, 0.11746025863431084`}]}]}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesLabel->{
      FormBox["\"r/R\"", TraditionalForm], 
      FormBox["\" mvx\"", TraditionalForm]},
    PlotLabel->FormBox["\" mvx(r/R)\"", TraditionalForm],
    PlotRangeClipping->True], ",", 
   GraphicsBox[
    {Hue[0.67, 0.6, 0.6], 
     PointBox[{{0.7, 0.6672578117516443}, {0.8, 0.6536135623876941}, {0.9, 
      0.6437800772997279}, {0.975, 
      0.6383400997544422}}], {{
       LineBox[{{0.7, 0.6672706117516444}, {0.7, 0.6672450117516443}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.7, 0.6672706117516444}], 
         Offset[{-1.5, 0}, {0.7, 0.6672706117516444}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.7, 0.6672450117516443}], 
         Offset[{-1.5, 0}, {0.7, 0.6672450117516443}]}]}, {
       LineBox[{{0.8, 0.6536217423876941}, {0.8, 0.6536053823876941}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.8, 0.6536217423876941}], 
         Offset[{-1.5, 0}, {0.8, 0.6536217423876941}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.8, 0.6536053823876941}], 
         Offset[{-1.5, 0}, {0.8, 0.6536053823876941}]}]}, {
       LineBox[{{0.9, 0.6437823972997279}, {0.9, 0.6437777572997279}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.9, 0.6437823972997279}], 
         Offset[{-1.5, 0}, {0.9, 0.6437823972997279}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.9, 0.6437777572997279}], 
         Offset[{-1.5, 0}, {0.9, 0.6437777572997279}]}]}, {
       LineBox[{{0.975, 0.6383450397544421}, {0.975, 0.6383351597544422}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.975, 0.6383450397544421}], 
         Offset[{-1.5, 0}, {0.975, 0.6383450397544421}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.975, 0.6383351597544422}], 
         Offset[{-1.5, 0}, {0.975, 0.6383351597544422}]}]}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesLabel->{
      FormBox["\"r/R\"", TraditionalForm], 
      FormBox["\" mvy\"", TraditionalForm]},
    PlotLabel->FormBox["\" mvy(r/R)\"", TraditionalForm],
    PlotRangeClipping->True], ",", 
   GraphicsBox[
    {Hue[0.67, 0.6, 0.6], 
     PointBox[{{0.7, 0.08000546675303875}, {0.8, 0.08299756611295558}, {0.9, 
      0.08556134452996575}, {0.975, 
      0.08728222900497509}}], {{
       LineBox[{{0.7, 0.08000892675303875}, {0.7, 0.08000200675303876}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.7, 0.08000892675303875}], 
         Offset[{-1.5, 0}, {0.7, 0.08000892675303875}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.7, 0.08000200675303876}], 
         Offset[{-1.5, 0}, {0.7, 0.08000200675303876}]}]}, {
       LineBox[{{0.8, 0.08299888611295558}, {0.8, 0.08299624611295559}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.8, 0.08299888611295558}], 
         Offset[{-1.5, 0}, {0.8, 0.08299888611295558}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.8, 0.08299624611295559}], 
         Offset[{-1.5, 0}, {0.8, 0.08299624611295559}]}]}, {
       LineBox[{{0.9, 0.08556158552996575}, {0.9, 0.08556110352996575}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.9, 0.08556158552996575}], 
         Offset[{-1.5, 0}, {0.9, 0.08556158552996575}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.9, 0.08556110352996575}], 
         Offset[{-1.5, 0}, {0.9, 0.08556110352996575}]}]}, {
       LineBox[{{0.975, 0.0872827210049751}, {0.975, 0.08728173700497509}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.975, 0.0872827210049751}], 
         Offset[{-1.5, 0}, {0.975, 0.0872827210049751}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.975, 0.08728173700497509}], 
         Offset[{-1.5, 0}, {0.975, 0.08728173700497509}]}]}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesLabel->{
      FormBox["\"r/R\"", TraditionalForm], 
      FormBox["\" mvz\"", TraditionalForm]},
    PlotLabel->FormBox["\" mvz(r/R)\"", TraditionalForm],
    PlotRangeClipping->True], ",", 
   GraphicsBox[
    {Hue[0.67, 0.6, 0.6], 
     PointBox[{{0.7, 0.002683374344192951}, {0.8, 0.0026653825176506975`}, {
      0.9, 0.0026213238244398697`}, {0.975, 
      0.00257775754304114}}], {{
       LineBox[{{0.7, 0.002683582344192951}, {0.7, 0.0026831663441929513`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.7, 0.002683582344192951}], 
         Offset[{-1.5, 0}, {0.7, 0.002683582344192951}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.7, 0.0026831663441929513`}], 
         Offset[{-1.5, 0}, {0.7, 0.0026831663441929513`}]}]}, {
       LineBox[{{0.8, 0.0026654477176506976`}, {0.8, 
        0.0026653173176506974`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.8, 0.0026654477176506976`}], 
         Offset[{-1.5, 0}, {0.8, 0.0026654477176506976`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.8, 0.0026653173176506974`}], 
         Offset[{-1.5, 0}, {0.8, 0.0026653173176506974`}]}]}, {
       LineBox[{{0.9, 0.0026213333644398698`}, {0.9, 
        0.0026213142844398697`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.9, 0.0026213333644398698`}], 
         Offset[{-1.5, 0}, {0.9, 0.0026213333644398698`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.9, 0.0026213142844398697`}], 
         Offset[{-1.5, 0}, {0.9, 0.0026213142844398697`}]}]}, {
       LineBox[{{0.975, 0.0025777765430411398`}, {0.975, 
        0.00257773854304114}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.975, 0.0025777765430411398`}], 
         Offset[{-1.5, 0}, {0.975, 0.0025777765430411398`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.975, 0.00257773854304114}], 
         Offset[{-1.5, 0}, {0.975, 0.00257773854304114}]}]}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesLabel->{
      FormBox["\"r/R\"", TraditionalForm], 
      FormBox["\" Evx\"", TraditionalForm]},
    PlotLabel->FormBox["\" Evx(r/R)\"", TraditionalForm],
    PlotRangeClipping->True], ",", 
   GraphicsBox[
    {Hue[0.67, 0.6, 0.6], 
     PointBox[{{0.7, 0.14383496204869023`}, {0.8, 0.1390722624504958}, {0.9, 
      0.13552673600601794`}, {0.975, 
      0.13348445547391422`}}], {{
       LineBox[{{0.7, 0.14384213204869023`}, {0.7, 0.14382779204869023`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.7, 0.14384213204869023`}], 
         Offset[{-1.5, 0}, {0.7, 0.14384213204869023`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.7, 0.14382779204869023`}], 
         Offset[{-1.5, 0}, {0.7, 0.14382779204869023`}]}]}, {
       LineBox[{{0.8, 0.1390768024504958}, {0.8, 0.1390677224504958}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.8, 0.1390768024504958}], 
         Offset[{-1.5, 0}, {0.8, 0.1390768024504958}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.8, 0.1390677224504958}], 
         Offset[{-1.5, 0}, {0.8, 0.1390677224504958}]}]}, {
       LineBox[{{0.9, 0.13552781600601793`}, {0.9, 0.13552565600601796`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.9, 0.13552781600601793`}], 
         Offset[{-1.5, 0}, {0.9, 0.13552781600601793`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.9, 0.13552565600601796`}], 
         Offset[{-1.5, 0}, {0.9, 0.13552565600601796`}]}]}, {
       LineBox[{{0.975, 0.1334866354739142}, {0.975, 0.13348227547391422`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.975, 0.1334866354739142}], 
         Offset[{-1.5, 0}, {0.975, 0.1334866354739142}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.975, 0.13348227547391422`}], 
         Offset[{-1.5, 0}, {0.975, 0.13348227547391422`}]}]}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesLabel->{
      FormBox["\"r/R\"", TraditionalForm], 
      FormBox["\" Evy\"", TraditionalForm]},
    PlotLabel->FormBox["\" Evy(r/R)\"", TraditionalForm],
    PlotRangeClipping->True], ",", 
   GraphicsBox[
    {Hue[0.67, 0.6, 0.6], 
     PointBox[{{0.7, 0.0010563123578377995`}, {0.8, 0.0010904691990784568`}, {
      0.9, 0.0011201244154987226`}, {0.975, 
      0.0011419798300834098`}}], {{
       LineBox[{{0.7, 0.0010564013578377995`}, {0.7, 
        0.0010562233578377996`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.7, 0.0010564013578377995`}], 
         Offset[{-1.5, 0}, {0.7, 0.0010564013578377995`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.7, 0.0010562233578377996`}], 
         Offset[{-1.5, 0}, {0.7, 0.0010562233578377996`}]}]}, {
       LineBox[{{0.8, 0.0010904995990784567`}, {0.8, 
        0.0010904387990784568`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.8, 0.0010904995990784567`}], 
         Offset[{-1.5, 0}, {0.8, 0.0010904995990784567`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.8, 0.0010904387990784568`}], 
         Offset[{-1.5, 0}, {0.8, 0.0010904387990784568`}]}]}, {
       LineBox[{{0.9, 0.0011201299454987226`}, {0.9, 
        0.0011201188854987225`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.9, 0.0011201299454987226`}], 
         Offset[{-1.5, 0}, {0.9, 0.0011201299454987226`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.9, 0.0011201188854987225`}], 
         Offset[{-1.5, 0}, {0.9, 0.0011201188854987225`}]}]}, {
       LineBox[{{0.975, 0.0011419887900834098`}, {0.975, 
        0.0011419708700834098`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.975, 0.0011419887900834098`}], 
         Offset[{-1.5, 0}, {0.975, 0.0011419887900834098`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.975, 0.0011419708700834098`}], 
         Offset[{-1.5, 0}, {0.975, 0.0011419708700834098`}]}]}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesLabel->{
      FormBox["\"r/R\"", TraditionalForm], 
      FormBox["\" Evz\"", TraditionalForm]},
    PlotLabel->FormBox["\" Evz(r/R)\"", TraditionalForm],
    PlotRangeClipping->True], ",", 
   GraphicsBox[
    {Hue[0.67, 0.6, 0.6], 
     PointBox[{{0.7, 0.04082938396435376}, {0.8, 0.04151688895955037}, {0.9, 
      0.04210730829286087}, {0.975, 
      0.042495562812752706`}}], {{
       LineBox[{{0.7, 0.042024994819597095`}, {0.7, 0.039633773109110426`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.7, 0.042024994819597095`}], 
         Offset[{-1.5, 0}, {0.7, 0.042024994819597095`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.7, 0.039633773109110426`}], 
         Offset[{-1.5, 0}, {0.7, 0.039633773109110426`}]}]}, {
       LineBox[{{0.8, 0.04277660093376674}, {0.8, 0.040257176985334}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.8, 0.04277660093376674}], 
         Offset[{-1.5, 0}, {0.8, 0.04277660093376674}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.8, 0.040257176985334}], 
         Offset[{-1.5, 0}, {0.8, 0.040257176985334}]}]}, {
       LineBox[{{0.9, 0.043426175203590545`}, {0.9, 0.040788441382131196`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.9, 0.043426175203590545`}], 
         Offset[{-1.5, 0}, {0.9, 0.043426175203590545`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.9, 0.040788441382131196`}], 
         Offset[{-1.5, 0}, {0.9, 0.040788441382131196`}]}]}, {
       LineBox[{{0.975, 0.04386033342090174}, {0.975, 
        0.041130792204603674`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.975, 0.04386033342090174}], 
         Offset[{-1.5, 0}, {0.975, 0.04386033342090174}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.975, 0.041130792204603674`}], 
         Offset[{-1.5, 0}, {0.975, 0.041130792204603674`}]}]}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesLabel->{
      FormBox["\"r/R\"", TraditionalForm], 
      FormBox["\" m\[Psi]\"", TraditionalForm]},
    PlotLabel->FormBox["\" m\[Psi](r/R)\"", TraditionalForm],
    PlotRangeClipping->True]}], "}"}]], "Output",
 CellGroupingRules->{GroupTogetherGrouping, 10001.},
 CellChangeTimes->{3.50623952634525*^9, 3.5941007706765623`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell["\"F(r)=dp; Re=50\"", "Text",
 CellGroupingRules->{GroupTogetherGrouping, 10002.},
 CellChangeTimes->{{3.506239512689*^9, 3.5062395497515*^9}, 
   3.5941007755203123`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   GraphicsBox[
    {Hue[0.67, 0.6, 0.6], 
     PointBox[{{0., 0.}, {0.01, 0.016874081293129894`}, {0.05, 
      0.0797002363123637}, {0.1, 0.13899384829214131`}, {0.2, 
      0.1999916181582848}, {0.3, 0.21957845922830305`}, {0.4, 
      0.21969523690123835`}, {0.5, 0.20904269854062194`}, {0.6, 
      0.19172028061707508`}}], {{}, {}, {}, {}, {}, {}, {}, {}, {}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesLabel->{
      FormBox["\"r/R\"", TraditionalForm], 
      FormBox["\" shift\"", TraditionalForm]},
    PlotLabel->FormBox["\" shift(r/R)\"", TraditionalForm],
    PlotRangeClipping->True], ",", 
   GraphicsBox[
    {Hue[0.67, 0.6, 0.6], 
     PointBox[{{0., 0.}, {0.01, 0.0069335526249714495`}, {0.05, 
      0.03340058056129313}, {0.1, 0.06107577516725475}, {0.2, 
      0.09872264193921067}, {0.3, 0.12183708204929997`}, {0.4, 
      0.13707158402640635`}, {0.5, 0.1474294483988072}, {0.6, 
      0.15437303659005286`}}], {{}, {
       LineBox[{{0.01, 0.00693365262497145}, {0.01, 0.006933452624971449}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.01, 0.00693365262497145}], 
         Offset[{-1.5, 0}, {0.01, 0.00693365262497145}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.01, 0.006933452624971449}], 
         Offset[{-1.5, 0}, {0.01, 0.006933452624971449}]}]}, {
       LineBox[{{0.05, 0.03341058056129313}, {0.05, 0.033390580561293126`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.05, 0.03341058056129313}], 
         Offset[{-1.5, 0}, {0.05, 0.03341058056129313}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.05, 0.033390580561293126`}], 
         Offset[{-1.5, 0}, {0.05, 0.033390580561293126`}]}]}, {
       LineBox[{{0.1, 0.06107977516725475}, {0.1, 0.06107177516725475}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.1, 0.06107977516725475}], 
         Offset[{-1.5, 0}, {0.1, 0.06107977516725475}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.1, 0.06107177516725475}], 
         Offset[{-1.5, 0}, {0.1, 0.06107177516725475}]}]}, {
       LineBox[{{0.2, 0.09872344193921066}, {0.2, 0.09872184193921067}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.2, 0.09872344193921066}], 
         Offset[{-1.5, 0}, {0.2, 0.09872344193921066}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.2, 0.09872184193921067}], 
         Offset[{-1.5, 0}, {0.2, 0.09872184193921067}]}]}, {
       LineBox[{{0.3, 0.12197708204929997`}, {0.3, 0.12169708204929996`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.3, 0.12197708204929997`}], 
         Offset[{-1.5, 0}, {0.3, 0.12197708204929997`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.3, 0.12169708204929996`}], 
         Offset[{-1.5, 0}, {0.3, 0.12169708204929996`}]}]}, {
       LineBox[{{0.4, 0.13710158402640635`}, {0.4, 0.13704158402640634`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.4, 0.13710158402640635`}], 
         Offset[{-1.5, 0}, {0.4, 0.13710158402640635`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.4, 0.13704158402640634`}], 
         Offset[{-1.5, 0}, {0.4, 0.13704158402640634`}]}]}, {
       LineBox[{{0.5, 0.1476694483988072}, {0.5, 0.1471894483988072}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.5, 0.1476694483988072}], 
         Offset[{-1.5, 0}, {0.5, 0.1476694483988072}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.5, 0.1471894483988072}], 
         Offset[{-1.5, 0}, {0.5, 0.1471894483988072}]}]}, {
       LineBox[{{0.6, 0.15459303659005286`}, {0.6, 0.15415303659005286`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.6, 0.15459303659005286`}], 
         Offset[{-1.5, 0}, {0.6, 0.15459303659005286`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.6, 0.15415303659005286`}], 
         Offset[{-1.5, 0}, {0.6, 0.15415303659005286`}]}]}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesLabel->{
      FormBox["\"r/R\"", TraditionalForm], 
      FormBox["\" mvx\"", TraditionalForm]},
    PlotLabel->FormBox["\" mvx(r/R)\"", TraditionalForm],
    PlotRangeClipping->True], ",", 
   GraphicsBox[
    {Hue[0.67, 0.6, 0.6], 
     PointBox[{{0., 1.0000467538140043`}, {0.01, 0.9994706399283558}, {0.05, 
      0.9864222825578358}, {0.1, 0.9550742849873406}, {0.2, 
      0.8807100375981497}, {0.3, 0.8133117823474936}, {0.4, 
      0.7559474214145954}, {0.5, 0.7068747352850856}, {0.6, 
      0.664503941819061}}], {{
       LineBox[{{0., 1.0000468238140043`}, {0., 1.0000466838140043`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0., 1.0000468238140043`}], 
         Offset[{-1.5, 0}, {0., 1.0000468238140043`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0., 1.0000466838140043`}], 
         Offset[{-1.5, 0}, {0., 1.0000466838140043`}]}]}, {
       LineBox[{{0.01, 0.9994766399283558}, {0.01, 0.9994646399283559}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.01, 0.9994766399283558}], 
         Offset[{-1.5, 0}, {0.01, 0.9994766399283558}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.01, 0.9994646399283559}], 
         Offset[{-1.5, 0}, {0.01, 0.9994646399283559}]}]}, {
       LineBox[{{0.05, 0.9865222825578358}, {0.05, 0.9863222825578358}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.05, 0.9865222825578358}], 
         Offset[{-1.5, 0}, {0.05, 0.9865222825578358}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.05, 0.9863222825578358}], 
         Offset[{-1.5, 0}, {0.05, 0.9863222825578358}]}]}, {
       LineBox[{{0.1, 0.9550982849873406}, {0.1, 0.9550502849873406}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.1, 0.9550982849873406}], 
         Offset[{-1.5, 0}, {0.1, 0.9550982849873406}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.1, 0.9550502849873406}], 
         Offset[{-1.5, 0}, {0.1, 0.9550502849873406}]}]}, {
       LineBox[{{0.2, 0.8807110375981497}, {0.2, 0.8807090375981497}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.2, 0.8807110375981497}], 
         Offset[{-1.5, 0}, {0.2, 0.8807110375981497}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.2, 0.8807090375981497}], 
         Offset[{-1.5, 0}, {0.2, 0.8807090375981497}]}]}, {
       LineBox[{{0.3, 0.8133118123474936}, {0.3, 0.8133117523474935}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.3, 0.8133118123474936}], 
         Offset[{-1.5, 0}, {0.3, 0.8133118123474936}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.3, 0.8133117523474935}], 
         Offset[{-1.5, 0}, {0.3, 0.8133117523474935}]}]}, {
       LineBox[{{0.4, 0.7559475214145953}, {0.4, 0.7559473214145954}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.4, 0.7559475214145953}], 
         Offset[{-1.5, 0}, {0.4, 0.7559475214145953}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.4, 0.7559473214145954}], 
         Offset[{-1.5, 0}, {0.4, 0.7559473214145954}]}]}, {
       LineBox[{{0.5, 0.7069297352850856}, {0.5, 0.7068197352850856}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.5, 0.7069297352850856}], 
         Offset[{-1.5, 0}, {0.5, 0.7069297352850856}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.5, 0.7068197352850856}], 
         Offset[{-1.5, 0}, {0.5, 0.7068197352850856}]}]}, {
       LineBox[{{0.6, 0.664509941819061}, {0.6, 0.6644979418190611}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.6, 0.664509941819061}], 
         Offset[{-1.5, 0}, {0.6, 0.664509941819061}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.6, 0.6644979418190611}], 
         Offset[{-1.5, 0}, {0.6, 0.6644979418190611}]}]}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesLabel->{
      FormBox["\"r/R\"", TraditionalForm], 
      FormBox["\" mvy\"", TraditionalForm]},
    PlotLabel->FormBox["\" mvy(r/R)\"", TraditionalForm],
    PlotRangeClipping->True], ",", 
   GraphicsBox[
    {Hue[0.67, 0.6, 0.6], 
     PointBox[{{0., 0.}, {0.01, 0.0032928509505108037`}, {0.05, 
      0.01606524062170497}, {0.1, 0.02976923306732241}, {0.2, 
      0.04953036734296504}, {0.3, 0.06551866071475379}, {0.4, 
      0.07955648929515582}, {0.5, 0.09283355233317574}, {0.6, 
      0.10623410500168906`}}], {{}, {
       LineBox[{{0.01, 0.0032929209505108037`}, {0.01, 
        0.0032927809505108037`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.01, 0.0032929209505108037`}], 
         Offset[{-1.5, 0}, {0.01, 0.0032929209505108037`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.01, 0.0032927809505108037`}], 
         Offset[{-1.5, 0}, {0.01, 0.0032927809505108037`}]}]}, {
       LineBox[{{0.05, 0.01607124062170497}, {0.05, 0.01605924062170497}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.05, 0.01607124062170497}], 
         Offset[{-1.5, 0}, {0.05, 0.01607124062170497}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.05, 0.01605924062170497}], 
         Offset[{-1.5, 0}, {0.05, 0.01605924062170497}]}]}, {
       LineBox[{{0.1, 0.02977123306732241}, {0.1, 0.029767233067322412`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.1, 0.02977123306732241}], 
         Offset[{-1.5, 0}, {0.1, 0.02977123306732241}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.1, 0.029767233067322412`}], 
         Offset[{-1.5, 0}, {0.1, 0.029767233067322412`}]}]}, {
       LineBox[{{0.2, 0.04953236734296504}, {0.2, 0.049528367342965035`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.2, 0.04953236734296504}], 
         Offset[{-1.5, 0}, {0.2, 0.04953236734296504}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.2, 0.049528367342965035`}], 
         Offset[{-1.5, 0}, {0.2, 0.049528367342965035`}]}]}, {
       LineBox[{{0.3, 0.06556866071475378}, {0.3, 0.0654686607147538}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.3, 0.06556866071475378}], 
         Offset[{-1.5, 0}, {0.3, 0.06556866071475378}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.3, 0.0654686607147538}], 
         Offset[{-1.5, 0}, {0.3, 0.0654686607147538}]}]}, {
       LineBox[{{0.4, 0.07961098929515582}, {0.4, 0.07950198929515583}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.4, 0.07961098929515582}], 
         Offset[{-1.5, 0}, {0.4, 0.07961098929515582}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.4, 0.07950198929515583}], 
         Offset[{-1.5, 0}, {0.4, 0.07950198929515583}]}]}, {
       LineBox[{{0.5, 0.09307355233317574}, {0.5, 0.09259355233317573}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.5, 0.09307355233317574}], 
         Offset[{-1.5, 0}, {0.5, 0.09307355233317574}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.5, 0.09259355233317573}], 
         Offset[{-1.5, 0}, {0.5, 0.09259355233317573}]}]}, {
       LineBox[{{0.6, 0.10663410500168906`}, {0.6, 0.10583410500168906`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.6, 0.10663410500168906`}], 
         Offset[{-1.5, 0}, {0.6, 0.10663410500168906`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.6, 0.10583410500168906`}], 
         Offset[{-1.5, 0}, {0.6, 0.10583410500168906`}]}]}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesLabel->{
      FormBox["\"r/R\"", TraditionalForm], 
      FormBox["\" mvz\"", TraditionalForm]},
    PlotLabel->FormBox["\" mvz(r/R)\"", TraditionalForm],
    PlotRangeClipping->True], ",", 
   GraphicsBox[
    {Hue[0.67, 0.6, 0.6], 
     PointBox[{{0., 0.}, {0.01, 6.690326561910732*^-6}, {0.05, 
      0.00015654035418065308`}, {0.1, 0.0005341925396667311}, {0.2, 
      0.0014641078644330487`}, {0.3, 0.002322894614110631}, {0.4, 
      0.0030331993113320668`}, {0.5, 0.0035907447673281076`}, {0.6, 
      0.004006924974784484}}], {{}, {
       LineBox[{{0.01, 6.6906265619107316`*^-6}, {0.01, 
        6.690026561910732*^-6}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.01, 6.6906265619107316`*^-6}], 
         Offset[{-1.5, 0}, {0.01, 6.6906265619107316`*^-6}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.01, 6.690026561910732*^-6}], 
         Offset[{-1.5, 0}, {0.01, 6.690026561910732*^-6}]}]}, {
       LineBox[{{0.05, 0.00015664035418065309`}, {0.05, 
        0.00015644035418065308`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.05, 0.00015664035418065309`}], 
         Offset[{-1.5, 0}, {0.05, 0.00015664035418065309`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.05, 0.00015644035418065308`}], 
         Offset[{-1.5, 0}, {0.05, 0.00015644035418065308`}]}]}, {
       LineBox[{{0.1, 0.0005342625396667311}, {0.1, 0.0005341225396667311}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.1, 0.0005342625396667311}], 
         Offset[{-1.5, 0}, {0.1, 0.0005342625396667311}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.1, 0.0005341225396667311}], 
         Offset[{-1.5, 0}, {0.1, 0.0005341225396667311}]}]}, {
       LineBox[{{0.2, 0.0014641278644330488`}, {0.2, 
        0.0014640878644330486`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.2, 0.0014641278644330488`}], 
         Offset[{-1.5, 0}, {0.2, 0.0014641278644330488`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.2, 0.0014640878644330486`}], 
         Offset[{-1.5, 0}, {0.2, 0.0014640878644330486`}]}]}, {
       LineBox[{{0.3, 0.002324494614110631}, {0.3, 0.002321294614110631}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.3, 0.002324494614110631}], 
         Offset[{-1.5, 0}, {0.3, 0.002324494614110631}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.3, 0.002321294614110631}], 
         Offset[{-1.5, 0}, {0.3, 0.002321294614110631}]}]}, {
       LineBox[{{0.4, 0.0030332293113320666`}, {0.4, 0.003033169311332067}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.4, 0.0030332293113320666`}], 
         Offset[{-1.5, 0}, {0.4, 0.0030332293113320666`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.4, 0.003033169311332067}], 
         Offset[{-1.5, 0}, {0.4, 0.003033169311332067}]}]}, {
       LineBox[{{0.5, 0.0035927447673281074`}, {0.5, 0.003588744767328108}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.5, 0.0035927447673281074`}], 
         Offset[{-1.5, 0}, {0.5, 0.0035927447673281074`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.5, 0.003588744767328108}], 
         Offset[{-1.5, 0}, {0.5, 0.003588744767328108}]}]}, {
       LineBox[{{0.6, 0.0040070249747844846`}, {0.6, 0.004006824974784484}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.6, 0.0040070249747844846`}], 
         Offset[{-1.5, 0}, {0.6, 0.0040070249747844846`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.6, 0.004006824974784484}], 
         Offset[{-1.5, 0}, {0.6, 0.004006824974784484}]}]}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesLabel->{
      FormBox["\"r/R\"", TraditionalForm], 
      FormBox["\" Evx\"", TraditionalForm]},
    PlotLabel->FormBox["\" Evx(r/R)\"", TraditionalForm],
    PlotRangeClipping->True], ",", 
   GraphicsBox[
    {Hue[0.67, 0.6, 0.6], 
     PointBox[{{0., 0.2619323609628619}, {0.01, 0.2617106607393518}, {0.05, 
      0.2569096900707947}, {0.1, 0.24582984662342447`}, {0.2, 
      0.2212631903045716}, {0.3, 0.20054302837023272`}, {0.4, 
      0.18360839015019348`}, {0.5, 0.16932253494131724`}, {0.6, 
      0.15699840166085022`}}], {{
       LineBox[{{0., 0.26193239096286186`}, {0., 0.2619323309628619}}], 
       LineBox[{
        Offset[{1.5, 0}, {0., 0.26193239096286186`}], 
         Offset[{-1.5, 0}, {0., 0.26193239096286186`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0., 0.2619323309628619}], 
         Offset[{-1.5, 0}, {0., 0.2619323309628619}]}]}, {
       LineBox[{{0.01, 0.26171366073935176`}, {0.01, 0.2617076607393518}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.01, 0.26171366073935176`}], 
         Offset[{-1.5, 0}, {0.01, 0.26171366073935176`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.01, 0.2617076607393518}], 
         Offset[{-1.5, 0}, {0.01, 0.2617076607393518}]}]}, {
       LineBox[{{0.05, 0.25696969007079473`}, {0.05, 0.2568496900707947}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.05, 0.25696969007079473`}], 
         Offset[{-1.5, 0}, {0.05, 0.25696969007079473`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.05, 0.2568496900707947}], 
         Offset[{-1.5, 0}, {0.05, 0.2568496900707947}]}]}, {
       LineBox[{{0.1, 0.24583984662342448`}, {0.1, 0.24581984662342446`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.1, 0.24583984662342448`}], 
         Offset[{-1.5, 0}, {0.1, 0.24583984662342448`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.1, 0.24581984662342446`}], 
         Offset[{-1.5, 0}, {0.1, 0.24581984662342446`}]}]}, {
       LineBox[{{0.2, 0.22126379030457158`}, {0.2, 0.2212625903045716}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.2, 0.22126379030457158`}], 
         Offset[{-1.5, 0}, {0.2, 0.22126379030457158`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.2, 0.2212625903045716}], 
         Offset[{-1.5, 0}, {0.2, 0.2212625903045716}]}]}, {
       LineBox[{{0.3, 0.2005436283702327}, {0.3, 0.20054242837023273`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.3, 0.2005436283702327}], 
         Offset[{-1.5, 0}, {0.3, 0.2005436283702327}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.3, 0.20054242837023273`}], 
         Offset[{-1.5, 0}, {0.3, 0.20054242837023273`}]}]}, {
       LineBox[{{0.4, 0.1836086901501935}, {0.4, 0.18360809015019347`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.4, 0.1836086901501935}], 
         Offset[{-1.5, 0}, {0.4, 0.1836086901501935}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.4, 0.18360809015019347`}], 
         Offset[{-1.5, 0}, {0.4, 0.18360809015019347`}]}]}, {
       LineBox[{{0.5, 0.16935253494131725`}, {0.5, 0.16929253494131724`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.5, 0.16935253494131725`}], 
         Offset[{-1.5, 0}, {0.5, 0.16935253494131725`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.5, 0.16929253494131724`}], 
         Offset[{-1.5, 0}, {0.5, 0.16929253494131724`}]}]}, {
       LineBox[{{0.6, 0.15700140166085022`}, {0.6, 0.15699540166085021`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.6, 0.15700140166085022`}], 
         Offset[{-1.5, 0}, {0.6, 0.15700140166085022`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.6, 0.15699540166085021`}], 
         Offset[{-1.5, 0}, {0.6, 0.15699540166085021`}]}]}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesLabel->{
      FormBox["\"r/R\"", TraditionalForm], 
      FormBox["\" Evy\"", TraditionalForm]},
    PlotLabel->FormBox["\" Evy(r/R)\"", TraditionalForm],
    PlotRangeClipping->True], ",", 
   GraphicsBox[
    {Hue[0.67, 0.6, 0.6], 
     PointBox[{{0., 0.}, {0.01, 2.229588133334401*^-6}, {0.05, 
      0.00005222448594920783}, {0.1, 0.00017868892897297716`}, {0.2, 
      0.0004932226062398192}, {0.3, 0.0007897002577261894}, {0.4, 
      0.001043818222433958}, {0.5, 0.0012559622382268979`}, {0.6, 
      0.0014319631806538312`}}], {{}, {
       LineBox[{{0.01, 2.229668133334401*^-6}, {0.01, 
        2.2295081333344007`*^-6}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.01, 2.229668133334401*^-6}], 
         Offset[{-1.5, 0}, {0.01, 2.229668133334401*^-6}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.01, 2.2295081333344007`*^-6}], 
         Offset[{-1.5, 0}, {0.01, 2.2295081333344007`*^-6}]}]}, {
       LineBox[{{0.05, 0.00005226448594920783}, {0.05, 
        0.00005218448594920783}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.05, 0.00005226448594920783}], 
         Offset[{-1.5, 0}, {0.05, 0.00005226448594920783}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.05, 0.00005218448594920783}], 
         Offset[{-1.5, 0}, {0.05, 0.00005218448594920783}]}]}, {
       LineBox[{{0.1, 0.00017870892897297715`}, {0.1, 
        0.00017866892897297717`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.1, 0.00017870892897297715`}], 
         Offset[{-1.5, 0}, {0.1, 0.00017870892897297715`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.1, 0.00017866892897297717`}], 
         Offset[{-1.5, 0}, {0.1, 0.00017866892897297717`}]}]}, {
       LineBox[{{0.2, 0.0004932316062398192}, {0.2, 0.0004932136062398191}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.2, 0.0004932316062398192}], 
         Offset[{-1.5, 0}, {0.2, 0.0004932316062398192}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.2, 0.0004932136062398191}], 
         Offset[{-1.5, 0}, {0.2, 0.0004932136062398191}]}]}, {
       LineBox[{{0.3, 0.0007913002577261894}, {0.3, 0.0007881002577261894}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.3, 0.0007913002577261894}], 
         Offset[{-1.5, 0}, {0.3, 0.0007913002577261894}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.3, 0.0007881002577261894}], 
         Offset[{-1.5, 0}, {0.3, 0.0007881002577261894}]}]}, {
       LineBox[{{0.4, 0.001043848222433958}, {0.4, 0.001043788222433958}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.4, 0.001043848222433958}], 
         Offset[{-1.5, 0}, {0.4, 0.001043848222433958}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.4, 0.001043788222433958}], 
         Offset[{-1.5, 0}, {0.4, 0.001043788222433958}]}]}, {
       LineBox[{{0.5, 0.001257962238226898}, {0.5, 0.0012539622382268978`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.5, 0.001257962238226898}], 
         Offset[{-1.5, 0}, {0.5, 0.001257962238226898}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.5, 0.0012539622382268978`}], 
         Offset[{-1.5, 0}, {0.5, 0.0012539622382268978`}]}]}, {
       LineBox[{{0.6, 0.0014320231806538312`}, {0.6, 0.001431903180653831}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.6, 0.0014320231806538312`}], 
         Offset[{-1.5, 0}, {0.6, 0.0014320231806538312`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.6, 0.001431903180653831}], 
         Offset[{-1.5, 0}, {0.6, 0.001431903180653831}]}]}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesLabel->{
      FormBox["\"r/R\"", TraditionalForm], 
      FormBox["\" Evz\"", TraditionalForm]},
    PlotLabel->FormBox["\" Evz(r/R)\"", TraditionalForm],
    PlotRangeClipping->True], ",", 
   GraphicsBox[
    {Hue[0.67, 0.6, 0.6], 
     PointBox[{{0., 0.}, {0.01, 0.0019070393688025}, {0.05, 
      0.009310771353599999}, {0.1, 0.01737012790192501}, {0.2, 
      0.02935132156985}, {0.3, 0.037820908193225006`}, {0.4, 
      0.04437368259689999}, {0.5, 0.049823866014324994`}, {0.6, 
      0.05456964879560001}}], {{}, {
       LineBox[{{0.01, 0.0020374086325175}, {0.01, 0.0017766701050875}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.01, 0.0020374086325175}], 
         Offset[{-1.5, 0}, {0.01, 0.0020374086325175}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.01, 0.0017766701050875}], 
         Offset[{-1.5, 0}, {0.01, 0.0017766701050875}]}]}, {
       LineBox[{{0.05, 0.010071195764137496`}, {0.05, 0.008550346943062502}}],
        LineBox[{
        Offset[{1.5, 0}, {0.05, 0.010071195764137496`}], 
         Offset[{-1.5, 0}, {0.05, 0.010071195764137496`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.05, 0.008550346943062502}], 
         Offset[{-1.5, 0}, {0.05, 0.008550346943062502}]}]}, {
       LineBox[{{0.1, 0.019524093839425008`}, {0.1, 0.015216161964425011`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.1, 0.019524093839425008`}], 
         Offset[{-1.5, 0}, {0.1, 0.019524093839425008`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.1, 0.015216161964425011`}], 
         Offset[{-1.5, 0}, {0.1, 0.015216161964425011`}]}]}, {
       LineBox[{{0.2, 0.035452147772975}, {0.2, 0.023250495366725}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.2, 0.035452147772975}], 
         Offset[{-1.5, 0}, {0.2, 0.035452147772975}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.2, 0.023250495366725}], 
         Offset[{-1.5, 0}, {0.2, 0.023250495366725}]}]}, {
       LineBox[{{0.3, 0.04884440319322504}, {0.3, 0.026797413193224966`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.3, 0.04884440319322504}], 
         Offset[{-1.5, 0}, {0.3, 0.04884440319322504}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.3, 0.026797413193224966`}], 
         Offset[{-1.5, 0}, {0.3, 0.026797413193224966`}]}]}, {
       LineBox[{{0.4, 0.06097657009690001}, {0.4, 0.02777079509689997}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.4, 0.06097657009690001}], 
         Offset[{-1.5, 0}, {0.4, 0.06097657009690001}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.4, 0.02777079509689997}], 
         Offset[{-1.5, 0}, {0.4, 0.02777079509689997}]}]}, {
       LineBox[{{0.5, 0.07260685617057502}, {0.5, 0.027040875858074964`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.5, 0.07260685617057502}], 
         Offset[{-1.5, 0}, {0.5, 0.07260685617057502}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.5, 0.027040875858074964`}], 
         Offset[{-1.5, 0}, {0.5, 0.027040875858074964`}]}]}, {
       LineBox[{{0.6, 0.08417753723310001}, {0.6, 0.024961760358100007`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.6, 0.08417753723310001}], 
         Offset[{-1.5, 0}, {0.6, 0.08417753723310001}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.6, 0.024961760358100007`}], 
         Offset[{-1.5, 0}, {0.6, 0.024961760358100007`}]}]}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesLabel->{
      FormBox["\"r/R\"", TraditionalForm], 
      FormBox["\" m\[Psi]\"", TraditionalForm]},
    PlotLabel->FormBox["\" m\[Psi](r/R)\"", TraditionalForm],
    PlotRangeClipping->True]}], "}"}]], "Output",
 CellGroupingRules->{GroupTogetherGrouping, 10002.},
 CellChangeTimes->{3.505803433015625*^9, 3.506239508673375*^9, 
  3.5941007755203123`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell["\"F(r)=1\"; Re=80", "Text",
 CellGroupingRules->{GroupTogetherGrouping, 10003.},
 CellChangeTimes->{
  3.5057978405*^9, {3.50580067396875*^9, 3.505800686984375*^9}, {
   3.505801032296875*^9, 3.505801036375*^9}, 3.505801068265625*^9, 
   3.5941007779597654`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   GraphicsBox[
    {Hue[0.67, 0.6, 0.6], 
     PointBox[{{0.5, 0.414759156073368}, {0.6, 0.41796867500000007`}, {0.7, 
      0.4211830153867556}, {0.8, 0.4234761581886486}, {0.9, 
      0.42618186224589055`}, {0.975, 
      0.4282876168266864}}], {{}, {}, {}, {}, {}, {}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesLabel->{
      FormBox["\"r/R\"", TraditionalForm], 
      FormBox["\" shift\"", TraditionalForm]},
    PlotLabel->FormBox["\" shift(r/R)\"", TraditionalForm],
    PlotRangeClipping->True], ",", 
   GraphicsBox[
    {Hue[0.67, 0.6, 0.6], 
     PointBox[{{0.5, 0.11683436114239432`}, {0.6, 0.12069919214550905`}, {0.7,
       0.12226637381242779`}, {0.8, 0.1222722572192626}, {0.9, 
      0.12084943928616544`}, {0.975, 
      0.28125916170573345`}}], {{
       LineBox[{{0.5, 0.11686176114239431`}, {0.5, 0.11680696114239432`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.5, 0.11686176114239431`}], 
         Offset[{-1.5, 0}, {0.5, 0.11686176114239431`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.5, 0.11680696114239432`}], 
         Offset[{-1.5, 0}, {0.5, 0.11680696114239432`}]}]}, {
       LineBox[{{0.6, 0.12071599214550904`}, {0.6, 0.12068239214550905`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.6, 0.12071599214550904`}], 
         Offset[{-1.5, 0}, {0.6, 0.12071599214550904`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.6, 0.12068239214550905`}], 
         Offset[{-1.5, 0}, {0.6, 0.12068239214550905`}]}]}, {
       LineBox[{{0.7, 0.1222930738124278}, {0.7, 0.12223967381242778`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.7, 0.1222930738124278}], 
         Offset[{-1.5, 0}, {0.7, 0.1222930738124278}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.7, 0.12223967381242778`}], 
         Offset[{-1.5, 0}, {0.7, 0.12223967381242778`}]}]}, {
       LineBox[{{0.8, 0.1222855572192626}, {0.8, 0.12225895721926261`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.8, 0.1222855572192626}], 
         Offset[{-1.5, 0}, {0.8, 0.1222855572192626}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.8, 0.12225895721926261`}], 
         Offset[{-1.5, 0}, {0.8, 0.12225895721926261`}]}]}, {
       LineBox[{{0.9, 0.12085403928616544`}, {0.9, 0.12084483928616545`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.9, 0.12085403928616544`}], 
         Offset[{-1.5, 0}, {0.9, 0.12085403928616544`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.9, 0.12084483928616545`}], 
         Offset[{-1.5, 0}, {0.9, 0.12084483928616545`}]}]}, {
       LineBox[{{0.975, 3.8012591617057336`}, {0.975, -3.2387408382942664`}}],
        LineBox[{
        Offset[{1.5, 0}, {0.975, 3.8012591617057336`}], 
         Offset[{-1.5, 0}, {0.975, 3.8012591617057336`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.975, -3.2387408382942664`}], 
         Offset[{-1.5, 0}, {0.975, -3.2387408382942664`}]}]}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesLabel->{
      FormBox["\"r/R\"", TraditionalForm], 
      FormBox["\" mvx\"", TraditionalForm]},
    PlotLabel->FormBox["\" mvx(r/R)\"", TraditionalForm],
    PlotRangeClipping->True], ",", 
   GraphicsBox[
    {Hue[0.67, 0.6, 0.6], 
     PointBox[{{0.5, 0.615771950794673}, {0.6, 0.5819064432707687}, {0.7, 
      0.5531355968764488}, {0.8, 0.5287287027062912}, {0.9, 
      0.5074924105733156}, {0.975, 
      0.49315380861494273`}}], {{
       LineBox[{{0.5, 0.6158603507946729}, {0.5, 0.615683550794673}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.5, 0.6158603507946729}], 
         Offset[{-1.5, 0}, {0.5, 0.6158603507946729}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.5, 0.615683550794673}], 
         Offset[{-1.5, 0}, {0.5, 0.615683550794673}]}]}, {
       LineBox[{{0.6, 0.5819344432707687}, {0.6, 0.5818784432707687}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.6, 0.5819344432707687}], 
         Offset[{-1.5, 0}, {0.6, 0.5819344432707687}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.6, 0.5818784432707687}], 
         Offset[{-1.5, 0}, {0.6, 0.5818784432707687}]}]}, {
       LineBox[{{0.7, 0.5531754968764487}, {0.7, 0.5530956968764488}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.7, 0.5531754968764487}], 
         Offset[{-1.5, 0}, {0.7, 0.5531754968764487}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.7, 0.5530956968764488}], 
         Offset[{-1.5, 0}, {0.7, 0.5530956968764488}]}]}, {
       LineBox[{{0.8, 0.5287460027062912}, {0.8, 0.5287114027062912}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.8, 0.5287460027062912}], 
         Offset[{-1.5, 0}, {0.8, 0.5287460027062912}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.8, 0.5287114027062912}], 
         Offset[{-1.5, 0}, {0.8, 0.5287114027062912}]}]}, {
       LineBox[{{0.9, 0.5074971705733157}, {0.9, 0.5074876505733156}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.9, 0.5074971705733157}], 
         Offset[{-1.5, 0}, {0.9, 0.5074971705733157}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.9, 0.5074876505733156}], 
         Offset[{-1.5, 0}, {0.9, 0.5074876505733156}]}]}, {
       LineBox[{{0.975, 0.49342480861494276`}, {0.975, 0.4928828086149427}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.975, 0.49342480861494276`}], 
         Offset[{-1.5, 0}, {0.975, 0.49342480861494276`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.975, 0.4928828086149427}], 
         Offset[{-1.5, 0}, {0.975, 0.4928828086149427}]}]}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesLabel->{
      FormBox["\"r/R\"", TraditionalForm], 
      FormBox["\" mvy\"", TraditionalForm]},
    PlotLabel->FormBox["\" mvy(r/R)\"", TraditionalForm],
    PlotRangeClipping->True], ",", 
   GraphicsBox[
    {Hue[0.67, 0.6, 0.6], 
     PointBox[{{0.5, 0.07754430118510271}, {0.6, 0.08498915085302604}, {0.7, 
      0.08979806639323977}, {0.8, 0.09359707931748941}, {0.9, 
      0.09626827203964307}, {0.975, 
      0.09911771468459347}}], {{
       LineBox[{{0.5, 0.07763120118510271}, {0.5, 0.0774574011851027}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.5, 0.07763120118510271}], 
         Offset[{-1.5, 0}, {0.5, 0.07763120118510271}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.5, 0.0774574011851027}], 
         Offset[{-1.5, 0}, {0.5, 0.0774574011851027}]}]}, {
       LineBox[{{0.6, 0.08500365085302604}, {0.6, 0.08497465085302604}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.6, 0.08500365085302604}], 
         Offset[{-1.5, 0}, {0.6, 0.08500365085302604}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.6, 0.08497465085302604}], 
         Offset[{-1.5, 0}, {0.6, 0.08497465085302604}]}]}, {
       LineBox[{{0.7, 0.08981736639323977}, {0.7, 0.08977876639323977}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.7, 0.08981736639323977}], 
         Offset[{-1.5, 0}, {0.7, 0.08981736639323977}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.7, 0.08977876639323977}], 
         Offset[{-1.5, 0}, {0.7, 0.08977876639323977}]}]}, {
       LineBox[{{0.8, 0.09360429931748941}, {0.8, 0.09358985931748941}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.8, 0.09360429931748941}], 
         Offset[{-1.5, 0}, {0.8, 0.09360429931748941}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.8, 0.09358985931748941}], 
         Offset[{-1.5, 0}, {0.8, 0.09358985931748941}]}]}, {
       LineBox[{{0.9, 0.09627068203964306}, {0.9, 0.09626586203964307}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.9, 0.09627068203964306}], 
         Offset[{-1.5, 0}, {0.9, 0.09627068203964306}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.9, 0.09626586203964307}], 
         Offset[{-1.5, 0}, {0.9, 0.09626586203964307}]}]}, {
       LineBox[{{0.975, 0.3111177146845935}, {0.975, -0.11288228531540652`}}],
        LineBox[{
        Offset[{1.5, 0}, {0.975, 0.3111177146845935}], 
         Offset[{-1.5, 0}, {0.975, 0.3111177146845935}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.975, -0.11288228531540652`}], 
         Offset[{-1.5, 0}, {0.975, -0.11288228531540652`}]}]}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesLabel->{
      FormBox["\"r/R\"", TraditionalForm], 
      FormBox["\" mvz\"", TraditionalForm]},
    PlotLabel->FormBox["\" mvz(r/R)\"", TraditionalForm],
    PlotRangeClipping->True], ",", 
   GraphicsBox[
    {Hue[0.67, 0.6, 0.6], 
     PointBox[{{0.5, 0.0027789863409789636`}, {0.6, 0.002769943074362887}, {
      0.7, 0.0027783958065399246`}, {0.8, 0.0026904748579341746`}, {0.9, 
      0.0025412992349535344`}, {0.975, 
      0.002536090278748162}}], {{
       LineBox[{{0.5, 0.0027848163409789637`}, {0.5, 
        0.0027731563409789635`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.5, 0.0027848163409789637`}], 
         Offset[{-1.5, 0}, {0.5, 0.0027848163409789637`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.5, 0.0027731563409789635`}], 
         Offset[{-1.5, 0}, {0.5, 0.0027731563409789635`}]}]}, {
       LineBox[{{0.6, 0.002773373074362887}, {0.6, 0.002766513074362887}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.6, 0.002773373074362887}], 
         Offset[{-1.5, 0}, {0.6, 0.002773373074362887}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.6, 0.002766513074362887}], 
         Offset[{-1.5, 0}, {0.6, 0.002766513074362887}]}]}, {
       LineBox[{{0.7, 0.0027809258065399248`}, {0.7, 
        0.0027758658065399244`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.7, 0.0027809258065399248`}], 
         Offset[{-1.5, 0}, {0.7, 0.0027809258065399248`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.7, 0.0027758658065399244`}], 
         Offset[{-1.5, 0}, {0.7, 0.0027758658065399244`}]}]}, {
       LineBox[{{0.8, 0.0026912148579341746`}, {0.8, 
        0.0026897348579341747`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.8, 0.0026912148579341746`}], 
         Offset[{-1.5, 0}, {0.8, 0.0026912148579341746`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.8, 0.0026897348579341747`}], 
         Offset[{-1.5, 0}, {0.8, 0.0026897348579341747`}]}]}, {
       LineBox[{{0.9, 0.0025414922349535343`}, {0.9, 
        0.0025411062349535345`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.9, 0.0025414922349535343`}], 
         Offset[{-1.5, 0}, {0.9, 0.0025414922349535343`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.9, 0.0025411062349535345`}], 
         Offset[{-1.5, 0}, {0.9, 0.0025411062349535345`}]}]}, {
       LineBox[{{0.975, 0.004966090278748162}, {0.975, 
        0.00010609027874816223`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.975, 0.004966090278748162}], 
         Offset[{-1.5, 0}, {0.975, 0.004966090278748162}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.975, 0.00010609027874816223`}], 
         Offset[{-1.5, 0}, {0.975, 0.00010609027874816223`}]}]}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesLabel->{
      FormBox["\"r/R\"", TraditionalForm], 
      FormBox["\" Evx\"", TraditionalForm]},
    PlotLabel->FormBox["\" Evx(r/R)\"", TraditionalForm],
    PlotRangeClipping->True], ",", 
   GraphicsBox[
    {Hue[0.67, 0.6, 0.6], 
     PointBox[{{0.5, 0.13415028089689598`}, {0.6, 0.12368969757497082`}, {0.7,
       0.11452057415429305`}, {0.8, 0.10637973101781192`}, {0.9, 
      0.09894278721843991}, {0.975, 
      0.0939149578547636}}], {{
       LineBox[{{0.5, 0.134165880896896}, {0.5, 0.13413468089689598`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.5, 0.134165880896896}], 
         Offset[{-1.5, 0}, {0.5, 0.134165880896896}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.5, 0.13413468089689598`}], 
         Offset[{-1.5, 0}, {0.5, 0.13413468089689598`}]}]}, {
       LineBox[{{0.6, 0.12369675757497083`}, {0.6, 0.12368263757497082`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.6, 0.12369675757497083`}], 
         Offset[{-1.5, 0}, {0.6, 0.12369675757497083`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.6, 0.12368263757497082`}], 
         Offset[{-1.5, 0}, {0.6, 0.12368263757497082`}]}]}, {
       LineBox[{{0.7, 0.11453207415429305`}, {0.7, 0.11450907415429305`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.7, 0.11453207415429305`}], 
         Offset[{-1.5, 0}, {0.7, 0.11453207415429305`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.7, 0.11450907415429305`}], 
         Offset[{-1.5, 0}, {0.7, 0.11450907415429305`}]}]}, {
       LineBox[{{0.8, 0.10638646101781192`}, {0.8, 0.10637300101781193`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.8, 0.10638646101781192`}], 
         Offset[{-1.5, 0}, {0.8, 0.10638646101781192`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.8, 0.10637300101781193`}], 
         Offset[{-1.5, 0}, {0.8, 0.10637300101781193`}]}]}, {
       LineBox[{{0.9, 0.0989454572184399}, {0.9, 0.09894011721843991}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.9, 0.0989454572184399}], 
         Offset[{-1.5, 0}, {0.9, 0.0989454572184399}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.9, 0.09894011721843991}], 
         Offset[{-1.5, 0}, {0.9, 0.09894011721843991}]}]}, {
       LineBox[{{0.975, 0.0939596578547636}, {0.975, 0.0938702578547636}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.975, 0.0939596578547636}], 
         Offset[{-1.5, 0}, {0.975, 0.0939596578547636}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.975, 0.0938702578547636}], 
         Offset[{-1.5, 0}, {0.975, 0.0938702578547636}]}]}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesLabel->{
      FormBox["\"r/R\"", TraditionalForm], 
      FormBox["\" Evy\"", TraditionalForm]},
    PlotLabel->FormBox["\" Evy(r/R)\"", TraditionalForm],
    PlotRangeClipping->True], ",", 
   GraphicsBox[
    {Hue[0.67, 0.6, 0.6], 
     PointBox[{{0.5, 0.00101290919146596}, {0.6, 0.0010395158879995452`}, {
      0.7, 0.0010662851584175128`}, {0.8, 0.001066881934567795}, {0.9, 
      0.0010487812805313388`}, {0.975, 
      0.0010605834020131397`}}], {{
       LineBox[{{0.5, 0.00101494919146596}, {0.5, 0.00101086919146596}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.5, 0.00101494919146596}], 
         Offset[{-1.5, 0}, {0.5, 0.00101494919146596}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.5, 0.00101086919146596}], 
         Offset[{-1.5, 0}, {0.5, 0.00101086919146596}]}]}, {
       LineBox[{{0.6, 0.001040515887999545}, {0.6, 0.0010385158879995453`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.6, 0.001040515887999545}], 
         Offset[{-1.5, 0}, {0.6, 0.001040515887999545}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.6, 0.0010385158879995453`}], 
         Offset[{-1.5, 0}, {0.6, 0.0010385158879995453`}]}]}, {
       LineBox[{{0.7, 0.0010672211584175128`}, {0.7, 
        0.0010653491584175128`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.7, 0.0010672211584175128`}], 
         Offset[{-1.5, 0}, {0.7, 0.0010672211584175128`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.7, 0.0010653491584175128`}], 
         Offset[{-1.5, 0}, {0.7, 0.0010653491584175128`}]}]}, {
       LineBox[{{0.8, 0.0010671789345677951`}, {0.8, 0.001066584934567795}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.8, 0.0010671789345677951`}], 
         Offset[{-1.5, 0}, {0.8, 0.0010671789345677951`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.8, 0.001066584934567795}], 
         Offset[{-1.5, 0}, {0.8, 0.001066584934567795}]}]}, {
       LineBox[{{0.9, 0.0010488605805313387`}, {0.9, 
        0.0010487019805313388`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.9, 0.0010488605805313387`}], 
         Offset[{-1.5, 0}, {0.9, 0.0010488605805313387`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.9, 0.0010487019805313388`}], 
         Offset[{-1.5, 0}, {0.9, 0.0010487019805313388`}]}]}, {
       LineBox[{{0.975, 0.0010895834020131397`}, {0.975, 
        0.0010315834020131398`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.975, 0.0010895834020131397`}], 
         Offset[{-1.5, 0}, {0.975, 0.0010895834020131397`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.975, 0.0010315834020131398`}], 
         Offset[{-1.5, 0}, {0.975, 0.0010315834020131398`}]}]}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesLabel->{
      FormBox["\"r/R\"", TraditionalForm], 
      FormBox["\" Evz\"", TraditionalForm]},
    PlotLabel->FormBox["\" Evz(r/R)\"", TraditionalForm],
    PlotRangeClipping->True], ",", 
   GraphicsBox[
    {Hue[0.67, 0.6, 0.6], 
     PointBox[{{0.5, 0.0396996946320798}, {0.6, 0.040179519103759165`}, {0.7, 
      0.04010524384685382}, {0.8, 0.03964411056105408}, {0.9, 
      0.03907086358188283}, {0.975, 
      0.03854623218938413}}], {{
       LineBox[{{0.5, 0.040878088892580905`}, {0.5, 0.03852130037157869}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.5, 0.040878088892580905`}], 
         Offset[{-1.5, 0}, {0.5, 0.040878088892580905`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.5, 0.03852130037157869}], 
         Offset[{-1.5, 0}, {0.5, 0.03852130037157869}]}]}, {
       LineBox[{{0.6, 0.04142979741162562}, {0.6, 0.03892924079589271}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.6, 0.04142979741162562}], 
         Offset[{-1.5, 0}, {0.6, 0.04142979741162562}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.6, 0.03892924079589271}], 
         Offset[{-1.5, 0}, {0.6, 0.03892924079589271}]}]}, {
       LineBox[{{0.7, 0.04140945017810242}, {0.7, 0.03880103751560522}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.7, 0.04140945017810242}], 
         Offset[{-1.5, 0}, {0.7, 0.04140945017810242}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.7, 0.03880103751560522}], 
         Offset[{-1.5, 0}, {0.7, 0.03880103751560522}]}]}, {
       LineBox[{{0.8, 0.040984408307224114`}, {0.8, 0.03830381281488405}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.8, 0.040984408307224114`}], 
         Offset[{-1.5, 0}, {0.8, 0.040984408307224114`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.8, 0.03830381281488405}], 
         Offset[{-1.5, 0}, {0.8, 0.03830381281488405}]}]}, {
       LineBox[{{0.9, 0.040432732256706724`}, {0.9, 0.03770899490705894}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.9, 0.040432732256706724`}], 
         Offset[{-1.5, 0}, {0.9, 0.040432732256706724`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.9, 0.03770899490705894}], 
         Offset[{-1.5, 0}, {0.9, 0.03770899490705894}]}]}, {
       LineBox[{{0.975, 0.03991520781067875}, {0.975, 0.03717725656808952}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.975, 0.03991520781067875}], 
         Offset[{-1.5, 0}, {0.975, 0.03991520781067875}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.975, 0.03717725656808952}], 
         Offset[{-1.5, 0}, {0.975, 0.03717725656808952}]}]}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesLabel->{
      FormBox["\"r/R\"", TraditionalForm], 
      FormBox["\" m\[Psi]\"", TraditionalForm]},
    PlotLabel->FormBox["\" m\[Psi](r/R)\"", TraditionalForm],
    PlotRangeClipping->True]}], "}"}]], "Output",
 CellGroupingRules->{GroupTogetherGrouping, 10003.},
 CellChangeTimes->{3.5057978513125*^9, 3.5941007779597654`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell["\"F(r)=dp\"; Re=80", "Text",
 CellGroupingRules->{GroupTogetherGrouping, 10004.},
 CellChangeTimes->{
  3.5057978405*^9, {3.50580067396875*^9, 3.50580067925*^9}, {
   3.505801039484375*^9, 3.50580104115625*^9}, {3.505801073625*^9, 
   3.50580107403125*^9}, 3.5941007799617186`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   GraphicsBox[
    {Hue[0.67, 0.6, 0.6], 
     PointBox[{{0., 0.}, {0.05, 0.19658556258470009`}, {0.1, 
      0.2847421333618819}, {0.2, 0.34406759876959736`}, {0.3, 
      0.35652084330599615`}, {0.4, 0.35243014722638183`}, {0.5, 
      0.3407771954892544}, {0.5, 0.3407618290078759}, {0.6, 
      0.3245089828805489}, {0.7, 
      0.3060317903277852}}], {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesLabel->{
      FormBox["\"r/R\"", TraditionalForm], 
      FormBox["\" shift\"", TraditionalForm]},
    PlotLabel->FormBox["\" shift(r/R)\"", TraditionalForm],
    PlotRangeClipping->True], ",", 
   GraphicsBox[
    {Hue[0.67, 0.6, 0.6], 
     PointBox[{{0., 0.}, {0.05, 0.0474872861073069}, {0.1, 
      0.07578735279279045}, {0.2, 0.10549003060521552`}, {0.3, 
      0.12093237540924162`}, {0.4, 0.1299440667843903}, {0.5, 
      0.13512232740513827`}, {0.5, 0.1351241001393523}, {0.6, 
      0.1389465346902276}, {0.7, 
      0.14506455724799922`}}], {{}, {
       LineBox[{{0.05, 0.0475472861073069}, {0.05, 0.047427286107306905`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.05, 0.0475472861073069}], 
         Offset[{-1.5, 0}, {0.05, 0.0475472861073069}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.05, 0.047427286107306905`}], 
         Offset[{-1.5, 0}, {0.05, 0.047427286107306905`}]}]}, {
       LineBox[{{0.1, 0.07579335279279045}, {0.1, 0.07578135279279044}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.1, 0.07579335279279045}], 
         Offset[{-1.5, 0}, {0.1, 0.07579335279279045}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.1, 0.07578135279279044}], 
         Offset[{-1.5, 0}, {0.1, 0.07578135279279044}]}]}, {
       LineBox[{{0.2, 0.10589003060521551`}, {0.2, 0.10509003060521552`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.2, 0.10589003060521551`}], 
         Offset[{-1.5, 0}, {0.2, 0.10589003060521551`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.2, 0.10509003060521552`}], 
         Offset[{-1.5, 0}, {0.2, 0.10509003060521552`}]}]}, {
       LineBox[{{0.3, 0.12123237540924162`}, {0.3, 0.12063237540924163`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.3, 0.12123237540924162`}], 
         Offset[{-1.5, 0}, {0.3, 0.12123237540924162`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.3, 0.12063237540924163`}], 
         Offset[{-1.5, 0}, {0.3, 0.12063237540924163`}]}]}, {
       LineBox[{{0.4, 0.1299460667843903}, {0.4, 0.1299420667843903}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.4, 0.1299460667843903}], 
         Offset[{-1.5, 0}, {0.4, 0.1299460667843903}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.4, 0.1299420667843903}], 
         Offset[{-1.5, 0}, {0.4, 0.1299420667843903}]}]}, {
       LineBox[{{0.5, 0.13512432740513827`}, {0.5, 0.13512032740513827`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.5, 0.13512432740513827`}], 
         Offset[{-1.5, 0}, {0.5, 0.13512432740513827`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.5, 0.13512032740513827`}], 
         Offset[{-1.5, 0}, {0.5, 0.13512032740513827`}]}]}, {
       LineBox[{{0.5, 0.1351247501393523}, {0.5, 0.1351234501393523}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.5, 0.1351247501393523}], 
         Offset[{-1.5, 0}, {0.5, 0.1351247501393523}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.5, 0.1351234501393523}], 
         Offset[{-1.5, 0}, {0.5, 0.1351234501393523}]}]}, {
       LineBox[{{0.6, 0.13894683469022762`}, {0.6, 0.1389462346902276}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.6, 0.13894683469022762`}], 
         Offset[{-1.5, 0}, {0.6, 0.13894683469022762`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.6, 0.1389462346902276}], 
         Offset[{-1.5, 0}, {0.6, 0.1389462346902276}]}]}, {
       LineBox[{{0.7, 0.1450652572479992}, {0.7, 0.14506385724799922`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.7, 0.1450652572479992}], 
         Offset[{-1.5, 0}, {0.7, 0.1450652572479992}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.7, 0.14506385724799922`}], 
         Offset[{-1.5, 0}, {0.7, 0.14506385724799922`}]}]}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesLabel->{
      FormBox["\"r/R\"", TraditionalForm], 
      FormBox["\" mvx\"", TraditionalForm]},
    PlotLabel->FormBox["\" mvx(r/R)\"", TraditionalForm],
    PlotRangeClipping->True], ",", 
   GraphicsBox[
    {Hue[0.67, 0.6, 0.6], 
     PointBox[{{0., 1.0001038404035831`}, {0.05, 0.9532123237816776}, {0.1, 
      0.8872996790803113}, {0.2, 0.7827091056052046}, {0.3, 
      0.7074802069760844}, {0.4, 0.6495358205321887}, {0.5, 
      0.6046125499713758}, {0.5, 0.6046606765015639}, {0.6, 
      0.5729439804888334}, {0.7, 
      0.5496166107903548}}], {{
       LineBox[{{0., 1.0001438404035832`}, {0., 1.000063840403583}}], 
       LineBox[{
        Offset[{1.5, 0}, {0., 1.0001438404035832`}], 
         Offset[{-1.5, 0}, {0., 1.0001438404035832`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0., 1.000063840403583}], 
         Offset[{-1.5, 0}, {0., 1.000063840403583}]}]}, {
       LineBox[{{0.05, 0.9538123237816777}, {0.05, 0.9526123237816776}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.05, 0.9538123237816777}], 
         Offset[{-1.5, 0}, {0.05, 0.9538123237816777}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.05, 0.9526123237816776}], 
         Offset[{-1.5, 0}, {0.05, 0.9526123237816776}]}]}, {
       LineBox[{{0.1, 0.8873396790803113}, {0.1, 0.8872596790803112}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.1, 0.8873396790803113}], 
         Offset[{-1.5, 0}, {0.1, 0.8873396790803113}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.1, 0.8872596790803112}], 
         Offset[{-1.5, 0}, {0.1, 0.8872596790803112}]}]}, {
       LineBox[{{0.2, 0.7827171056052046}, {0.2, 0.7827011056052046}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.2, 0.7827171056052046}], 
         Offset[{-1.5, 0}, {0.2, 0.7827171056052046}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.2, 0.7827011056052046}], 
         Offset[{-1.5, 0}, {0.2, 0.7827011056052046}]}]}, {
       LineBox[{{0.3, 0.7074832069760844}, {0.3, 0.7074772069760844}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.3, 0.7074832069760844}], 
         Offset[{-1.5, 0}, {0.3, 0.7074832069760844}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.3, 0.7074772069760844}], 
         Offset[{-1.5, 0}, {0.3, 0.7074772069760844}]}]}, {
       LineBox[{{0.4, 0.6495378205321887}, {0.4, 0.6495338205321888}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.4, 0.6495378205321887}], 
         Offset[{-1.5, 0}, {0.4, 0.6495378205321887}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.4, 0.6495338205321888}], 
         Offset[{-1.5, 0}, {0.4, 0.6495338205321888}]}]}, {
       LineBox[{{0.5, 0.6046425499713758}, {0.5, 0.6045825499713758}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.5, 0.6046425499713758}], 
         Offset[{-1.5, 0}, {0.5, 0.6046425499713758}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.5, 0.6045825499713758}], 
         Offset[{-1.5, 0}, {0.5, 0.6045825499713758}]}]}, {
       LineBox[{{0.5, 0.6046626765015638}, {0.5, 0.6046586765015639}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.5, 0.6046626765015638}], 
         Offset[{-1.5, 0}, {0.5, 0.6046626765015638}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.5, 0.6046586765015639}], 
         Offset[{-1.5, 0}, {0.5, 0.6046586765015639}]}]}, {
       LineBox[{{0.6, 0.5729449804888335}, {0.6, 0.5729429804888334}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.6, 0.5729449804888335}], 
         Offset[{-1.5, 0}, {0.6, 0.5729449804888335}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.6, 0.5729429804888334}], 
         Offset[{-1.5, 0}, {0.6, 0.5729429804888334}]}]}, {
       LineBox[{{0.7, 0.5496176107903549}, {0.7, 0.5496156107903548}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.7, 0.5496176107903549}], 
         Offset[{-1.5, 0}, {0.7, 0.5496176107903549}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.7, 0.5496156107903548}], 
         Offset[{-1.5, 0}, {0.7, 0.5496156107903548}]}]}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesLabel->{
      FormBox["\"r/R\"", TraditionalForm], 
      FormBox["\" mvy\"", TraditionalForm]},
    PlotLabel->FormBox["\" mvy(r/R)\"", TraditionalForm],
    PlotRangeClipping->True], ",", 
   GraphicsBox[
    {Hue[0.67, 0.6, 0.6], 
     PointBox[{{0., 0.}, {0.05, 0.024302251685409}, {0.1, 
      0.04052601071392668}, {0.2, 0.0577189615995517}, {0.3, 
      0.06957948480696104}, {0.4, 0.08247954516937753}, {0.5, 
      0.09481162394771944}, {0.5, 0.09481893425653735}, {0.6, 
      0.1072694809279976}, {0.7, 
      0.12041832712824237`}}], {{}, {
       LineBox[{{0.05, 0.024342251685409}, {0.05, 0.024262251685409002`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.05, 0.024342251685409}], 
         Offset[{-1.5, 0}, {0.05, 0.024342251685409}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.05, 0.024262251685409002`}], 
         Offset[{-1.5, 0}, {0.05, 0.024262251685409002`}]}]}, {
       LineBox[{{0.1, 0.04053101071392668}, {0.1, 0.040521010713926685`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.1, 0.04053101071392668}], 
         Offset[{-1.5, 0}, {0.1, 0.04053101071392668}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.1, 0.040521010713926685`}], 
         Offset[{-1.5, 0}, {0.1, 0.040521010713926685`}]}]}, {
       LineBox[{{0.2, 0.0577789615995517}, {0.2, 0.0576589615995517}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.2, 0.0577789615995517}], 
         Offset[{-1.5, 0}, {0.2, 0.0577789615995517}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.2, 0.0576589615995517}], 
         Offset[{-1.5, 0}, {0.2, 0.0576589615995517}]}]}, {
       LineBox[{{0.3, 0.06963948480696104}, {0.3, 0.06951948480696103}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.3, 0.06963948480696104}], 
         Offset[{-1.5, 0}, {0.3, 0.06963948480696104}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.3, 0.06951948480696103}], 
         Offset[{-1.5, 0}, {0.3, 0.06951948480696103}]}]}, {
       LineBox[{{0.4, 0.08248254516937753}, {0.4, 0.08247654516937752}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.4, 0.08248254516937753}], 
         Offset[{-1.5, 0}, {0.4, 0.08248254516937753}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.4, 0.08247654516937752}], 
         Offset[{-1.5, 0}, {0.4, 0.08247654516937752}]}]}, {
       LineBox[{{0.5, 0.09481662394771945}, {0.5, 0.09480662394771944}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.5, 0.09481662394771945}], 
         Offset[{-1.5, 0}, {0.5, 0.09481662394771945}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.5, 0.09480662394771944}], 
         Offset[{-1.5, 0}, {0.5, 0.09480662394771944}]}]}, {
       LineBox[{{0.5, 0.09482193425653736}, {0.5, 0.09481593425653735}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.5, 0.09482193425653736}], 
         Offset[{-1.5, 0}, {0.5, 0.09482193425653736}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.5, 0.09481593425653735}], 
         Offset[{-1.5, 0}, {0.5, 0.09481593425653735}]}]}, {
       LineBox[{{0.6, 0.1072696809279976}, {0.6, 0.10726928092799759`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.6, 0.1072696809279976}], 
         Offset[{-1.5, 0}, {0.6, 0.1072696809279976}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.6, 0.10726928092799759`}], 
         Offset[{-1.5, 0}, {0.6, 0.10726928092799759`}]}]}, {
       LineBox[{{0.7, 0.12041872712824236`}, {0.7, 0.12041792712824237`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.7, 0.12041872712824236`}], 
         Offset[{-1.5, 0}, {0.7, 0.12041872712824236`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.7, 0.12041792712824237`}], 
         Offset[{-1.5, 0}, {0.7, 0.12041792712824237`}]}]}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesLabel->{
      FormBox["\"r/R\"", TraditionalForm], 
      FormBox["\" mvz\"", TraditionalForm]},
    PlotLabel->FormBox["\" mvz(r/R)\"", TraditionalForm],
    PlotRangeClipping->True], ",", 
   GraphicsBox[
    {Hue[0.67, 0.6, 0.6], 
     PointBox[{{0., 0.}, {0.05, 0.00032568475105680363`}, {0.1, 
      0.0008807103680755503}, {0.2, 0.0018816850190490582`}, {0.3, 
      0.0026495534729410078`}, {0.4, 0.0032194929995613608`}, {0.5, 
      0.0036263190687657884`}, {0.5, 0.0036268480397201766`}, {0.6, 
      0.0038953366850937583`}, {0.7, 
      0.004039261339527731}}], {{}, {
       LineBox[{{0.05, 0.00032668475105680365`}, {0.05, 
        0.0003246847510568036}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.05, 0.00032668475105680365`}], 
         Offset[{-1.5, 0}, {0.05, 0.00032668475105680365`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.05, 0.0003246847510568036}], 
         Offset[{-1.5, 0}, {0.05, 0.0003246847510568036}]}]}, {
       LineBox[{{0.1, 0.0008809103680755503}, {0.1, 0.0008805103680755503}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.1, 0.0008809103680755503}], 
         Offset[{-1.5, 0}, {0.1, 0.0008809103680755503}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.1, 0.0008805103680755503}], 
         Offset[{-1.5, 0}, {0.1, 0.0008805103680755503}]}]}, {
       LineBox[{{0.2, 0.0018846850190490582`}, {0.2, 
        0.0018786850190490583`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.2, 0.0018846850190490582`}], 
         Offset[{-1.5, 0}, {0.2, 0.0018846850190490582`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.2, 0.0018786850190490583`}], 
         Offset[{-1.5, 0}, {0.2, 0.0018786850190490583`}]}]}, {
       LineBox[{{0.3, 0.0026525534729410077`}, {0.3, 0.002646553472941008}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.3, 0.0026525534729410077`}], 
         Offset[{-1.5, 0}, {0.3, 0.0026525534729410077`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.3, 0.002646553472941008}], 
         Offset[{-1.5, 0}, {0.3, 0.002646553472941008}]}]}, {
       LineBox[{{0.4, 0.0032195129995613607`}, {0.4, 0.003219472999561361}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.4, 0.0032195129995613607`}], 
         Offset[{-1.5, 0}, {0.4, 0.0032195129995613607`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.4, 0.003219472999561361}], 
         Offset[{-1.5, 0}, {0.4, 0.003219472999561361}]}]}, {
       LineBox[{{0.5, 0.0036267190687657882`}, {0.5, 
        0.0036259190687657887`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.5, 0.0036267190687657882`}], 
         Offset[{-1.5, 0}, {0.5, 0.0036267190687657882`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.5, 0.0036259190687657887`}], 
         Offset[{-1.5, 0}, {0.5, 0.0036259190687657887`}]}]}, {
       LineBox[{{0.5, 0.0036268680397201765`}, {0.5, 
        0.0036268280397201767`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.5, 0.0036268680397201765`}], 
         Offset[{-1.5, 0}, {0.5, 0.0036268680397201765`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.5, 0.0036268280397201767`}], 
         Offset[{-1.5, 0}, {0.5, 0.0036268280397201767`}]}]}, {
       LineBox[{{0.6, 0.0038953466850937583`}, {0.6, 
        0.0038953266850937584`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.6, 0.0038953466850937583`}], 
         Offset[{-1.5, 0}, {0.6, 0.0038953466850937583`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.6, 0.0038953266850937584`}], 
         Offset[{-1.5, 0}, {0.6, 0.0038953266850937584`}]}]}, {
       LineBox[{{0.7, 0.004039271339527731}, {0.7, 0.004039251339527731}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.7, 0.004039271339527731}], 
         Offset[{-1.5, 0}, {0.7, 0.004039271339527731}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.7, 0.004039251339527731}], 
         Offset[{-1.5, 0}, {0.7, 0.004039251339527731}]}]}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesLabel->{
      FormBox["\"r/R\"", TraditionalForm], 
      FormBox["\" Evx\"", TraditionalForm]},
    PlotLabel->FormBox["\" Evx(r/R)\"", TraditionalForm],
    PlotRangeClipping->True], ",", 
   GraphicsBox[
    {Hue[0.67, 0.6, 0.6], 
     PointBox[{{0., 0.2619536747479638}, {0.05, 0.243238626966049}, {0.1, 
      0.21993441878119488`}, {0.2, 0.1875736813294658}, {0.3, 
      0.16665026151316947`}, {0.4, 0.15128233174920427`}, {0.5, 
      0.1390276055973737}, {0.5, 0.13905134265256522`}, {0.6, 
      0.12875784090230832`}, {0.7, 
      0.11969563546876762`}}], {{
       LineBox[{{0., 0.2619686747479638}, {0., 0.26193867474796384`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0., 0.2619686747479638}], 
         Offset[{-1.5, 0}, {0., 0.2619686747479638}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0., 0.26193867474796384`}], 
         Offset[{-1.5, 0}, {0., 0.26193867474796384`}]}]}, {
       LineBox[{{0.05, 0.243488626966049}, {0.05, 0.242988626966049}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.05, 0.243488626966049}], 
         Offset[{-1.5, 0}, {0.05, 0.243488626966049}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.05, 0.242988626966049}], 
         Offset[{-1.5, 0}, {0.05, 0.242988626966049}]}]}, {
       LineBox[{{0.1, 0.21993641878119488`}, {0.1, 0.21993241878119488`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.1, 0.21993641878119488`}], 
         Offset[{-1.5, 0}, {0.1, 0.21993641878119488`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.1, 0.21993241878119488`}], 
         Offset[{-1.5, 0}, {0.1, 0.21993241878119488`}]}]}, {
       LineBox[{{0.2, 0.1875776813294658}, {0.2, 0.1875696813294658}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.2, 0.1875776813294658}], 
         Offset[{-1.5, 0}, {0.2, 0.1875776813294658}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.2, 0.1875696813294658}], 
         Offset[{-1.5, 0}, {0.2, 0.1875696813294658}]}]}, {
       LineBox[{{0.3, 0.16665226151316948`}, {0.3, 0.16664826151316947`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.3, 0.16665226151316948`}], 
         Offset[{-1.5, 0}, {0.3, 0.16665226151316948`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.3, 0.16664826151316947`}], 
         Offset[{-1.5, 0}, {0.3, 0.16664826151316947`}]}]}, {
       LineBox[{{0.4, 0.15128333174920428`}, {0.4, 0.15128133174920427`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.4, 0.15128333174920428`}], 
         Offset[{-1.5, 0}, {0.4, 0.15128333174920428`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.4, 0.15128133174920427`}], 
         Offset[{-1.5, 0}, {0.4, 0.15128133174920427`}]}]}, {
       LineBox[{{0.5, 0.1390476055973737}, {0.5, 0.1390076055973737}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.5, 0.1390476055973737}], 
         Offset[{-1.5, 0}, {0.5, 0.1390476055973737}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.5, 0.1390076055973737}], 
         Offset[{-1.5, 0}, {0.5, 0.1390076055973737}]}]}, {
       LineBox[{{0.5, 0.13905234265256522`}, {0.5, 0.13905034265256522`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.5, 0.13905234265256522`}], 
         Offset[{-1.5, 0}, {0.5, 0.13905234265256522`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.5, 0.13905034265256522`}], 
         Offset[{-1.5, 0}, {0.5, 0.13905034265256522`}]}]}, {
       LineBox[{{0.6, 0.12875824090230834`}, {0.6, 0.1287574409023083}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.6, 0.12875824090230834`}], 
         Offset[{-1.5, 0}, {0.6, 0.12875824090230834`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.6, 0.1287574409023083}], 
         Offset[{-1.5, 0}, {0.6, 0.1287574409023083}]}]}, {
       LineBox[{{0.7, 0.11969593546876761`}, {0.7, 0.11969533546876762`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.7, 0.11969593546876761`}], 
         Offset[{-1.5, 0}, {0.7, 0.11969593546876761`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.7, 0.11969533546876762`}], 
         Offset[{-1.5, 0}, {0.7, 0.11969533546876762`}]}]}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesLabel->{
      FormBox["\"r/R\"", TraditionalForm], 
      FormBox["\" Evy\"", TraditionalForm]},
    PlotLabel->FormBox["\" Evy(r/R)\"", TraditionalForm],
    PlotRangeClipping->True], ",", 
   GraphicsBox[
    {Hue[0.67, 0.6, 0.6], 
     PointBox[{{0., 0.}, {0.05, 0.0001091366800760314}, {0.1, 
      0.0002974131993019096}, {0.2, 0.0006431503200671553}, {0.3, 
      0.0009160280986156928}, {0.4, 0.001128254310183723}, {0.5, 
      0.001292720723002144}, {0.5, 0.0012929300053580628`}, {0.6, 
      0.0014191596584027333`}, {0.7, 
      0.0015126038298870824`}}], {{}, {
       LineBox[{{0.05, 0.00010943668007603139`}, {0.05, 
        0.0001088366800760314}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.05, 0.00010943668007603139`}], 
         Offset[{-1.5, 0}, {0.05, 0.00010943668007603139`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.05, 0.0001088366800760314}], 
         Offset[{-1.5, 0}, {0.05, 0.0001088366800760314}]}]}, {
       LineBox[{{0.1, 0.0002974631993019096}, {0.1, 
        0.00029736319930190964`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.1, 0.0002974631993019096}], 
         Offset[{-1.5, 0}, {0.1, 0.0002974631993019096}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.1, 0.00029736319930190964`}], 
         Offset[{-1.5, 0}, {0.1, 0.00029736319930190964`}]}]}, {
       LineBox[{{0.2, 0.0006461503200671552}, {0.2, 0.0006401503200671553}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.2, 0.0006461503200671552}], 
         Offset[{-1.5, 0}, {0.2, 0.0006461503200671552}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.2, 0.0006401503200671553}], 
         Offset[{-1.5, 0}, {0.2, 0.0006401503200671553}]}]}, {
       LineBox[{{0.3, 0.0009160380986156929}, {0.3, 0.0009160180986156928}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.3, 0.0009160380986156929}], 
         Offset[{-1.5, 0}, {0.3, 0.0009160380986156929}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.3, 0.0009160180986156928}], 
         Offset[{-1.5, 0}, {0.3, 0.0009160180986156928}]}]}, {
       LineBox[{{0.4, 0.0011282793101837232`}, {0.4, 0.001128229310183723}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.4, 0.0011282793101837232`}], 
         Offset[{-1.5, 0}, {0.4, 0.0011282793101837232`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.4, 0.001128229310183723}], 
         Offset[{-1.5, 0}, {0.4, 0.001128229310183723}]}]}, {
       LineBox[{{0.5, 0.001292920723002144}, {0.5, 0.0012925207230021442`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.5, 0.001292920723002144}], 
         Offset[{-1.5, 0}, {0.5, 0.001292920723002144}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.5, 0.0012925207230021442`}], 
         Offset[{-1.5, 0}, {0.5, 0.0012925207230021442`}]}]}, {
       LineBox[{{0.5, 0.0012929400053580628`}, {0.5, 
        0.0012929200053580629`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.5, 0.0012929400053580628`}], 
         Offset[{-1.5, 0}, {0.5, 0.0012929400053580628`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.5, 0.0012929200053580629`}], 
         Offset[{-1.5, 0}, {0.5, 0.0012929200053580629`}]}]}, {
       LineBox[{{0.6, 0.0014191626584027332`}, {0.6, 
        0.0014191566584027334`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.6, 0.0014191626584027332`}], 
         Offset[{-1.5, 0}, {0.6, 0.0014191626584027332`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.6, 0.0014191566584027334`}], 
         Offset[{-1.5, 0}, {0.6, 0.0014191566584027334`}]}]}, {
       LineBox[{{0.7, 0.0015126058298870824`}, {0.7, 
        0.0015126018298870824`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.7, 0.0015126058298870824`}], 
         Offset[{-1.5, 0}, {0.7, 0.0015126058298870824`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.7, 0.0015126018298870824`}], 
         Offset[{-1.5, 0}, {0.7, 0.0015126018298870824`}]}]}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesLabel->{
      FormBox["\"r/R\"", TraditionalForm], 
      FormBox["\" Evz\"", TraditionalForm]},
    PlotLabel->FormBox["\" Evz(r/R)\"", TraditionalForm],
    PlotRangeClipping->True], ",", 
   GraphicsBox[
    {Hue[0.67, 0.6, 0.6], 
     PointBox[{{0., 0.}, {0.05, 0.013459241369824999`}, {0.1, 
      0.022255723115174993`}, {0.2, 0.033221717398525}, {0.3, 
      0.04035239383749999}, {0.4, 0.045670891063250015`}, {0.5, 
      0.04996937301624999}, {0.5, 0.04996920504824999}, {0.6, 
      0.0536644807515}, {0.7, 
      0.05700869291087501}}], {{}, {
       LineBox[{{0.05, 0.014612525588575}, {0.05, 0.012305957151074997`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.05, 0.014612525588575}], 
         Offset[{-1.5, 0}, {0.05, 0.014612525588575}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.05, 0.012305957151074997`}], 
         Offset[{-1.5, 0}, {0.05, 0.012305957151074997`}]}]}, {
       LineBox[{{0.1, 0.025131737333924997`}, {0.1, 0.01937970889642499}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.1, 0.025131737333924997`}], 
         Offset[{-1.5, 0}, {0.1, 0.025131737333924997`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.1, 0.01937970889642499}], 
         Offset[{-1.5, 0}, {0.1, 0.01937970889642499}]}]}, {
       LineBox[{{0.2, 0.04032217505477501}, {0.2, 0.026121259742274992`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.2, 0.04032217505477501}], 
         Offset[{-1.5, 0}, {0.2, 0.04032217505477501}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.2, 0.026121259742274992`}], 
         Offset[{-1.5, 0}, {0.2, 0.026121259742274992`}]}]}, {
       LineBox[{{0.3, 0.05231479211874999}, {0.3, 0.02838999555625}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.3, 0.05231479211874999}], 
         Offset[{-1.5, 0}, {0.3, 0.05231479211874999}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.3, 0.02838999555625}], 
         Offset[{-1.5, 0}, {0.3, 0.02838999555625}]}]}, {
       LineBox[{{0.4, 0.06296402840700001}, {0.4, 0.028377753719500024`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.4, 0.06296402840700001}], 
         Offset[{-1.5, 0}, {0.4, 0.06296402840700001}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.4, 0.028377753719500024`}], 
         Offset[{-1.5, 0}, {0.4, 0.028377753719500024`}]}]}, {
       LineBox[{{0.5, 0.07304631364125001}, {0.5, 0.02689243239124997}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.5, 0.07304631364125001}], 
         Offset[{-1.5, 0}, {0.5, 0.07304631364125001}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.5, 0.02689243239124997}], 
         Offset[{-1.5, 0}, {0.5, 0.02689243239124997}]}]}, {
       LineBox[{{0.5, 0.07304601442325001}, {0.5, 0.026892395673249962`}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.5, 0.07304601442325001}], 
         Offset[{-1.5, 0}, {0.5, 0.07304601442325001}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.5, 0.026892395673249962`}], 
         Offset[{-1.5, 0}, {0.5, 0.026892395673249962`}]}]}, {
       LineBox[{{0.6, 0.08303400431399999}, {0.6, 0.02429495718900001}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.6, 0.08303400431399999}], 
         Offset[{-1.5, 0}, {0.6, 0.08303400431399999}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.6, 0.02429495718900001}], 
         Offset[{-1.5, 0}, {0.6, 0.02429495718900001}]}]}, {
       LineBox[{{0.7, 0.09329770775462502}, {0.7, 0.02071967806712499}}], 
       LineBox[{
        Offset[{1.5, 0}, {0.7, 0.09329770775462502}], 
         Offset[{-1.5, 0}, {0.7, 0.09329770775462502}]}], 
       LineBox[{
        Offset[{1.5, 0}, {0.7, 0.02071967806712499}], 
         Offset[{-1.5, 0}, {0.7, 0.02071967806712499}]}]}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesLabel->{
      FormBox["\"r/R\"", TraditionalForm], 
      FormBox["\" m\[Psi]\"", TraditionalForm]},
    PlotLabel->FormBox["\" m\[Psi](r/R)\"", TraditionalForm],
    PlotRangeClipping->True]}], "}"}]], "Output",
 CellGroupingRules->{GroupTogetherGrouping, 10004.},
 CellChangeTimes->{
  3.445944312099*^9, {3.4489595035625*^9, 3.448959512921875*^9}, {
   3.44895956971875*^9, 3.448959599984375*^9}, 3.50579783790625*^9, 
   3.5941007799617186`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["\:041f\:043e\:0434\:0431\:043e\:0440 \:0440\:0435\:0437\:0443\:043b\
\:044c\:0442\:0430\:0442\:043e\:0432", "Subsubsection",
 CellChangeTimes->{{3.507357320669125*^9, 3.50735732912225*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"funcs", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Block", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"allbut", "=", 
     RowBox[{"GetResults", "[", 
      RowBox[{
       RowBox[{"{", "}"}], ",", "False"}], "]"}]}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"numpar", "=", 
     RowBox[{"First", "[", 
      RowBox[{"Flatten", "[", 
       RowBox[{"Position", "[", 
        RowBox[{"fields", ",", "\"\<Re\>\""}], "]"}], "]"}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"\"\<All such parameters=\>\"", ",", 
      RowBox[{"PopupView", "[", 
       RowBox[{"Union", "[", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{
           "#1", "\[LeftDoubleBracket]", "numpar", "\[RightDoubleBracket]"}], 
           "&"}], ")"}], "/@", "allbut"}], "]"}], "]"}]}], "}"}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"TableForm", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"res", "=", 
            RowBox[{"Reap", "[", 
             RowBox[{
              RowBox[{"CheckboxBar", "[", 
               RowBox[{
                RowBox[{"Dynamic", "[", "funcs", "]"}], ",", 
                RowBox[{"Thread", "[", 
                 RowBox[{
                  RowBox[{"ShowDependanceMod", "[", 
                   RowBox[{"\"\<r/R\>\"", ",", "allfuncs", ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"\"\<F(r)\>\"", "\[Rule]", "Fr"}], ",", 
                    RowBox[{"\"\<Re\>\"", "\[Rule]", "R"}]}], "}"}]}], "]"}], 
                  "\[Rule]", "allfuncs"}], "]"}]}], "]"}], ",", "_"}], 
             "]"}]}], ")"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", 
         RowBox[{"Dynamic", "[", 
          RowBox[{"Show", "[", 
           RowBox[{
            RowBox[{"Append", "[", 
             RowBox[{
              GraphicsBox[{},
               AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
               Axes->True,
               AxesOrigin->{0, 0},
               PlotRange->{{0, 1}, {-0.5, 1.2}},
               PlotRangeClipping->True,
               PlotRangePadding->{
                 Scaled[0.02], Automatic},
               ImageCache->GraphicsData["CompressedBitmap", "\<\
eJzVV71u2zAQPuvHktG9WT116FKko4YgHdpOHboV2YwgQjIECdJs6dI34AO0
r6GX4cOw5B1JUSKPtup6qINYEu/08e67j0f6y+759uZ+93x3vdt+fto93t5d
f99+enjSQ+UKAK70/7stmHulb+3XFSiljDFxafHSwtADfjohcUSpAXr9N+h7
KboCjSX0g7JmBR8JocFLDcpA9AM+DX0HQipY41OpnwkpeE2PKjep/tAEjQkA
JM05Tqb9TFwOTYoe0c1TYb5Li7c3E20r0dgieMYVceENKCmg81nxyKEdDvKX
oFN0L7jo3AvIAYev8Yop90T9lK3asoUZWBTiqCRZqIBBpn6V5dRUg7IYQPTf
5n40VTOSlYCiqTdkC4v8k/NtJzhjCIY4TKfKRL6aEpSSE81SWYJ8GRC1GBWV
ftmlLIVwayTyKVwFglqTzmt4//WcCWgTYfG+LWkEczda6ey6iChKhTejiK+/
Xr/CKdKPJTXE67DxkaZ8QnGgzQop5zsKglbG2y72rdzcdumM7cszBFUm9lXY
JMvJgq4j9SBluRXG97Q1Mv7jJbK7BYgN1JKSgPH8+WBIzr9Z2bezvhh2pUOV
cxatlNzCdyvFK/UX32/Ix3bSGDNuSyrl5jOd9XBKZ0kbOUtUtUyIIoo/6P6B
nys6s7k4s7RNwyAE5nGSYAvBjuqeMa06EV8xL9wHPr/L5b6vzeXCWNahbxX6
KmyC//Pwej7srs3fJz2lc3PEWJsYq09b9iW+R5w3i/k0S0+eKaovp1CLjp15
qEVnMkQ6IJbcmSUfzqLtPWT5yM3vxHraK7VXS47VfPapEwO/22XiSUOxtQ6F
kQPgT0r/LpYT8dJ43e3dvzI6j0Rjf+DC6g+Lh85M\
\>"]], ",", 
              RowBox[{"ImageSize", "\[Rule]", "Large"}]}], "]"}], ",", 
            "funcs"}], "]"}], "]"}]}], "}"}], "]"}], "\[IndentingNewLine]", 
      ",", 
      RowBox[{"{", 
       RowBox[{"R", ",", 
        RowBox[{"Union", "[", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
            "#1", "\[LeftDoubleBracket]", "numpar", "\[RightDoubleBracket]"}],
             "&"}], ")"}], "/@", "allbut"}], "]"}], ",", 
        RowBox[{"ControlType", "\[Rule]", "PopupMenu"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"Fr", ",", 
        RowBox[{"{", 
         RowBox[{"\"\<dp\>\"", ",", "\"\<1\>\"", ",", "\"\<r\>\""}], "}"}]}], 
       "}"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], "Input",
 CellChangeTimes->{{3.50580142175*^9, 3.505801423296875*^9}, {
   3.505801541484375*^9, 3.505801605765625*^9}, {3.505801645765625*^9, 
   3.5058016975*^9}, {3.505801917140625*^9, 3.505801964765625*^9}, {
   3.505802085640625*^9, 3.505802096984375*^9}, {3.505802127375*^9, 
   3.505802158140625*^9}, {3.505802289859375*^9, 3.50580233571875*^9}, {
   3.505802570859375*^9, 3.505802606328125*^9}, {3.50580267928125*^9, 
   3.505802702046875*^9}, {3.506064891390625*^9, 3.506064906*^9}, {
   3.506064996390625*^9, 3.506065012234375*^9}, {3.506065613390625*^9, 
   3.50606561384375*^9}, {3.506066173859375*^9, 3.506066203546875*^9}, {
   3.50606630015625*^9, 3.50606630109375*^9}, {3.506066438328125*^9, 
   3.506066439234375*^9}, 3.5060665548125*^9, {3.507347211716*^9, 
   3.507347223325375*^9}, {3.507357538044125*^9, 3.507357540325375*^9}, {
   3.507357650325375*^9, 3.5073577384035*^9}, {3.50735778949725*^9, 
   3.507357791200375*^9}, {3.507358161231625*^9, 3.50735816368475*^9}, {
   3.507534269200375*^9, 3.507534270950375*^9}, {3.50753430337225*^9, 
   3.507534320169125*^9}, {3.507534379294125*^9, 3.50753441387225*^9}, {
   3.507534473887875*^9, 3.5075344877785*^9}, {3.507534613325375*^9, 
   3.507534652012875*^9}, {3.507534714887875*^9, 3.507534752262875*^9}, {
   3.5075351264035*^9, 3.507535191044125*^9}, {3.5075358615285*^9, 
   3.50753587230975*^9}, {3.50753925705975*^9, 3.507539266591*^9}, {
   3.507539387762875*^9, 3.507539393919125*^9}, {3.507539525887875*^9, 
   3.5075395631535*^9}, {3.50753966974725*^9, 3.507539673419125*^9}, {
   3.507539770825375*^9, 3.507539784325375*^9}, 3.50753999562225*^9, {
   3.601742698198453*^9, 3.6017427424357576`*^9}, {3.6017428326369295`*^9, 
   3.601742832870328*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`Fr$$ = "r", $CellContext`R$$ = 10, 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`R$$], {1, 5, 10, 15, 20, 25, 30, 35, 40, 45, 50, 55, 
      60, 65, 70, 75, 80, 85, 90, 95, 100, 105, 110, 115, 120, 130, 140, 150, 
      160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290}}, {
      Hold[$CellContext`Fr$$], {"dp", "1", "r"}}}, Typeset`size$$ = {
    564., {10., 15.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`R$8950$$ = 
    0, $CellContext`Fr$8951$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`Fr$$ = "dp", $CellContext`R$$ = 1}, 
      "ControllerVariables" :> {
        Hold[$CellContext`R$$, $CellContext`R$8950$$, 0], 
        Hold[$CellContext`Fr$$, $CellContext`Fr$8951$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> TableForm[{
         Part[$CellContext`res = Reap[
            CheckboxBar[
             Dynamic[$CellContext`funcs], 
             
             Thread[$CellContext`ShowDependanceMod[
               "r/R", $CellContext`allfuncs, {
                "F(r)" -> $CellContext`Fr$$, 
                 "Re" -> $CellContext`R$$}] -> $CellContext`allfuncs]], 
            Blank[]], 1], 
         Dynamic[
          Show[
           Append[
            
            Graphics[{}, AspectRatio -> GoldenRatio^(-1), Axes -> True, 
             AxesOrigin -> {0, 0}, PlotRange -> {{0, 1}, {-0.5, 1.2}}, 
             PlotRangeClipping -> True, PlotRangePadding -> {
               Scaled[0.02], Automatic}], ImageSize -> 
            Large], $CellContext`funcs]]}], 
      "Specifications" :> {{$CellContext`R$$, {1, 5, 10, 15, 20, 25, 30, 35, 
         40, 45, 50, 55, 60, 65, 70, 75, 80, 85, 90, 95, 100, 105, 110, 115, 
         120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250,
          260, 270, 280, 290}, ControlType -> 
         PopupMenu}, {$CellContext`Fr$$, {"dp", "1", "r"}}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{613., {69., 74.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{3.6102618378526096`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["funcs"], "Input",
 CellChangeTimes->{{3.6022292388072968`*^9, 3.60222924071257*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   GraphicsBox[{{}, 
     {RGBColor[0.24720000000000014`, 0.24, 0.6], PointBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQXS2yzv1hVYu9XH64vPXuKvtZM0Fgpb3G4z9v875O
tGcAgwf2t6xUt3TLLIHLX+HfO9+EYxKUv9NebYXS017ZGfbGYHDYXn//ZfOo
0NlQ+ZP2u/rtVzmWzIWad8F+0tQfkexC86HqL9sb9Ibvu6q+wD4NDK7Zp8hX
/yhfuACq/6b9CQk59tPfF9ifPQMCd+wV/jxyidBdCHef7p45Yle8FkLVP7Rn
9GO4HR+2EGr+Y3u7nbcCrocshOp/Yh+i53psrfNCqH3P7FfLvPgnawYz74X9
4nhT5iB5mHkv7X94KwR8ZYCZ99r+wubzUpPvwtzzxn5tocb8Kfqr7AGKcJfE

       "]], {{
        LineBox[{{0.01, 0.007028375552062499}, {0.01, 0.006024051638687502}}],
         LineBox[{
         Offset[{1.5, 0}, {0.01, 0.007028375552062499}], 
          Offset[{-1.5, 0}, {0.01, 0.007028375552062499}]}], 
        LineBox[{
         Offset[{1.5, 0}, {0.01, 0.006024051638687502}], 
          Offset[{-1.5, 0}, {0.01, 0.006024051638687502}]}]}, {
        LineBox[{{0.05, 0.019275177716775012`}, {0.05, 0.015800454904275}}], 
        LineBox[{
         Offset[{1.5, 0}, {0.05, 0.019275177716775012`}], 
          Offset[{-1.5, 0}, {0.05, 0.019275177716775012`}]}], 
        LineBox[{
         Offset[{1.5, 0}, {0.05, 0.015800454904275}], 
          Offset[{-1.5, 0}, {0.05, 0.015800454904275}]}]}, {
        LineBox[{{0.5, 0.057752914353875}, {0.5, 0.02080765872887502}}], 
        LineBox[{
         Offset[{1.5, 0}, {0.5, 0.057752914353875}], 
          Offset[{-1.5, 0}, {0.5, 0.057752914353875}]}], 
        LineBox[{
         Offset[{1.5, 0}, {0.5, 0.02080765872887502}], 
          Offset[{-1.5, 0}, {0.5, 0.02080765872887502}]}]}, {
        LineBox[{{0.05, 0.0180906958935081}, {0.05, 0.017128157579517595`}}], 
        LineBox[{
         Offset[{1.5, 0}, {0.05, 0.0180906958935081}], 
          Offset[{-1.5, 0}, {0.05, 0.0180906958935081}]}], 
        LineBox[{
         Offset[{1.5, 0}, {0.05, 0.017128157579517595`}], 
          Offset[{-1.5, 0}, {0.05, 0.017128157579517595`}]}]}, {
        LineBox[{{0.1, 0.02428115454811114}, {0.1, 0.022819326695620576`}}], 
        LineBox[{
         Offset[{1.5, 0}, {0.1, 0.02428115454811114}], 
          Offset[{-1.5, 0}, {0.1, 0.02428115454811114}]}], 
        LineBox[{
         Offset[{1.5, 0}, {0.1, 0.022819326695620576`}], 
          Offset[{-1.5, 0}, {0.1, 0.022819326695620576`}]}]}, {
        LineBox[{{0.15, 0.02761987723590197}, {0.15, 0.025765685007403175`}}],
         LineBox[{
         Offset[{1.5, 0}, {0.15, 0.02761987723590197}], 
          Offset[{-1.5, 0}, {0.15, 0.02761987723590197}]}], 
        LineBox[{
         Offset[{1.5, 0}, {0.15, 0.025765685007403175`}], 
          Offset[{-1.5, 0}, {0.15, 0.025765685007403175`}]}]}, {
        LineBox[{{0.2, 0.029844584877534962`}, {0.2, 0.027683006858554342`}}],
         LineBox[{
         Offset[{1.5, 0}, {0.2, 0.029844584877534962`}], 
          Offset[{-1.5, 0}, {0.2, 0.029844584877534962`}]}], 
        LineBox[{
         Offset[{1.5, 0}, {0.2, 0.027683006858554342`}], 
          Offset[{-1.5, 0}, {0.2, 0.027683006858554342`}]}]}, {
        LineBox[{{0.25, 0.031549140181762594`}, {0.25, 
         0.029135283010063295`}}], 
        LineBox[{
         Offset[{1.5, 0}, {0.25, 0.031549140181762594`}], 
          Offset[{-1.5, 0}, {0.25, 0.031549140181762594`}]}], 
        LineBox[{
         Offset[{1.5, 0}, {0.25, 0.029135283010063295`}], 
          Offset[{-1.5, 0}, {0.25, 0.029135283010063295`}]}]}, {
        LineBox[{{0.3, 0.032865674858206774`}, {0.3, 0.030242158022017813`}}],
         LineBox[{
         Offset[{1.5, 0}, {0.3, 0.032865674858206774`}], 
          Offset[{-1.5, 0}, {0.3, 0.032865674858206774`}]}], 
        LineBox[{
         Offset[{1.5, 0}, {0.3, 0.030242158022017813`}], 
          Offset[{-1.5, 0}, {0.3, 0.030242158022017813`}]}]}, {
        LineBox[{{0.35, 0.03388154610857877}, {0.35, 0.031082269737190995`}}],
         LineBox[{
         Offset[{1.5, 0}, {0.35, 0.03388154610857877}], 
          Offset[{-1.5, 0}, {0.35, 0.03388154610857877}]}], 
        LineBox[{
         Offset[{1.5, 0}, {0.35, 0.031082269737190995`}], 
          Offset[{-1.5, 0}, {0.35, 0.031082269737190995`}]}]}, {
        LineBox[{{0.4, 0.0346118797445631}, {0.4, 0.031669142553951195`}}], 
        LineBox[{
         Offset[{1.5, 0}, {0.4, 0.0346118797445631}], 
          Offset[{-1.5, 0}, {0.4, 0.0346118797445631}]}], 
        LineBox[{
         Offset[{1.5, 0}, {0.4, 0.031669142553951195`}], 
          Offset[{-1.5, 0}, {0.4, 0.031669142553951195`}]}]}, {
        LineBox[{{0.45, 0.0350816472821713}, {0.45, 0.03201650947330673}}], 
        LineBox[{
         Offset[{1.5, 0}, {0.45, 0.0350816472821713}], 
          Offset[{-1.5, 0}, {0.45, 0.0350816472821713}]}], 
        LineBox[{
         Offset[{1.5, 0}, {0.45, 0.03201650947330673}], 
          Offset[{-1.5, 0}, {0.45, 0.03201650947330673}]}]}, {
        LineBox[{{0.5, 0.03535516063137844}, {0.5, 0.03219288120876281}}], 
        LineBox[{
         Offset[{1.5, 0}, {0.5, 0.03535516063137844}], 
          Offset[{-1.5, 0}, {0.5, 0.03535516063137844}]}], 
        LineBox[{
         Offset[{1.5, 0}, {0.5, 0.03219288120876281}], 
          Offset[{-1.5, 0}, {0.5, 0.03219288120876281}]}]}, {
        LineBox[{{0.55, 0.035482117662951694`}, {0.55, 
         0.032242101627865054`}}], 
        LineBox[{
         Offset[{1.5, 0}, {0.55, 0.035482117662951694`}], 
          Offset[{-1.5, 0}, {0.55, 0.035482117662951694`}]}], 
        LineBox[{
         Offset[{1.5, 0}, {0.55, 0.032242101627865054`}], 
          Offset[{-1.5, 0}, {0.55, 0.032242101627865054`}]}]}, {
        LineBox[{{0.6, 0.035501788521485694`}, {0.6, 0.032199033583770464`}}],
         LineBox[{
         Offset[{1.5, 0}, {0.6, 0.035501788521485694`}], 
          Offset[{-1.5, 0}, {0.6, 0.035501788521485694`}]}], 
        LineBox[{
         Offset[{1.5, 0}, {0.6, 0.032199033583770464`}], 
          Offset[{-1.5, 0}, {0.6, 0.032199033583770464`}]}]}, {
        LineBox[{{0.65, 0.03537319373208793}, {0.65, 0.03206575290203288}}], 
        LineBox[{
         Offset[{1.5, 0}, {0.65, 0.03537319373208793}], 
          Offset[{-1.5, 0}, {0.65, 0.03537319373208793}]}], 
        LineBox[{
         Offset[{1.5, 0}, {0.65, 0.03206575290203288}], 
          Offset[{-1.5, 0}, {0.65, 0.03206575290203288}]}]}, {
        LineBox[{{0.7, 0.035290732868374294`}, {0.7, 0.0319412796257873}}], 
        LineBox[{
         Offset[{1.5, 0}, {0.7, 0.035290732868374294`}], 
          Offset[{-1.5, 0}, {0.7, 0.035290732868374294`}]}], 
        LineBox[{
         Offset[{1.5, 0}, {0.7, 0.0319412796257873}], 
          Offset[{-1.5, 0}, {0.7, 0.0319412796257873}]}]}, {
        LineBox[{{0.75, 0.03513330690865342}, {0.75, 0.03175085388019058}}], 
        LineBox[{
         Offset[{1.5, 0}, {0.75, 0.03513330690865342}], 
          Offset[{-1.5, 0}, {0.75, 0.03513330690865342}]}], 
        LineBox[{
         Offset[{1.5, 0}, {0.75, 0.03175085388019058}], 
          Offset[{-1.5, 0}, {0.75, 0.03175085388019058}]}]}, {
        LineBox[{{0.8, 0.03491920798621488}, {0.8, 0.03150166380758031}}], 
        LineBox[{
         Offset[{1.5, 0}, {0.8, 0.03491920798621488}], 
          Offset[{-1.5, 0}, {0.8, 0.03491920798621488}]}], 
        LineBox[{
         Offset[{1.5, 0}, {0.8, 0.03150166380758031}], 
          Offset[{-1.5, 0}, {0.8, 0.03150166380758031}]}]}, {
        LineBox[{{0.85, 0.03466237856469885}, {0.85, 0.031218581943396592`}}],
         LineBox[{
         Offset[{1.5, 0}, {0.85, 0.03466237856469885}], 
          Offset[{-1.5, 0}, {0.85, 0.03466237856469885}]}], 
        LineBox[{
         Offset[{1.5, 0}, {0.85, 0.031218581943396592`}], 
          Offset[{-1.5, 0}, {0.85, 0.031218581943396592`}]}]}, {
        LineBox[{{0.9, 0.15018268206288093`}, {0.9, -0.04789416043266068}}], 
        LineBox[{
         Offset[{1.5, 0}, {0.9, 0.15018268206288093`}], 
          Offset[{-1.5, 0}, {0.9, 0.15018268206288093`}]}], 
        LineBox[{
         Offset[{1.5, 0}, {0.9, -0.04789416043266068}], 
          Offset[{-1.5, 0}, {0.9, -0.04789416043266068}]}]}}}, {}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesLabel->{
      FormBox["\"r/R\"", TraditionalForm], 
      FormBox["\" m\[Psi]\"", TraditionalForm]},
    AxesOrigin->{0.01, 0.0065262135953750005`},
    Method->{},
    PlotLabel->FormBox["\" m\[Psi](r/R)\"", TraditionalForm],
    PlotRangeClipping->True,
    ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztWnlsVEUYH7q7PeQoh4ZDI/3HxL+Mf4gxa7B3gXAWoiBgpBxrgXDIZTli
MB4QpPoA0e62ULAgInIJLqgoRwW5tIlCRFdFNAgJNiiIUgWe75uZb2be29nX
t7RITWiz+/Z9M29+33zf7/tm3sz0L5lROm5SyYzxY0qyek0rmVo6fsz0rKIp
0yyRrxUhZLv1Kcsi8Nu0fvKv7cQ0TSjUXNLopS2Jhgj9CxoxKjHNKAlZ/1H6
24wrjxlBkkIlPhKKmvwZk1SyZlPpJUBMeC4U5U0EiREzrQcaK/NZ9xKay1hf
uGw5g4Ey1Mz6YwqlgpZkl6WgUMyqYymOwLH4IgEcM0JUEQFMcZfbe8UU1zWg
L0vB5mIGCXKj+jW9mkO//SeHPvqWmd0zDJ/qBS/t6WxHT6x+hraMocIfQw5o
kOcyGaCN2hE9Qe8csIndla4to78Ng8RMMzU5xDRBAsm5gEbGzOpXOkiRqWVT
AGxeYoy7klPpP6je8jTuyL3rlhusMp8mDbSj32muj9qigpOnA/1u7TkdAenY
M20aeSZGjCDmCSpL9+KPji7k93P6QcwxzCgxjFimyyMBTZfbe02VQRpLIsTd
cHQpFtVsrN8OEnRwyTrYnZgV5uiZTJf6wuOKN3AQkV5D9rhlOn2ZG7YwCbCC
mgTYwcx1nSbRpXrhYQEjTZJ42PDTe1rGmOEGoVoArcb4EXOF8qNqPFCgPKP5
yMCTvC3/uznSL+pb4cjjwa194UCR7eWQ5tnxImuxa5NzgPQFRoBklVuACl/Q
+moec6+v+txT4lASDXIiSbZ3FH6S6RVTn1CfyTtoqiIt4rO8vl6MJwaQtU8I
HbBndJ4ak+yZbji8TU1RRlSReW6itUpsXi9DaYK2oHswVbgVuyYjyYwa/Hfc
QOac4LViWHcyH0UWL9oLgFvnlO1Mb2i4ogPGlwAxYzRxJKcjGv8NwOpoqjKN
dIPLCwAkHK40lsJh+HzQ1hjS0q+ozYwcAH0VZUwq1U0mdZPpmyXTTa9bkn6K
zME8JZ5ZQOEEW2Y3Sj7de1+K4j2aNbtpoLtqZF7rtW6Mt6EQDQKhlBUURtTJ
WzlS+tSgTrdBWZ+cui9Of//4sHXwCnameGDNLA16G/aokirsSDxX24ACTqDD
T43bZPXUgiG+zvX1f4qy6RrEtphZjHlkrmP+RJTZcYoCSZ3BBIFVC17cjS+W
V/JyIu0vXmwgDzMnD6rdd3JhuOJQRfni2qkb3vnyQQ2+Sy5lqTcw4qMPY78U
D6oBhHMD+q/OOnPmAnlAImyZO+eDujGjN14/woQtm481FORWAcK1nEfCXerr
L2H/7o99++uuaU9vh7IjoXGb4J7cx9oCCICid0lC81lS70MHf9o9ZfI2+ggf
Yfsd2H/qn7ycSq5OBO5RHUqiYUOBRJHTg4vXwD1O+Ghatp6BtAxdyLoOLalr
+Vg6a93auroxJe8uDL9xEHWD7qO74QMOQN26nz174XJBHpoxUrp1y3EsA1pw
vcNnBw2sAWdhGaTknTNnRKGsbuzojbRN3qclS439IN9WNmvHvadOnedi4AB0
vejI4Z9B7Nd0lfXCD61jVbj6JCjcgnHhSscF3jrcD9639we4giE19gUFuHjb
7Gd2qKr7kyNC58REAJAjobGb/uhVuPLEyBHroY5qUMnZnuHZa2rqUP9LvQpX
AEHACfPeXPU5iosKVyLFX3+lvJaLP504YSuIf+/Tu3rdc/N3cXDQH718vm+f
VdRAHHx+9cqjWGZ5vJIGPS+DDoiEkJsdAfdgGXTgx8fYShSwlwYTL3vo+LGz
yBAog3ssAyd8M3L428ieYR/v+k41hNUz6HD4qtVhxYD+3/r2rqby3OwwyJN0
zT2slQmbNx7DOAA03nhF+cv7Tg8pXvO+RU3wOxfvmTzpPXAY9PPVZUsPcPFf
hfkr0CzgZ25lqIHia5bLVCtDjGA8Xc3JjqhWBgtcLsiHsgiUqVZ2K3OLX6Cb
WkZNpHigIT+3Esuc8Qs0BS+AB8vWrqkjSZo6qIkCPuupnTQR+Bn5ZOrkbehY
MAWmp2dXVx/1yVhH8fMrKg8nEPs1YDpZJy/JMp9VOjeg32rQ0vJzlVuWbe7F
cd1Kdh6TlS9/7QBMNKgKLird6IX1vOTGocbXpJNcbvegTg8mA+YKqnWxq9Ns
C/RUGxcl+FJ95O/83IhTiRuxTu+iCkQDMKhq0cI9TlWaee0+l4Uq5CDIsztm
To/CCNBoJDVtSV+rBE28n40v3fLVqCc3bLZmlzQp9/CSDFrUWvv/YHegBahw
czVmJG7vfXMiiKsdtiGiGfff/DydOF89XZYQk4VNvHQbD5uwbsIlLwdY4mXr
eDCXJe6b0scW71FdDpYLubisSCFTNFUDt3LALY2vT+Nk59HqVqfXeXST4g23
JG1HMxqdKzcps+gh9cdP+LkQAIK37a+fGLl+QbjikOfkacfCubfH0yjwFgoL
L7h847mH6SQuidlnuLqB0HHSxqvLRMIy5JDr0nzSqTBuRlrFGnI7WmW/3K3x
8DJ7kVyyFkV3OCInFFWVUxbrNZuiS9Um2tk24NS9GXQgsl3sx7IgXJJcK9g9
dhUO4q3cTi+ZxLnDxTb9GL4glPJaFLKuSG+bQplcIUNsioWiuCXpaE6z72+w
prprCMWNlyW8Jlm+xMXLxRpXjnIUKZtqqZrmfao2IUZnsSuphEOBs1lZXT1m
EuJQ8qyG5J9s1hAytkRCetGLPIgDqGp6jqK9KUuYyVmq7ujYQtRvwahpHlND
SDynbDNl2LKLym/qSd6ETetMEn/0J2jbPWV8J4JnjLlB5RU0jRFL1TDu6FJr
ou4SK5org5XmuJOij03tTsmpjXx2qskpIuFkm7j6oA5sTpXt27E+26iSl7y6
8sACckCGnzd10+XZGKe67NlAYk2L6KWrkm9w8iGPXdg0V7KbzIv2YRXjz9lm
/AEjWUds0imO8jVm4G7Ct7Zgk2OWmCOJgBMJmXVPHCjS0NigbdJup8TRwk6J
mKzqxuIhqgs5or26eugmI+5Ig9PF9hNjcbE+RKOJbWrDq6chnMi7DjjlOJR8
7wk6E+JwTWZPVVUIsT1ZP20sYE+CnMCFRDNkkFb/Ai3MScs=\
\>"]], ",", 
   GraphicsBox[{{}, 
     {RGBColor[0.24720000000000014`, 0.24, 0.6], 
      PointBox[{{0.05, 0.01710886941413158}, {0.1, 0.022576618314603565`}, {
       0.15, 0.025547060907905046`}, {0.3, 0.02926166528463002}, {0.5, 
       0.03031524843447658}, {0.6, 0.030361687448457388`}, {0.7, 
       0.030204698142281917`}}], {{
        LineBox[{{0.05, 0.017571772399370366`}, {0.05, 0.01664596642889279}}],
         LineBox[{
         Offset[{1.5, 0}, {0.05, 0.017571772399370366`}], 
          Offset[{-1.5, 0}, {0.05, 0.017571772399370366`}]}], 
        LineBox[{
         Offset[{1.5, 0}, {0.05, 0.01664596642889279}], 
          Offset[{-1.5, 0}, {0.05, 0.01664596642889279}]}]}, {
        LineBox[{{0.1, 0.023271736667289482`}, {0.1, 0.02188149996191765}}], 
        LineBox[{
         Offset[{1.5, 0}, {0.1, 0.023271736667289482`}], 
          Offset[{-1.5, 0}, {0.1, 0.023271736667289482`}]}], 
        LineBox[{
         Offset[{1.5, 0}, {0.1, 0.02188149996191765}], 
          Offset[{-1.5, 0}, {0.1, 0.02188149996191765}]}]}, {
        LineBox[{{0.15, 0.026428637983551335`}, {0.15, 
         0.024665483832258757`}}], 
        LineBox[{
         Offset[{1.5, 0}, {0.15, 0.026428637983551335`}], 
          Offset[{-1.5, 0}, {0.15, 0.026428637983551335`}]}], 
        LineBox[{
         Offset[{1.5, 0}, {0.15, 0.024665483832258757`}], 
          Offset[{-1.5, 0}, {0.15, 0.024665483832258757`}]}]}, {
        LineBox[{{0.3, 0.030506948391625537`}, {0.3, 0.028016382177634504`}}],
         LineBox[{
         Offset[{1.5, 0}, {0.3, 0.030506948391625537`}], 
          Offset[{-1.5, 0}, {0.3, 0.030506948391625537`}]}], 
        LineBox[{
         Offset[{1.5, 0}, {0.3, 0.028016382177634504`}], 
          Offset[{-1.5, 0}, {0.3, 0.028016382177634504`}]}]}, {
        LineBox[{{0.5, 0.03179894920930891}, {0.5, 0.028831547659644245`}}], 
        LineBox[{
         Offset[{1.5, 0}, {0.5, 0.03179894920930891}], 
          Offset[{-1.5, 0}, {0.5, 0.03179894920930891}]}], 
        LineBox[{
         Offset[{1.5, 0}, {0.5, 0.028831547659644245`}], 
          Offset[{-1.5, 0}, {0.5, 0.028831547659644245`}]}]}, {
        LineBox[{{0.6, 0.0319235855606752}, {0.6, 0.028799789336239577`}}], 
        LineBox[{
         Offset[{1.5, 0}, {0.6, 0.0319235855606752}], 
          Offset[{-1.5, 0}, {0.6, 0.0319235855606752}]}], 
        LineBox[{
         Offset[{1.5, 0}, {0.6, 0.028799789336239577`}], 
          Offset[{-1.5, 0}, {0.6, 0.028799789336239577`}]}]}, {
        LineBox[{{0.7, 0.03181646701299832}, {0.7, 0.02859292927156552}}], 
        LineBox[{
         Offset[{1.5, 0}, {0.7, 0.03181646701299832}], 
          Offset[{-1.5, 0}, {0.7, 0.03181646701299832}]}], 
        LineBox[{
         Offset[{1.5, 0}, {0.7, 0.02859292927156552}], 
          Offset[{-1.5, 0}, {0.7, 0.02859292927156552}]}]}}}, {}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesLabel->{
      FormBox["\"r/R\"", TraditionalForm], 
      FormBox["\" m\[Psi]\"", TraditionalForm]},
    AxesOrigin->{0.05, 0.01710886941413158},
    Method->{},
    PlotLabel->FormBox["\" m\[Psi](r/R)\"", TraditionalForm],
    PlotRangeClipping->True,
    ImageCache->GraphicsData["CompressedBitmap", "\<\
eJzNGmuIFVX4eGfvY9dsV41SSVmofkXR7wtiYVqplS4+6kePTZpcyBQfEZkZ
JOu6aQw+2NW2tFIDNZSS2d5qkilFC0FQzQ+pEH+UCEmEEUzzned3zj1zZu7u
XVPRuXPOd77365wzD3auWfb08s41XUs72+9b1blyWdfS1e2zV6xKhrwxhJBj
yb8N7QR+x8lP/t8xEscxTFoe0+jjOhL6hP6pBhEdieOQ+MnfkP6O5XwCQKI4
rtDBinNZMufRSY/4YcynY1Kk/4/NWirIkSCKSTOFKDvXFOiIR+IoIFU/5Axm
sxkF1YKFzXIONjXFJCQZuZbMNfAeBNGNzARThVpgGWc89JngTUKoOCJBlWGo
ZMI3gVCcOqVUciwpYhI+tS4XPgMe6dkFX+Lwoa8U4OLHw3PM26g4YJw8coQB
WwNvN+gaFmioDRIUoCGXhm3wgkyUkDHFccFjHyg74AsaP8yPhH8qfxLi2nGU
JI8+VU0Wj14mrgzZwkDSMVTODJVf5TZ4TYXc6qUc+COhPxmadniPBw280znm
2blYAlDDqukkiiguWebAGs4SPeDrRsGpVYxWpSFdDobFD0KcMN380BzA84aL
H2kRql5qQpAhe0kRLZHLnD4sRUdpY2LjE7NyAJE2IB3gDJmRDaOIs5esq2Zn
acUf0NFjwAWP1ZAHHju0ix8pfxhK/CJtcIeewpCwnkWAxLFWTUV9U9mRqr5Z
+pcNlGuAjVdcoMh3knEbVuEutV2GDlesQUn1YAMtIVWKsXIql6aHszlNhZ6m
wl7sqQHjuIWBT2ZM3j303XlYAs/KlSv/voajlWNhuiCTGA93RT//cXzFcx/C
Knjef/bMr6SbzrUh26hkoiqEqmoiOo0gH4N5817Yv28IqPRt3XKK9NCxcTJ2
lZeo7IgDkv3GDsgE6AaM0pIIWYH7sYoChUyk5yZNE4AJpIfnk4PhjzGr1HIO
e/IozzXhufh/Y+PamCsMc13FzBos1xb4sErf1I9tG4eC5h/tFy78+cqet74F
5OIpoltjYLxlrC0nXNEh0EholXG8+T6NUimqLP043lRX4znVAO9kC52rEJWZ
dFS8tnBMtty2lcdwGLxE1hnNMkEbrgJCUQAM/ek4+0ZzKidxcr3UJfNB994T
dZRsx12UZqotIHaCrqrdap1DFiIyAafiSKNa73akwH0Gb78scG6irg7dNieI
4g2IBY6ioDSHL5/HA09oLx2mUXa0daT12rHJ9LUi15jdg+WY2Ozm9NIGRVfj
pnjihcZp48Ab3xx+ef2nMrttNRkrqVQYbN92+tLcB/ZCdwMdlwZs0OB9Ciw7
t2TRAfr2eib45v6+M/GM6bto35QN/tvCjn0A/vesmQM5wJ/4aPAnAIWORwOn
gpbr4xgpUejFqkT7MlFZYGkedV41V2pMDo8CtJmV3adOsFX3woHezSelJl7N
kRda8uZ3T4arWVpTGdq7qfv4uSWLD1gYGl7q10/ePDmmTrooHGWI9zTAB+xS
6NtGSX94VUA/htIOnblVbYnSzcnwikRJmUrfQdl8hDOwe0vvSZkWFAPpvjEu
f82Aeb5vKqZzcGHBw+/ITCM4GFn9qNllOyzw/Hv7hy7NnbOXZq6NZsCPTzeT
LdIdVrWBW8ICMlfb5ctXRFg4lsGeG8D7E9OZ0XTNFUbH1B3MZisPHfweRIG8
DcbwTXbvZHAwN7T0qfePrnvx4/mnvjznp2NmK7w9m7pPUPPCW53gc5iuQbeg
YzCTYJDcVB+qWxiqSRcv/gUWf+TzzyJxwCJMCvL07Oo/C2SkSVtr5YZ1w6MO
RxNfdy07mkTbm4Nr14S0qHIKgBWwAxWwxngLGkwVWYUdy8yYvvuLlYnb38bG
tHrPkQEiQIjHUglYHcUDlEDqn5n37G4EKT43jLos8g5Nd3lbVy4FGCJJfe8O
9PacaIgUOS7PjDm1i1EXfRY4W/K0editDRFiuPs/4wY3z/5v9IRI7yRarXNx
jBq79P0kURtKB+9ap2/jvc0SspNGbgB09TNyA2j7Dy7EoQ3rPwGGqWBtlmSg
hKj77MJym5J3z8vrV5I1DwPH8O9IkkW5INrOiAvy+0Pz3gamqXBtlnwgBMnf
BukXFXlz0aJ0b9+6c8dp4AfznTdRO9DWlf9pgVncIGSjxOPVQbuQBSD0DtA3
QM8se4e21BBvghZxcO3qsGdX3xlgKZsCuOHJ5c9+8MPjjx00+wNoNmH8fMeC
feDhnAj8hOGzz/hHAKTGgl0MDlAB0/NOf/ULMHZ7OjPZjaTrEyb9cTOPBbwj
3KlP4dTFp9iN7zgZQX6I7xfRVYDldnkHRnG9djNoJnxIkmLzLO/CWf7ZXh8W
IR57ynNzjmWCyH3GVRwrOkbVFNgTin7yFIVIY6iVMxQQVbbETswswmJ3rLaG
2xiqqUL/6JyfK2+atJqqJNsdVp5vMWWnMYUuBUsW9B7mhrdDLWIM1YJZJloF
jj+D8Dkp9X2Q8j+FVn0ncy9DO5s+1GdmQDVUO9xkR12VvyPuiOyGY4JxBRoT
21WMWsthEKvaJVazVsGxf+MiqXHdSvSmWV22Cr9j/k6kn4kTLdVIlJljYQ5r
vukbS/DdNeIc3btZvgNE/GhsT6yPbeHPJpvcRbRTIe0EqFk7JzNZ1q+TPa3/
m1k/u+qkTviAfjKTzW5Fff9kssvWFtM5ZTEymeDrfXFuKL4+0ThH2U3lRb0B
FvFn4pRbHHQMJ2Dk3R8ylJel4CnStlqwqWZKfoIoA04mZCae/GjM4sYBxUnF
LtS4he4SkQJ1eXEHNiGnqIPjz5Gaa769ME1cc7apx3qHhROZO5HQZUFO5l2D
HFcovKuGtWomxEctmb2EWfDZVW8TRVbUkyB3YGZXe+UgY/4DsC6hoA==\
\>"]], ",", 
   GraphicsBox[{{}, 
     {RGBColor[0.24720000000000014`, 0.24, 0.6], 
      PointBox[{{0.3, 0.027841128918773626`}, {0.4, 0.028529034024677696`}, {
       0.5, 0.028830943295076482`}, {0.6, 
       0.02904143966142335}}], {{
        LineBox[{{0.3, 0.0290678287593753}, {0.3, 0.026614429078171953`}}], 
        LineBox[{
         Offset[{1.5, 0}, {0.3, 0.0290678287593753}], 
          Offset[{-1.5, 0}, {0.3, 0.0290678287593753}]}], 
        LineBox[{
         Offset[{1.5, 0}, {0.3, 0.026614429078171953`}], 
          Offset[{-1.5, 0}, {0.3, 0.026614429078171953`}]}]}, {
        LineBox[{{0.4, 0.029905441032175472`}, {0.4, 0.02715262701717992}}], 
        LineBox[{
         Offset[{1.5, 0}, {0.4, 0.029905441032175472`}], 
          Offset[{-1.5, 0}, {0.4, 0.029905441032175472`}]}], 
        LineBox[{
         Offset[{1.5, 0}, {0.4, 0.02715262701717992}], 
          Offset[{-1.5, 0}, {0.4, 0.02715262701717992}]}]}, {
        LineBox[{{0.5, 0.030322711137565437`}, {0.5, 0.027339175452587527`}}],
         LineBox[{
         Offset[{1.5, 0}, {0.5, 0.030322711137565437`}], 
          Offset[{-1.5, 0}, {0.5, 0.030322711137565437`}]}], 
        LineBox[{
         Offset[{1.5, 0}, {0.5, 0.027339175452587527`}], 
          Offset[{-1.5, 0}, {0.5, 0.027339175452587527`}]}]}, {
        LineBox[{{0.6, 0.030637441831687595`}, {0.6, 0.027445437491159103`}}],
         LineBox[{
         Offset[{1.5, 0}, {0.6, 0.030637441831687595`}], 
          Offset[{-1.5, 0}, {0.6, 0.030637441831687595`}]}], 
        LineBox[{
         Offset[{1.5, 0}, {0.6, 0.027445437491159103`}], 
          Offset[{-1.5, 0}, {0.6, 0.027445437491159103`}]}]}}}, {}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesLabel->{
      FormBox["\"r/R\"", TraditionalForm], 
      FormBox["\" m\[Psi]\"", TraditionalForm]},
    AxesOrigin->{0.3, 0.027841128918773626`},
    Method->{},
    PlotLabel->FormBox["\" m\[Psi](r/R)\"", TraditionalForm],
    PlotRangeClipping->True,
    ImageCache->GraphicsData["CompressedBitmap", "\<\
eJzlWmuIVVUU3nPPuXfOvTpO6Y9Uegz9SDGC+hHEhV6Yj8rSGa0pUGuQDo75
QicIH6n90Iqkgw808UHlKFRQoRwzrKxBsQf5J6E6P8REJigJkggjuJ39Xnvf
dc69596xlFHmnnP2Y61vr7X22mvvtR/r6Vv43JKevt4FPR3TVvQsX9i7YGXH
1GUr4iKnhRByOP57oYPQ90r8Kn7Gk0qlQhz+Eb/Rvx3sl6RUjWMP94HT312g
1fTpXb78j6gdyx75O6Offvt82dJDFcFs+lenfq6DdhNVOVqzkxeQUewZ+oT9
KweR6BISP/4fiu52ffztsAKX+GFFdQmCKJ/MnMR1lJAfChplEkRxW/ZVQuvo
exSUBV/GIMcZkDAISCQYOKlMKQGFMmZCifEeeJ3kEMUcpABkWSUMFDBGgzHV
vPgYcF5YnaJLBS4GD8sCIfChHaEjZQjEjMk116Ay29E6LU9qXKIsDBU3KVts
rLfx0Tx7JPxhYPHzH53tfvIAnTRjL178kywWiFzbVLktjkiwbqssCmJIJB4y
N2vdtqLmzAQ+n6+7dOnyU58eiwY7Z759z5nvf1mSPO1K7LctdX7JOkJMm+dI
HDDBpGiSRqTma8fg4B+k++F5pByrQCkW9CmwstZUOryfyyUjVBnjSoblpZJT
XQtG1yp11UlFA0iSlVufrLT8E2Q1Olm9RTHHMGvPK8lEJPD5nNLzzrc8C06D
D6FoqFPOY7xtDSxAlVmxCDdNsdCFbMbJE+fI7u75vG91eyeFVCGRtVmWRsNY
NcpcvMrVVbe/vrYSMUeplahtRgouCnzLeaYvJ8wQytyu5Eyg9UgftwlywGlJ
iLWXgtL6fXu/PTN/3rsXujr3k94pjwiHXdU+jVQhUTBmWR1w0DqkDKqVueiS
oI2tta7CUlYTXiqTu3+o4LS1nJvd3H5zViLt3ZqkXPbN6vjkzIpI+Ai6MpJN
KxerPlkjkTzCN4eU1R5SiXyx7m5yx4oB6idI/1zuRpH2TU3KVoYqkHVi+SYW
Sqy/kFiMrIfcB/SX3DaNjsddFvCsFpY0Esqc4i6TWJcZyvtlnH2OlJslCUw6
+TogbVi6iIyRkQmZJVffBnSY7L69GFkk4r/YwZZ15Cmi0HwKCanGwcH3ya1i
OjeyOEq3oKJCGAeAYLg2jSJ52V9F+jYe1044cejpWJAg3CirRy59j95OJvlH
U7GkaK8k2YJQyJWCUPbEynNVxYy6i1AQXqbOABUr84woxrTuGmw9cmTPKnKL
bqrcthGBYl2LNheMM0nu7+3bFJvFHv8uIxQF7WCUyVayiVpSZ7ufOMC+RBn1
9YweKKPfbA2gXyOUSccxQhCC2YiqekITrEaqIWt3410ZVq3st53oyAdoQu3L
dVSkPCDwfi2sZMih8RG3KSeqTBNs4Tk0KSX6zuFz8xeHRc6L/ftPy6OgpmzA
kzYAIOWEHLUr0ZDk+szdEz+d2khRFJT3E/6Ru2k56fWunkke24m1GCOkB1yU
LkPKLTVvKKLCWhP0HKCAlBW1lFQ5dnJRSuE1Emmf15K26NZPI40nGB9uSL7P
7NYHMQ6Pd6Ahcc3pncGQ23abAiadiclenM9B7o4+LWmM5yjpVYI1ZLWxyXEI
DGxarsyQb7jyZJv28f8BxmuL7LUr0Vd37jhVuf/eN3dsfn1gCMmen9O1n5L9
a8rk3U1L9JmPj/xICbGGV71Er1aytWz0vXVrP4lVtgtaAkas2bRNni0q6iBE
bLzcbCP/9fEZb1Gw0L5QsEOa96GroJ+SFUkBvHn7tpODnTPfgTacALixnJFn
5IxgmkHEqhkB12tbDSeePAITT1ri5olDpuVctGNxbGwcny1fekikOhvPVLUp
w8CGEr/TJCp1dSxyjp+zBr48mxUxbUMR/z35wV0A8VBkuWAMbsbZjZmCaEcj
aWrPu1975bhCnJAFS8pB2WVg+xQPLKNHGCbr9dVKdhhLdBgPfXhKVBxdNhAB
wfUYPXvEnB64f3BiUe+Hl6ZP26vuH0zIiDxtTcHr9GKtc8mJOVcMOLuzQNMx
U7/5+jy9s5A9wGg0IrKy92hKg0HuygwpOeZpTwoUjOSfNIiE6zGGHLOja1hg
IK2VmANqFlzWqAbN0yTSaA5dQgSDXAzB0hDIXGaubHbzbivjQDASnXw6vrF1
y0mabj8/Z3b/wQ3rjzVGRd7FoJN64rlzv9fl0l/Kxmrt/9qcIeaN3A9WrzpK
rydQudHrCilk1/AedFdA76lQGVFZpfSofXXycN2PG4UdwjsP280qOMdF1Rj2
0GG6H8pQnPpOcPQOjF4ehW6DJEaZCTLL91FvInM1KnHNJ/TWbFTk8PhTnQkL
KqOlM7GSNdz/WsuBpC629tInG4DaBaCAaA8uNzD26iK3tHoHtoWTuknKH5xh
C+HdrLSmXe7WFC3PQlTZY1WB7E8BIe9ANGJZl2lX6Fyn2GR1c3hrQ56K5BUr
bX+arL6/+hAnO5U99D05yjXUG0MSGqdEXOT8LH501YUjLDWh++o0hm/uNzm5
orHUQfuGq46Bup2YAZ/Oqkm74/ZOlJ3Jcy+94vKLJGWIsOoW5AgCU6kAuXH9
2ezjGHgM2GOywZb2bMMUJmLcITZuDBWNtKwNWdKHCXNZNzk7XH16JG0AHIDU
BdfTd6FsuLxvPhkpnyPjCDzBkKeH8laHgdy81WoJ3AxubJoqVAdnZ7KNylKV
q66nJwt4vNKtMdl0IKOuN1rHc2p46gIZYsYBo8mGnasyC9MkIt00zYq7oAoF
R7M5J+8JdnZ23lZx1U14c653IUiMa3Kieatkp/yuxU4IlH7rYLFsO8SnEc9e
gBB8npR0GbG86QSFAXO94isHafkXeVRrWg==\
\>"]]}], "}"}]], "Output",
 CellChangeTimes->{3.602229278545578*^9, 3.6022298311451874`*^9, 
  3.602229993375656*^9, 3.6022314427916718`*^9, 3.602231749384445*^9, 
  3.6022319735270233`*^9, 3.602239411661789*^9, 3.602239461316086*^9, 
  3.602239513703781*^9, 3.6022395737926483`*^9, 3.602239620927414*^9, 
  3.602239654653*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"funcs", "[", 
  RowBox[{"[", 
   RowBox[{"1", ",", "2"}], "]"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\<\"r/R\"\>", ",", "\<\" shift\"\>"}], "}"}]}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", 
    FractionBox["1", "GoldenRatio"]}], ",", 
   RowBox[{"Axes", "\[Rule]", "True"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\<\"r/R\"\>", ",", "\<\" shift\"\>"}], "}"}]}], ",", 
   RowBox[{"AxesOrigin", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0.`", ",", "0.`"}], "}"}]}], ",", 
   RowBox[{"Method", "\[Rule]", 
    RowBox[{"{", "}"}]}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", "\<\" shift(r/R)\"\>"}], ",", 
   RowBox[{"PlotRangeClipping", "\[Rule]", "True"}]}], "}"}]], "Output",
 CellChangeTimes->{3.602231777699875*^9, 3.602239414335617*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"grs", "=", 
  RowBox[{"ListPlot", "[", 
   RowBox[{
    RowBox[{"Sort", "/@", 
     RowBox[{"ExtractList", "/@", "funcs"}]}], ",", 
    RowBox[{"PlotMarkers", "\[Rule]", "Automatic"}], ",", 
    RowBox[{"PlotLegends", "\[Rule]", 
     RowBox[{"PointLegend", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "\"\<Pressure gradient\>\"", ",", "\"\<Constant force\>\"", ",", 
         "\"\<Centrifugal force\>\""}], "}"}], ",", 
       RowBox[{"LegendFunction", "\[Rule]", "\"\<Frame\>\""}], ",", 
       RowBox[{"LegendLabel", "\[Rule]", "\"\<Forcings:\>\""}]}], "]"}]}], 
    ",", 
    RowBox[{"AxesOrigin", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}]}], ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "1"}], "}"}], ",", "All"}], "}"}]}], ",", 
    RowBox[{"Sequence", "@@", 
     RowBox[{"funcs", "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", "2"}], "]"}], "]"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.6022305148307343`*^9, 3.6022305507516327`*^9}, {
  3.602230604092453*^9, 3.602230651286789*^9}, {3.602230959632492*^9, 
  3.6022309672301483`*^9}, {3.6022310955494843`*^9, 3.602231167362961*^9}, {
  3.602231309360031*^9, 3.6022313851451874`*^9}, {3.6022317912457733`*^9, 
  3.6022318389264374`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"ExtractList", "[", 
      RowBox[{"funcs", "[", 
       RowBox[{"[", "1", "]"}], "]"}], "]"}], ",", 
     RowBox[{"PlotMarkers", "\[Rule]", 
      RowBox[{"{", "\[FilledSquare]", "}"}]}], ",", 
     RowBox[{"PlotLabel", "\[Rule]", "\"\<Pressure gradient\>\""}]}], "]"}], 
   ",", 
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"ExtractList", "[", 
      RowBox[{"funcs", "[", 
       RowBox[{"[", "2", "]"}], "]"}], "]"}], ",", 
     RowBox[{"PlotLabel", "\[Rule]", "\"\<Constant force\>\""}]}], "]"}], ",", 
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"ExtractList", "[", 
      RowBox[{"funcs", "[", 
       RowBox[{"[", "3", "]"}], "]"}], "]"}], ",", 
     RowBox[{"PlotMarkers", "\[Rule]", 
      RowBox[{"{", "\[FilledDiamond]", "}"}]}], ",", 
     RowBox[{"PlotLabel", "\[Rule]", "\"\<Centrifugal force\>\""}]}], "]"}]}],
   "}"}]], "Input",
 CellChangeTimes->{{3.602229319237961*^9, 3.6022293265201874`*^9}, {
  3.6022294636940155`*^9, 3.6022294648278046`*^9}, {3.602230304507492*^9, 
  3.602230312866867*^9}, {3.6022303519059296`*^9, 3.6022303851490936`*^9}, {
  3.6022311957213593`*^9, 3.6022312114039764`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{"\"\<d:\\\\psik@200.eps\>\"", ",", "grs"}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.6017512468048983`*^9, 3.601751293535367*^9}, {
  3.602231388031906*^9, 3.60223139215007*^9}, {3.60223186086882*^9, 
  3.6022318621627655`*^9}, {3.602231996779953*^9, 3.6022319975113983`*^9}, {
  3.6022394266901093`*^9, 3.602239433630539*^9}, {3.6022394761832733`*^9, 
  3.602239483864914*^9}, {3.6022395229655*^9, 3.6022395232965546`*^9}, {
  3.6022395983541718`*^9, 3.60223962708757*^9}, {3.6022396631627655`*^9, 
  3.6022396634020233`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"funcs", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\n", 
 RowBox[{"Block", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"allbut", "=", 
     RowBox[{"GetResults", "[", 
      RowBox[{
       RowBox[{"{", "}"}], ",", "False"}], "]"}]}], "}"}], ",", "\n", " ", 
   RowBox[{
    RowBox[{"numpar", "=", 
     RowBox[{"First", "[", 
      RowBox[{"Flatten", "[", 
       RowBox[{"Position", "[", 
        RowBox[{"fields", ",", "\"\<r/R\>\""}], "]"}], "]"}], "]"}]}], ";", 
    "\n", " ", 
    RowBox[{"{", 
     RowBox[{"\"\<All such parameters=\>\"", ",", 
      RowBox[{"PopupView", "[", 
       RowBox[{"Union", "[", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{
           "#1", "\[LeftDoubleBracket]", "numpar", "\[RightDoubleBracket]"}], 
           "&"}], ")"}], "/@", "allbut"}], "]"}], "]"}]}], "}"}], ";", "\n", 
    " ", 
    RowBox[{"Manipulate", "[", "\n", "  ", 
     RowBox[{
      RowBox[{"TableForm", "[", " ", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"res", "=", 
            RowBox[{"Reap", "[", 
             RowBox[{
              RowBox[{"CheckboxBar", "[", 
               RowBox[{
                RowBox[{"Dynamic", "[", "funcs", "]"}], ",", 
                RowBox[{"Thread", "[", 
                 RowBox[{
                  RowBox[{"ShowDependanceMod", "[", 
                   RowBox[{"\"\<Re\>\"", ",", "allfuncs", ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"\"\<F(r)\>\"", "\[Rule]", "Fr"}], ",", 
                    RowBox[{"\"\<r/R\>\"", "\[Rule]", "r"}]}], "}"}]}], "]"}],
                   "\[Rule]", "allfuncs"}], "]"}]}], "]"}], ",", "_"}], 
             "]"}]}], ")"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", 
         RowBox[{"Dynamic", "[", 
          RowBox[{"Show", "[", 
           RowBox[{
            RowBox[{"Insert", "[", 
             RowBox[{
              GraphicsBox[{},
               AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
               Axes->True,
               AxesOrigin->{0, 0},
               ImageSize->{82., Automatic},
               PlotRange->All,
               PlotRangeClipping->True,
               PlotRangePadding->{
                 Scaled[0.02], Automatic},
               ImageCache->GraphicsData["CompressedBitmap", "\<\
eJy9V71u2zAQPsuk5P4uHQykKOAlRZF27MS1QIsMXTJ1NYISyVC0SPMCeQM9
gPsaehk+DMt/UdJRIh0jMiwJ5PG77453x9P3/f3Nz1/7+9vr/e7b3f7Pze31
393X33dqaL0CgCv1/7wD/S7Vq7tdgZRSTyKPt+bxAjoO9mItCDUiZQdc/Trz
LsM8awV8ipeu1V1Ay6woMWMUpJbnnVvKoBVWUt0tJwd7bqHeeKhAA6Ay9zpi
JGNVXpNomVLkptVyTdBoMorOl6lapggATnUOKsml0kjvT+62M/MgDkoLGDjq
NMR7RsY0LtKwFzjlzQBQjoJE2W53bN27QP2rtJrNEaFHx0z4D+ewDi5hC1xE
TOiAScctZL8hm+PNIkdwr2KzM/f/wNWcvhqALTcq/rFXwA5YvNJgozTMeTJ+
6pl4q0P09FikMGZX1tRjMnpts+iBO6/r63lYEmdYd6l9ImJHeD9426VogUG0
78YNdZCapmsdSDiEBesxjNXyRqeLzmYwJ/h2bGPl/W5sY/ABQuJ7puheYyp9
pYj9RAtpZ1ibrIvwejj3oIxhh0EoWWq9iV1rIoGGLG4WlZAxSF3INcPEdOVu
JnO6Zg2LQuPNsmoD2/QJMJfBPl5jzDmTZzK4yT9h0mNkbFE9KsFZi0g+FVdp
S464E8k+048vfZFRpWsqa8dIPKbfXyKisZMGE1hMEByXIqI0ze7d03vtsf1F
rOZsJqixo22mQfFQueeEgYrbTg+QW3oXW72iKjdp+eZcg9UM7DQZdcEZeTtp
gMs7z7I+K4N2UQXPbd7TW1PMJdke5H7UnJAL5pePcUBllWT3zYh+g8LqP68k
jcw=\
\>"]], ",", 
              RowBox[{"ImageSize", "\[Rule]", "Large"}], ",", "2"}], "]"}], 
            ",", "funcs"}], "]"}], "]"}]}], "}"}], "]"}], "\n", "  ", ",", 
      RowBox[{"{", 
       RowBox[{"r", ",", 
        RowBox[{"Union", "[", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
            "#1", "\[LeftDoubleBracket]", "numpar", "\[RightDoubleBracket]"}],
             "&"}], ")"}], "/@", "allbut"}], "]"}], ",", 
        RowBox[{"ControlType", "\[Rule]", "PopupMenu"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"Fr", ",", 
        RowBox[{"{", 
         RowBox[{"\"\<dp\>\"", ",", "\"\<1\>\"", ",", "\"\<r\>\""}], "}"}]}], 
       "}"}]}], "]"}]}]}], "\n", " ", "]"}]}], "Input",
 CellChangeTimes->{{3.5080926324976945`*^9, 3.5080926325006948`*^9}, 
   3.6023881839655*^9}],

Cell[BoxData[
 RowBox[{"grs", "=", 
  RowBox[{"ListPlot", "[", 
   RowBox[{
    RowBox[{"Sort", "/@", 
     RowBox[{"ExtractList", "/@", "funcs"}]}], ",", 
    RowBox[{"PlotMarkers", "\[Rule]", "Automatic"}], ",", 
    RowBox[{"PlotLegends", "\[Rule]", 
     RowBox[{"PointLegend", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "\"\<Pressure gradient\>\"", ",", "\"\<Constant force\>\"", ",", 
         "\"\<Centrifugal force\>\""}], "}"}], ",", 
       RowBox[{"LegendFunction", "\[Rule]", "\"\<Frame\>\""}], ",", 
       RowBox[{"LegendLabel", "\[Rule]", "\"\<Forcings:\>\""}]}], "]"}]}], 
    ",", 
    RowBox[{"AxesOrigin", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}]}], ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "300"}], "}"}], ",", "All"}], "}"}]}], ",", 
    RowBox[{"Sequence", "@@", 
     RowBox[{"funcs", "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", "2"}], "]"}], "]"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.6022305148307343`*^9, 3.6022305507516327`*^9}, {
  3.602230604092453*^9, 3.602230651286789*^9}, {3.602230959632492*^9, 
  3.6022309672301483`*^9}, {3.6022310955494843`*^9, 3.602231167362961*^9}, {
  3.602231309360031*^9, 3.6022313851451874`*^9}, {3.6022317912457733`*^9, 
  3.6022318389264374`*^9}, {3.6024145011803436`*^9, 3.6024145014840546`*^9}, {
  3.602414959741867*^9, 3.6024149607613983`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{"\"\<d:\\\\psiRe@0,05.eps\>\"", ",", "grs"}], "]"}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.6017512468048983`*^9, 3.601751293535367*^9}, {
  3.602231388031906*^9, 3.60223139215007*^9}, {3.60223186086882*^9, 
  3.6022318621627655`*^9}, {3.602231996779953*^9, 3.6022319975113983`*^9}, {
  3.6022394266901093`*^9, 3.602239433630539*^9}, {3.6022394761832733`*^9, 
  3.602239483864914*^9}, {3.6022395229655*^9, 3.6022395232965546`*^9}, {
  3.6022395983541718`*^9, 3.60223962708757*^9}, {3.6022396631627655`*^9, 
  3.6022396634020233`*^9}, {3.6024145176354218`*^9, 3.6024145492252655`*^9}, {
  3.602414598413742*^9, 3.6024145986178436`*^9}, {3.6024146556920624`*^9, 
  3.602414657269211*^9}, {3.6024147570446014`*^9, 3.6024147738033905`*^9}, {
  3.6024148543151093`*^9, 3.6024148561422577`*^9}, {3.602414964054367*^9, 
  3.6024149663971405`*^9}, {3.60241500677507*^9, 3.6024150071959686`*^9}, {
  3.602415037210617*^9, 3.6024150840641327`*^9}, {3.60241512793132*^9, 
  3.6024151704791718`*^9}}],

Cell[BoxData[
 RowBox[{"Block", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"allbut", "=", 
     RowBox[{"GetResults", "[", 
      RowBox[{"{", 
       RowBox[{"\"\<F(r)\>\"", "\[Rule]", "\"\<dp\>\""}], "}"}], "]"}]}], 
    "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"numpar", "=", 
     RowBox[{"First", "[", 
      RowBox[{"Flatten", "[", 
       RowBox[{"Position", "[", 
        RowBox[{"fields", ",", "\"\<Re\>\""}], "]"}], "]"}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"funcs", "=."}], ";", "\[IndentingNewLine]", 
    RowBox[{"DynamicModule", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Relist", "=", 
         RowBox[{"Union", "[", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{
             "#1", "\[LeftDoubleBracket]", "numpar", 
              "\[RightDoubleBracket]"}], "&"}], ")"}], "/@", "allbut"}], 
          "]"}]}], ",", 
        RowBox[{"x", "=", 
         RowBox[{"Graphics", "[", 
          RowBox[{
           RowBox[{"{", "}"}], ",", 
           RowBox[{"ImageSize", "\[Rule]", "100"}], ",", 
           RowBox[{"AspectRatio", "\[Rule]", 
            RowBox[{"1", "/", "GoldenRatio"}]}]}], "]"}]}], ",", "nR", ",", 
        "types", ",", "\[IndentingNewLine]", 
        RowBox[{"g", "=", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"Plot", "[", 
            RowBox[{
             RowBox[{"Sin", "[", 
              RowBox[{"n", " ", "x"}], "]"}], ",", 
             RowBox[{"{", 
              RowBox[{"x", ",", "0", ",", 
               RowBox[{"2", "\[Pi]"}]}], "}"}], ",", 
             RowBox[{"ImageSize", "\[Rule]", "100"}], ",", 
             RowBox[{"Ticks", "\[Rule]", "None"}]}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"n", ",", "3"}], "}"}]}], "]"}]}]}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"PopupView", "[", 
         RowBox[{"Relist", ",", 
          RowBox[{"Dynamic", "[", "nR", "]"}]}], "]"}], ",", 
        RowBox[{"CheckboxBar", "[", 
         RowBox[{
          RowBox[{"Dynamic", "[", "types", "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"\"\<dp\>\"", ",", "\"\<1\>\"", ",", "\"\<epsr\>\""}], 
           "}"}]}], "]"}], ",", 
        RowBox[{"CheckboxBar", "[", 
         RowBox[{
          RowBox[{"Dynamic", "[", "funcs", "]"}], ",", 
          RowBox[{"Thread", "[", 
           RowBox[{
            RowBox[{"ShowDependance", "[", 
             RowBox[{"\"\<r/R\>\"", ",", "allfuncs", ",", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"\"\<F(r)\>\"", "\[Rule]", "\"\<dp\>\""}], ",", 
                RowBox[{"\"\<Re\>\"", "\[Rule]", "100"}]}], "}"}]}], "]"}], 
            "\[Rule]", "allfuncs"}], "]"}]}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Dynamic", "[", 
           RowBox[{
           "Relist", "\[LeftDoubleBracket]", "nR", "\[RightDoubleBracket]"}], 
           "]"}], ",", 
          RowBox[{"Dynamic", "[", "funcs", "]"}]}], "}"}]}], "}"}]}], 
     "\[IndentingNewLine]", "]"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5058028235625*^9, 3.505802826921875*^9}, {
   3.50580291153125*^9, 3.505802918640625*^9}, {3.50580351921875*^9, 
   3.50580354615625*^9}, {3.505803597234375*^9, 3.5058036003125*^9}, {
   3.505803636015625*^9, 3.505803655265625*^9}, 3.505803689578125*^9, 
   3.50580373596875*^9, {3.505803793296875*^9, 3.505803809734375*^9}, {
   3.505803850140625*^9, 3.505803854390625*^9}, {3.505803923015625*^9, 
   3.5058039655*^9}, {3.50580409915625*^9, 3.505804107234375*^9}, {
   3.505804293765625*^9, 3.505804312*^9}, {3.506063072078125*^9, 
   3.50606310203125*^9}, {3.506063157046875*^9, 3.506063234046875*^9}, 
   3.506063604*^9, {3.506063636234375*^9, 3.506063657375*^9}, {
   3.506064574578125*^9, 3.506064604640625*^9}, {3.506064811578125*^9, 
   3.506064830890625*^9}, {3.50606534446875*^9, 3.50606538465625*^9}, {
   3.50606551015625*^9, 3.506065543078125*^9}}],

Cell[BoxData[
 RowBox[{"ShowDependance", "[", 
  RowBox[{"\"\<Re\>\"", ",", "allfuncs", ",", 
   RowBox[{"{", 
    RowBox[{"\"\<F(r)\>\"", "\[Rule]", "\"\<1\>\""}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.505798247421875*^9, 3.5057982515625*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ShowDependance", "[", 
  RowBox[{"\"\<Nxz\>\"", ",", "allfuncs"}], "]"}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"All data matches (\"\>", "\[InvisibleSpace]", "True", 
   "\[InvisibleSpace]", "\<\")\"\>", "\[InvisibleSpace]", "\<\":\"\>"}],
  SequenceForm["All data matches (", True, ")", ":"],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.445944053915*^9, {3.448959771796875*^9, 3.44895978165625*^9}, 
   3.4504317245625*^9, 3.45171737590625*^9, 3.451887211328125*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"All such parameters=\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
    "10", ",", "20", ",", "30", ",", "40", ",", "50", ",", "60", ",", "70", 
     ",", "80", ",", "90", ",", "100", ",", "110", ",", "128", ",", "256"}], 
    "}"}]}],
  SequenceForm[
  "All such parameters=", {10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 128, 
   256}],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.445944053915*^9, {3.448959771796875*^9, 3.44895978165625*^9}, 
   3.4504317245625*^9, 3.45171737590625*^9, 3.451887211328125*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"Re\"\>", ",", "\<\"r/R\"\>", ",", "\<\"gamma\"\>", 
   ",", "\<\"F(r)\"\>", ",", "\<\"Coriolis\"\>", ",", "\<\"comment\"\>"}], 
  "}"}]], "Print",
 CellChangeTimes->{
  3.445944053915*^9, {3.448959771796875*^9, 3.44895978165625*^9}, 
   3.4504317245625*^9, 3.45171737590625*^9, 3.451887211328125*^9}],

Cell[BoxData["\<\"Plots can be shown for parameters:\"\>"], "Print",
 CellChangeTimes->{
  3.445944053915*^9, {3.448959771796875*^9, 3.44895978165625*^9}, 
   3.4504317245625*^9, 3.45171737590625*^9, 3.451887211328125*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\:2116\"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\":\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\<\"Re\"\>", "\[Rule]", "1"}], ",", 
     RowBox[{"\<\"r/R\"\>", "\[Rule]", "0.25`"}], ",", 
     RowBox[{"\<\"gamma\"\>", "\[Rule]", "0.0001`"}], ",", 
     RowBox[{"\<\"F(r)\"\>", "\[Rule]", "1"}], ",", 
     RowBox[{"\<\"Coriolis\"\>", "\[Rule]", "0"}], ",", 
     RowBox[{"\<\"comment\"\>", "\[Rule]", "\<\"ErrScale 1e-4\"\>"}]}], "}"}],
    "\[InvisibleSpace]", "\<\", number of points=\"\>", "\[InvisibleSpace]", 
   "11"}],
  SequenceForm[
  "\:2116", 1, ":", {
   "Re" -> 1, "r/R" -> 0.25, "gamma" -> 0.0001, "F(r)" -> 1, "Coriolis" -> 0, 
    "comment" -> "ErrScale 1e-4"}, ", number of points=", 11],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.445944053915*^9, {3.448959771796875*^9, 3.44895978165625*^9}, 
   3.4504317245625*^9, 3.45171737590625*^9, 3.451887211328125*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\:2116\"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\":\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\<\"Re\"\>", "\[Rule]", "150"}], ",", 
     RowBox[{"\<\"r/R\"\>", "\[Rule]", "0.5`"}], ",", 
     RowBox[{"\<\"gamma\"\>", "\[Rule]", "0.0001`"}], ",", 
     RowBox[{"\<\"F(r)\"\>", "\[Rule]", "1"}], ",", 
     RowBox[{"\<\"Coriolis\"\>", "\[Rule]", "0"}], ",", 
     RowBox[{"\<\"comment\"\>", "\[Rule]", "\<\"ErrScale 1e-4\"\>"}]}], "}"}],
    "\[InvisibleSpace]", "\<\", number of points=\"\>", "\[InvisibleSpace]", 
   "2"}],
  SequenceForm[
  "\:2116", 2, ":", {
   "Re" -> 150, "r/R" -> 0.5, "gamma" -> 0.0001, "F(r)" -> 1, "Coriolis" -> 0,
     "comment" -> "ErrScale 1e-4"}, ", number of points=", 2],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.445944053915*^9, {3.448959771796875*^9, 3.44895978165625*^9}, 
   3.4504317245625*^9, 3.45171737590625*^9, 3.451887211328125*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\:2116\"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\":\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\<\"Re\"\>", "\[Rule]", "100"}], ",", 
     RowBox[{"\<\"r/R\"\>", "\[Rule]", "0.5`"}], ",", 
     RowBox[{"\<\"gamma\"\>", "\[Rule]", "0.0001`"}], ",", 
     RowBox[{"\<\"F(r)\"\>", "\[Rule]", "1"}], ",", 
     RowBox[{"\<\"Coriolis\"\>", "\[Rule]", "0"}], ",", 
     RowBox[{"\<\"comment\"\>", "\[Rule]", "\<\"ErrScale 1e-4\"\>"}]}], "}"}],
    "\[InvisibleSpace]", "\<\", number of points=\"\>", "\[InvisibleSpace]", 
   "2"}],
  SequenceForm[
  "\:2116", 3, ":", {
   "Re" -> 100, "r/R" -> 0.5, "gamma" -> 0.0001, "F(r)" -> 1, "Coriolis" -> 0,
     "comment" -> "ErrScale 1e-4"}, ", number of points=", 2],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.445944053915*^9, {3.448959771796875*^9, 3.44895978165625*^9}, 
   3.4504317245625*^9, 3.45171737590625*^9, 3.451887211328125*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\:2116\"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\":\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\<\"Re\"\>", "\[Rule]", "90"}], ",", 
     RowBox[{"\<\"r/R\"\>", "\[Rule]", "0.5`"}], ",", 
     RowBox[{"\<\"gamma\"\>", "\[Rule]", "0.0001`"}], ",", 
     RowBox[{"\<\"F(r)\"\>", "\[Rule]", "1"}], ",", 
     RowBox[{"\<\"Coriolis\"\>", "\[Rule]", "0"}], ",", 
     RowBox[{"\<\"comment\"\>", "\[Rule]", "\<\"ErrScale 1e-4\"\>"}]}], "}"}],
    "\[InvisibleSpace]", "\<\", number of points=\"\>", "\[InvisibleSpace]", 
   "2"}],
  SequenceForm[
  "\:2116", 4, ":", {
   "Re" -> 90, "r/R" -> 0.5, "gamma" -> 0.0001, "F(r)" -> 1, "Coriolis" -> 0, 
    "comment" -> "ErrScale 1e-4"}, ", number of points=", 2],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.445944053915*^9, {3.448959771796875*^9, 3.44895978165625*^9}, 
   3.4504317245625*^9, 3.45171737590625*^9, 3.451887211328125*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\:2116\"\>", "\[InvisibleSpace]", "5", 
   "\[InvisibleSpace]", "\<\":\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\<\"Re\"\>", "\[Rule]", "80"}], ",", 
     RowBox[{"\<\"r/R\"\>", "\[Rule]", "0.5`"}], ",", 
     RowBox[{"\<\"gamma\"\>", "\[Rule]", "0.0001`"}], ",", 
     RowBox[{"\<\"F(r)\"\>", "\[Rule]", "1"}], ",", 
     RowBox[{"\<\"Coriolis\"\>", "\[Rule]", "0"}], ",", 
     RowBox[{"\<\"comment\"\>", "\[Rule]", "\<\"ErrScale 1e-4\"\>"}]}], "}"}],
    "\[InvisibleSpace]", "\<\", number of points=\"\>", "\[InvisibleSpace]", 
   "2"}],
  SequenceForm[
  "\:2116", 5, ":", {
   "Re" -> 80, "r/R" -> 0.5, "gamma" -> 0.0001, "F(r)" -> 1, "Coriolis" -> 0, 
    "comment" -> "ErrScale 1e-4"}, ", number of points=", 2],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.445944053915*^9, {3.448959771796875*^9, 3.44895978165625*^9}, 
   3.4504317245625*^9, 3.45171737590625*^9, 3.45188721134375*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\:2116\"\>", "\[InvisibleSpace]", "6", 
   "\[InvisibleSpace]", "\<\":\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\<\"Re\"\>", "\[Rule]", "10"}], ",", 
     RowBox[{"\<\"r/R\"\>", "\[Rule]", "0.05`"}], ",", 
     RowBox[{"\<\"gamma\"\>", "\[Rule]", "0.0001`"}], ",", 
     RowBox[{"\<\"F(r)\"\>", "\[Rule]", "1"}], ",", 
     RowBox[{"\<\"Coriolis\"\>", "\[Rule]", "0"}], ",", 
     RowBox[{"\<\"comment\"\>", "\[Rule]", "\<\"ErrScale 1e-4\"\>"}]}], "}"}],
    "\[InvisibleSpace]", "\<\", number of points=\"\>", "\[InvisibleSpace]", 
   "2"}],
  SequenceForm[
  "\:2116", 6, ":", {
   "Re" -> 10, "r/R" -> 0.05, "gamma" -> 0.0001, "F(r)" -> 1, "Coriolis" -> 0,
     "comment" -> "ErrScale 1e-4"}, ", number of points=", 2],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.445944053915*^9, {3.448959771796875*^9, 3.44895978165625*^9}, 
   3.4504317245625*^9, 3.45171737590625*^9, 3.45188721134375*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\:2116\"\>", "\[InvisibleSpace]", "7", 
   "\[InvisibleSpace]", "\<\":\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\<\"Re\"\>", "\[Rule]", "70"}], ",", 
     RowBox[{"\<\"r/R\"\>", "\[Rule]", "0.1`"}], ",", 
     RowBox[{"\<\"gamma\"\>", "\[Rule]", "0.0001`"}], ",", 
     RowBox[{"\<\"F(r)\"\>", "\[Rule]", "1"}], ",", 
     RowBox[{"\<\"Coriolis\"\>", "\[Rule]", "0"}], ",", 
     RowBox[{"\<\"comment\"\>", "\[Rule]", "\<\"ErrScale 1e-4\"\>"}]}], "}"}],
    "\[InvisibleSpace]", "\<\", number of points=\"\>", "\[InvisibleSpace]", 
   "2"}],
  SequenceForm[
  "\:2116", 7, ":", {
   "Re" -> 70, "r/R" -> 0.1, "gamma" -> 0.0001, "F(r)" -> 1, "Coriolis" -> 0, 
    "comment" -> "ErrScale 1e-4"}, ", number of points=", 2],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.445944053915*^9, {3.448959771796875*^9, 3.44895978165625*^9}, 
   3.4504317245625*^9, 3.45171737590625*^9, 3.45188721140625*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\:2116\"\>", "\[InvisibleSpace]", "8", 
   "\[InvisibleSpace]", "\<\":\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\<\"Re\"\>", "\[Rule]", "70"}], ",", 
     RowBox[{"\<\"r/R\"\>", "\[Rule]", "0"}], ",", 
     RowBox[{"\<\"gamma\"\>", "\[Rule]", "0.0001`"}], ",", 
     RowBox[{"\<\"F(r)\"\>", "\[Rule]", "1"}], ",", 
     RowBox[{"\<\"Coriolis\"\>", "\[Rule]", "0"}], ",", 
     RowBox[{"\<\"comment\"\>", "\[Rule]", "\<\"ErrScale 1e-4\"\>"}]}], "}"}],
    "\[InvisibleSpace]", "\<\", number of points=\"\>", "\[InvisibleSpace]", 
   "2"}],
  SequenceForm[
  "\:2116", 8, ":", {
   "Re" -> 70, "r/R" -> 0, "gamma" -> 0.0001, "F(r)" -> 1, "Coriolis" -> 0, 
    "comment" -> "ErrScale 1e-4"}, ", number of points=", 2],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.445944053915*^9, {3.448959771796875*^9, 3.44895978165625*^9}, 
   3.4504317245625*^9, 3.45171737590625*^9, 3.4518872114375*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\:2116\"\>", "\[InvisibleSpace]", "9", 
   "\[InvisibleSpace]", "\<\":\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\<\"Re\"\>", "\[Rule]", "40"}], ",", 
     RowBox[{"\<\"r/R\"\>", "\[Rule]", "0.2`"}], ",", 
     RowBox[{"\<\"gamma\"\>", "\[Rule]", "0.0001`"}], ",", 
     RowBox[{"\<\"F(r)\"\>", "\[Rule]", "1"}], ",", 
     RowBox[{"\<\"Coriolis\"\>", "\[Rule]", "0"}], ",", 
     RowBox[{"\<\"comment\"\>", "\[Rule]", "\<\"ErrScale 1e-4\"\>"}]}], "}"}],
    "\[InvisibleSpace]", "\<\", number of points=\"\>", "\[InvisibleSpace]", 
   "2"}],
  SequenceForm[
  "\:2116", 9, ":", {
   "Re" -> 40, "r/R" -> 0.2, "gamma" -> 0.0001, "F(r)" -> 1, "Coriolis" -> 0, 
    "comment" -> "ErrScale 1e-4"}, ", number of points=", 2],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.445944053915*^9, {3.448959771796875*^9, 3.44895978165625*^9}, 
   3.4504317245625*^9, 3.45171737590625*^9, 3.451887211453125*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\:2116\"\>", "\[InvisibleSpace]", "10", 
   "\[InvisibleSpace]", "\<\":\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\<\"Re\"\>", "\[Rule]", "40"}], ",", 
     RowBox[{"\<\"r/R\"\>", "\[Rule]", "0.1`"}], ",", 
     RowBox[{"\<\"gamma\"\>", "\[Rule]", "0.0001`"}], ",", 
     RowBox[{"\<\"F(r)\"\>", "\[Rule]", "1"}], ",", 
     RowBox[{"\<\"Coriolis\"\>", "\[Rule]", "0"}], ",", 
     RowBox[{"\<\"comment\"\>", "\[Rule]", "\<\"ErrScale 1e-4\"\>"}]}], "}"}],
    "\[InvisibleSpace]", "\<\", number of points=\"\>", "\[InvisibleSpace]", 
   "2"}],
  SequenceForm[
  "\:2116", 10, ":", {
   "Re" -> 40, "r/R" -> 0.1, "gamma" -> 0.0001, "F(r)" -> 1, "Coriolis" -> 0, 
    "comment" -> "ErrScale 1e-4"}, ", number of points=", 2],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.445944053915*^9, {3.448959771796875*^9, 3.44895978165625*^9}, 
   3.4504317245625*^9, 3.45171737590625*^9, 3.45188721146875*^9}],

Cell[BoxData["\<\"So constant parameters are:\"\>"], "Print",
 CellChangeTimes->{
  3.445944053915*^9, {3.448959771796875*^9, 3.44895978165625*^9}, 
   3.4504317245625*^9, 3.45171737590625*^9, 3.45188721484375*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\\t\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\<\"Re\"\>", "\[Rule]", "1"}], ",", 
     RowBox[{"\<\"r/R\"\>", "\[Rule]", "0.25`"}], ",", 
     RowBox[{"\<\"gamma\"\>", "\[Rule]", "0.0001`"}], ",", 
     RowBox[{"\<\"F(r)\"\>", "\[Rule]", "1"}], ",", 
     RowBox[{"\<\"Coriolis\"\>", "\[Rule]", "0"}], ",", 
     RowBox[{"\<\"comment\"\>", "\[Rule]", "\<\"ErrScale 1e-4\"\>"}]}], 
    "}"}]}],
  SequenceForm[
  "\t", {"Re" -> 1, "r/R" -> 0.25, "gamma" -> 0.0001, "F(r)" -> 1, "Coriolis" -> 
    0, "comment" -> "ErrScale 1e-4"}],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.445944053915*^9, {3.448959771796875*^9, 3.44895978165625*^9}, 
   3.4504317245625*^9, 3.45171737590625*^9, 3.451887214859375*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   GraphicsBox[
    {Hue[0.67, 0.6, 0.6], 
     PointBox[{{10., -0.09455196380954328}, {20., -0.09454323524797192}, {
      30., -0.09462759093066726}, {40., -0.0941066842490285}, {
      50., -0.09430267685248334}, {60., -0.09391714007725102}, {
      70., -0.0941415180000455}, {80., -0.09422815671413692}, {
      90., -0.09500984811222464}, {100., -0.09420042275248747}, {
      110., -0.09397521304740349}}], {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesLabel->{
      FormBox["\"Nxz\"", TraditionalForm], 
      FormBox["\" shift\"", TraditionalForm]},
    PlotLabel->FormBox["\" shift(Nxz)\"", TraditionalForm],
    PlotRangeClipping->True,
    ImageCache->GraphicsData["CompressedBitmap", "\<\
eJzdWr1vHEUUH9+e7bPNnR38kUQpsGwBHT2bIEJCwEJKBwqi4hSxSgoTFAcJ
0VhCprItbYeQKIF/gGgpKWigokXaAol/gnKZjzcz782+/Yj31o5iybd3M2/n
ff/mzcfd6ZMHn+1Pnzy8P91+//H0iwcP7x9sv/fosWyK5oQQT+X/4bZQ3wv5
FT6eiqIoVCfzuKEfi6LIUxEnmf6l/rNE6L84zcUl3RK5NiHpBkGbolvTbUvy
MxdpLCyxyJgxV3XLyI8ZpyIv03FsdrHkIyq5ooPvWRKLNC8Mo2XTBUxyKV2S
NZNDlyJXjBnyif4xAZW9qgwp17ZjVHkTtMSGG+jPBc3YyQsjyzYrJ9NVR14U
mUi0DPIpjFwMeZVaLbmBWjGypaZAnjK2qFRJmxvI1HeG3EUbxIbtZkhFlT4c
LdMG+lwHjlkiR0C6cFZxBld0NhUgF5r8A2SaDU8+G/9YfQxT4YKTC15rbeyc
Klqie+jvvnKoDZC9DDQ5JBmOsloQ48EJwmqIaLX0HGjVABkg8WuGwkA2MDuu
7vrQtH31049/FW+/9f13pye/ix0nDzjUpMXAYa0SD0RVJrKxKY0ubakRZ071
zDWy/efeRz8rtv/duf0D6LGm2aYoNoyZrUNtYPsA92AkaTPJVdlYXFa/jxTT
ke5ZoeNCAORp6gMFgZm1s41+9QvUucqoM2TaopZtXd6d9Xgvih5LpVDy4eJd
bkI4kb9TALY8zyHkEhUGNQG81bLtcku6Tf05BonlfwxI5ST2OKIkjmGqUslh
My5OIfY5gb92xjJJrV62UY6zYAnpPFAjuBcBczwMDV0bINtStb1qIOg45HjS
eZiWHEYQJhhNPRLwFadxSIzVNhEYlJDl4pULVJBsUT/m2bkqqulzMCU5JyDc
gJOmXIbWSIOcrf5MCblYLnsLXx2Y0VbYPjyNCI2vxjSR/r3gaWhBqYfU8gVG
4qotw3/C9pFaw8pEa0kM9wKSg8OfQJJqS2ywfZx0xp20EmTKt07Bs1FZBOHS
xUkW1nHl+qtGmhGYEufMPIRkOc9QkiRZYx6hdJsRUPQwzExBpboQVd7hQtRg
MC3oDs8RZShIVE/OtPY7vDDkYd6rEXrvzz/+/e3R5798+mv2d2jWalzaOCsu
YcB23rcSctjYGyKV15+dEGnSCpFufaljWJyeHFtE8iWLN0oNUlej0bgJjUh8
Wn9EiL19d4AyTsBmGWDBFSZqllH4S0o9PJC/6slVlyZvCU7PO5BFJKQHTNu5
lkedxDlXlIokTRZs583TvRMjlDhtC0frneAobBs+OxZNzopFfvvDw1OLOq0r
DjGVkQsZVCydCYdaVkUtA7af9dMOQjhbUyQhauwiXLOwmTSOSaCxhvxcQGoY
1roRpJsPAJ9uHzBGudkXXoVFMa4K9BYHB1d7jEduXgCEUbiymw1ctuwxQbHF
2Pn1tlB35hWhyzq0ueirrilj2UCmHtBv6EDE7w0NGCtOGSsG0vW1VvQ7SXQd
3xMqhssjH4XqtaEDixtMDN2tBpvrjHtryDeZ0XcZHzQPQTgehJC3xYx5UD3m
RZd89Yconabt2e2GwbvPS7X3TGvS1vti3dafzLseCfeZ2L/WFgm7rUlbWmmf
Sa1Awt52ztoF2j6T19d6QkgmCZtqxjcYF3/SSE7s3UxOlMfkLSvausspLR6v
6MclkSvocCa0xlKeA8+qrM/sQYhfl8Vp6jx/hIdc81Oi9QMbwujM2qKXofuW
jhacEXccDd9gcWkf3Ocgx68wWqagIxht7DeJVKI6EEmpvHYmAVq7yBUoQr8x
w+5YOEdnzQu6DdfpuTouA0F27Rso79wEUDGFAY4fNcfIxzA6xp11huNtQ37P
dqHZaNORp66Cu2XITWG+qrvi4NYT3vPFU22Gp11JZOamcelCQiko8JjkxBtu
cVjL8if80v7qbx45Tb4D8yFR5yrRlE6BCTqFtfVsHpx7xgG4+T4tErDkjjFN
24pRs3SQwfMcwHSQZVmJJ6hlHlvOC8ayM1DHxI/FbHotAXJQGT/1V+ZsoOBr
IVgUv1rwE9Q72DlXkF/9xZS+tXEIoxNX0JM3wzZitIlaaENmZSsNnpH9/Q6P
62Vt8jyr1mY9WOLY6ddoQw2Ir5tk1AJB5FZqtSoKcvAvh8kRCz+Xg//odTyD
ByMya7mo9WIYKSZOM5IzTrPy/QMoGB0aOClKaXOH8agpvpaDQMKuI6A1QMGU
khtBXsgxZkPx6F07cdD50wixQGLHxIO+AGKZYp+5fBT0EgWOgZecX+MQ550p
dCJwAY/BaBji9BAwSr2eZnS9a/GLLDFA6mWUZzbSYKKis5yY+x9cszbT\
\>"]], ",", 
   GraphicsBox[
    {Hue[0.67, 0.6, 0.6], 
     PointBox[{{10., 0.0035088240551494963`}, {20., 0.0035180753786253098`}, {
      30., 0.003514120809557451}, {40., 0.0035116167028099964`}, {50., 
      0.0035082423201510285`}, {60., 0.0035094779326659453`}, {70., 
      0.003508217258053333}, {80., 0.0035079219880433327`}, {90., 
      0.0035085099167166665`}, {100., 0.003507736234859999}, {110., 
      0.0035085095710440015`}}], {{
       LineBox[{{10., 0.003510824055149496}, {10., 0.0035068240551494965`}}], 
       LineBox[{
        Offset[{1.5, 0}, {10., 0.003510824055149496}], 
         Offset[{-1.5, 0}, {10., 0.003510824055149496}]}], 
       LineBox[{
        Offset[{1.5, 0}, {10., 0.0035068240551494965`}], 
         Offset[{-1.5, 0}, {10., 0.0035068240551494965`}]}]}, {
       LineBox[{{20., 0.00351827537862531}, {20., 0.0035178753786253097`}}], 
       LineBox[{
        Offset[{1.5, 0}, {20., 0.00351827537862531}], 
         Offset[{-1.5, 0}, {20., 0.00351827537862531}]}], 
       LineBox[{
        Offset[{1.5, 0}, {20., 0.0035178753786253097`}], 
         Offset[{-1.5, 0}, {20., 0.0035178753786253097`}]}]}, {
       LineBox[{{30., 0.003518120809557451}, {30., 0.003510120809557451}}], 
       LineBox[{
        Offset[{1.5, 0}, {30., 0.003518120809557451}], 
         Offset[{-1.5, 0}, {30., 0.003518120809557451}]}], 
       LineBox[{
        Offset[{1.5, 0}, {30., 0.003510120809557451}], 
         Offset[{-1.5, 0}, {30., 0.003510120809557451}]}]}, {
       LineBox[{{40., 0.0035176167028099963`}, {40., 
        0.0035056167028099964`}}], 
       LineBox[{
        Offset[{1.5, 0}, {40., 0.0035176167028099963`}], 
         Offset[{-1.5, 0}, {40., 0.0035176167028099963`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {40., 0.0035056167028099964`}], 
         Offset[{-1.5, 0}, {40., 0.0035056167028099964`}]}]}, {
       LineBox[{{50., 0.0035172423201510284`}, {50., 
        0.0034992423201510286`}}], 
       LineBox[{
        Offset[{1.5, 0}, {50., 0.0035172423201510284`}], 
         Offset[{-1.5, 0}, {50., 0.0035172423201510284`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {50., 0.0034992423201510286`}], 
         Offset[{-1.5, 0}, {50., 0.0034992423201510286`}]}]}, {
       LineBox[{{60., 0.0035107779326659454`}, {60., 
        0.0035081779326659453`}}], 
       LineBox[{
        Offset[{1.5, 0}, {60., 0.0035107779326659454`}], 
         Offset[{-1.5, 0}, {60., 0.0035107779326659454`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {60., 0.0035081779326659453`}], 
         Offset[{-1.5, 0}, {60., 0.0035081779326659453`}]}]}, {
       LineBox[{{70., 0.0035082772580533332`}, {70., 0.003508157258053333}}], 
       LineBox[{
        Offset[{1.5, 0}, {70., 0.0035082772580533332`}], 
         Offset[{-1.5, 0}, {70., 0.0035082772580533332`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {70., 0.003508157258053333}], 
         Offset[{-1.5, 0}, {70., 0.003508157258053333}]}]}, {
       LineBox[{{80., 0.0035079819880433328`}, {80., 
        0.0035078619880433326`}}], 
       LineBox[{
        Offset[{1.5, 0}, {80., 0.0035079819880433328`}], 
         Offset[{-1.5, 0}, {80., 0.0035079819880433328`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {80., 0.0035078619880433326`}], 
         Offset[{-1.5, 0}, {80., 0.0035078619880433326`}]}]}, {
       LineBox[{{90., 0.0035085299167166664`}, {90., 
        0.0035084899167166666`}}], 
       LineBox[{
        Offset[{1.5, 0}, {90., 0.0035085299167166664`}], 
         Offset[{-1.5, 0}, {90., 0.0035085299167166664`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {90., 0.0035084899167166666`}], 
         Offset[{-1.5, 0}, {90., 0.0035084899167166666`}]}]}, {
       LineBox[{{100., 0.003507746234859999}, {100., 0.003507726234859999}}], 
       LineBox[{
        Offset[{1.5, 0}, {100., 0.003507746234859999}], 
         Offset[{-1.5, 0}, {100., 0.003507746234859999}]}], 
       LineBox[{
        Offset[{1.5, 0}, {100., 0.003507726234859999}], 
         Offset[{-1.5, 0}, {100., 0.003507726234859999}]}]}, {
       LineBox[{{110., 0.0035085595710440017`}, {110., 
        0.0035084595710440014`}}], 
       LineBox[{
        Offset[{1.5, 0}, {110., 0.0035085595710440017`}], 
         Offset[{-1.5, 0}, {110., 0.0035085595710440017`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {110., 0.0035084595710440014`}], 
         Offset[{-1.5, 0}, {110., 0.0035084595710440014`}]}]}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesLabel->{
      FormBox["\"Nxz\"", TraditionalForm], 
      FormBox["\" mvx\"", TraditionalForm]},
    PlotLabel->FormBox["\" mvx(Nxz)\"", TraditionalForm],
    PlotRangeClipping->True], ",", 
   GraphicsBox[
    {Hue[0.67, 0.6, 0.6], 
     PointBox[{{10., 1.0103331979999983`}, {20., 1.0044298938995941`}, {30., 
      1.0048372732502633`}, {40., 1.0033991597070302`}, {50., 
      1.0034474022523765`}, {60., 1.0031225797966592`}, {70., 
      1.0030898598216214`}, {80., 1.003015208488561}, {90., 
      1.0029781304505179`}, {100., 1.0029393679638947`}, {110., 
      1.0029779032476664`}}], {{
       LineBox[{{10., 1.0103331980000283`}, {10., 1.0103331979999683`}}], 
       LineBox[{
        Offset[{1.5, 0}, {10., 1.0103331980000283`}], 
         Offset[{-1.5, 0}, {10., 1.0103331980000283`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {10., 1.0103331979999683`}], 
         Offset[{-1.5, 0}, {10., 1.0103331979999683`}]}]}, {
       LineBox[{{20., 1.0044318938995942`}, {20., 1.004427893899594}}], 
       LineBox[{
        Offset[{1.5, 0}, {20., 1.0044318938995942`}], 
         Offset[{-1.5, 0}, {20., 1.0044318938995942`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {20., 1.004427893899594}], 
         Offset[{-1.5, 0}, {20., 1.004427893899594}]}]}, {
       LineBox[{{30., 1.0048422732502633`}, {30., 1.0048322732502633`}}], 
       LineBox[{
        Offset[{1.5, 0}, {30., 1.0048422732502633`}], 
         Offset[{-1.5, 0}, {30., 1.0048422732502633`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {30., 1.0048322732502633`}], 
         Offset[{-1.5, 0}, {30., 1.0048322732502633`}]}]}, {
       LineBox[{{40., 1.0033996597070303`}, {40., 1.0033986597070301`}}], 
       LineBox[{
        Offset[{1.5, 0}, {40., 1.0033996597070303`}], 
         Offset[{-1.5, 0}, {40., 1.0033996597070303`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {40., 1.0033986597070301`}], 
         Offset[{-1.5, 0}, {40., 1.0033986597070301`}]}]}, {
       LineBox[{{50., 1.0034474672523765`}, {50., 1.0034473372523764`}}], 
       LineBox[{
        Offset[{1.5, 0}, {50., 1.0034474672523765`}], 
         Offset[{-1.5, 0}, {50., 1.0034474672523765`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {50., 1.0034473372523764`}], 
         Offset[{-1.5, 0}, {50., 1.0034473372523764`}]}]}, {
       LineBox[{{60., 1.0031225997966593`}, {60., 1.003122559796659}}], 
       LineBox[{
        Offset[{1.5, 0}, {60., 1.0031225997966593`}], 
         Offset[{-1.5, 0}, {60., 1.0031225997966593`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {60., 1.003122559796659}], 
         Offset[{-1.5, 0}, {60., 1.003122559796659}]}]}, {
       LineBox[{{70., 1.0030898648216213`}, {70., 1.0030898548216214`}}], 
       LineBox[{
        Offset[{1.5, 0}, {70., 1.0030898648216213`}], 
         Offset[{-1.5, 0}, {70., 1.0030898648216213`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {70., 1.0030898548216214`}], 
         Offset[{-1.5, 0}, {70., 1.0030898548216214`}]}]}, {
       LineBox[{{80., 1.0030152118885611`}, {80., 1.003015205088561}}], 
       LineBox[{
        Offset[{1.5, 0}, {80., 1.0030152118885611`}], 
         Offset[{-1.5, 0}, {80., 1.0030152118885611`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {80., 1.003015205088561}], 
         Offset[{-1.5, 0}, {80., 1.003015205088561}]}]}, {
       LineBox[{{90., 1.002978131150518}, {90., 1.0029781297505178`}}], 
       LineBox[{
        Offset[{1.5, 0}, {90., 1.002978131150518}], 
         Offset[{-1.5, 0}, {90., 1.002978131150518}]}], 
       LineBox[{
        Offset[{1.5, 0}, {90., 1.0029781297505178`}], 
         Offset[{-1.5, 0}, {90., 1.0029781297505178`}]}]}, {
       LineBox[{{100., 1.0029393699638947`}, {100., 1.0029393659638948`}}], 
       LineBox[{
        Offset[{1.5, 0}, {100., 1.0029393699638947`}], 
         Offset[{-1.5, 0}, {100., 1.0029393699638947`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {100., 1.0029393659638948`}], 
         Offset[{-1.5, 0}, {100., 1.0029393659638948`}]}]}, {
       LineBox[{{110., 1.0029781032476663`}, {110., 1.0029777032476666`}}], 
       LineBox[{
        Offset[{1.5, 0}, {110., 1.0029781032476663`}], 
         Offset[{-1.5, 0}, {110., 1.0029781032476663`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {110., 1.0029777032476666`}], 
         Offset[{-1.5, 0}, {110., 1.0029777032476666`}]}]}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesLabel->{
      FormBox["\"Nxz\"", TraditionalForm], 
      FormBox["\" mvy\"", TraditionalForm]},
    PlotLabel->FormBox["\" mvy(Nxz)\"", TraditionalForm],
    PlotRangeClipping->True], ",", 
   GraphicsBox[
    {Hue[0.67, 0.6, 0.6], 
     PointBox[{{10., 0.0021035525701599994`}, {20., 0.0019573507952266663`}, {
      30., 0.0019383457748177442`}, {40., 0.0019266376622371208`}, {50., 
      0.001921258476733333}, {60., 0.0019196557700999998`}, {70., 
      0.0019171228412979547`}, {80., 0.0019189150391330386`}, {90., 
      0.0019173755676520287`}, {100., 0.001917962399319074}, {110., 
      0.0019173747392055441`}}], {{
       LineBox[{{10., 0.002105552570159999}, {10., 0.0021015525701599995`}}], 
       LineBox[{
        Offset[{1.5, 0}, {10., 0.002105552570159999}], 
         Offset[{-1.5, 0}, {10., 0.002105552570159999}]}], 
       LineBox[{
        Offset[{1.5, 0}, {10., 0.0021015525701599995`}], 
         Offset[{-1.5, 0}, {10., 0.0021015525701599995`}]}]}, {
       LineBox[{{20., 0.0019575507952266664`}, {20., 0.001957150795226666}}], 
       LineBox[{
        Offset[{1.5, 0}, {20., 0.0019575507952266664`}], 
         Offset[{-1.5, 0}, {20., 0.0019575507952266664`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {20., 0.001957150795226666}], 
         Offset[{-1.5, 0}, {20., 0.001957150795226666}]}]}, {
       LineBox[{{30., 0.0019393457748177441`}, {30., 
        0.0019373457748177443`}}], 
       LineBox[{
        Offset[{1.5, 0}, {30., 0.0019393457748177441`}], 
         Offset[{-1.5, 0}, {30., 0.0019393457748177441`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {30., 0.0019373457748177443`}], 
         Offset[{-1.5, 0}, {30., 0.0019373457748177443`}]}]}, {
       LineBox[{{40., 0.0019286376622371208`}, {40., 
        0.0019246376622371207`}}], 
       LineBox[{
        Offset[{1.5, 0}, {40., 0.0019286376622371208`}], 
         Offset[{-1.5, 0}, {40., 0.0019286376622371208`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {40., 0.0019246376622371207`}], 
         Offset[{-1.5, 0}, {40., 0.0019246376622371207`}]}]}, {
       LineBox[{{50., 0.001922058476733333}, {50., 0.001920458476733333}}], 
       LineBox[{
        Offset[{1.5, 0}, {50., 0.001922058476733333}], 
         Offset[{-1.5, 0}, {50., 0.001922058476733333}]}], 
       LineBox[{
        Offset[{1.5, 0}, {50., 0.001920458476733333}], 
         Offset[{-1.5, 0}, {50., 0.001920458476733333}]}]}, {
       LineBox[{{60., 0.0019216557700999998`}, {60., 
        0.0019176557700999997`}}], 
       LineBox[{
        Offset[{1.5, 0}, {60., 0.0019216557700999998`}], 
         Offset[{-1.5, 0}, {60., 0.0019216557700999998`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {60., 0.0019176557700999997`}], 
         Offset[{-1.5, 0}, {60., 0.0019176557700999997`}]}]}, {
       LineBox[{{70., 0.0019171628412979547`}, {70., 
        0.0019170828412979548`}}], 
       LineBox[{
        Offset[{1.5, 0}, {70., 0.0019171628412979547`}], 
         Offset[{-1.5, 0}, {70., 0.0019171628412979547`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {70., 0.0019170828412979548`}], 
         Offset[{-1.5, 0}, {70., 0.0019170828412979548`}]}]}, {
       LineBox[{{80., 0.0019189550391330386`}, {80., 
        0.0019188750391330386`}}], 
       LineBox[{
        Offset[{1.5, 0}, {80., 0.0019189550391330386`}], 
         Offset[{-1.5, 0}, {80., 0.0019189550391330386`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {80., 0.0019188750391330386`}], 
         Offset[{-1.5, 0}, {80., 0.0019188750391330386`}]}]}, {
       LineBox[{{90., 0.0019173955676520288`}, {90., 
        0.0019173555676520286`}}], 
       LineBox[{
        Offset[{1.5, 0}, {90., 0.0019173955676520288`}], 
         Offset[{-1.5, 0}, {90., 0.0019173955676520288`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {90., 0.0019173555676520286`}], 
         Offset[{-1.5, 0}, {90., 0.0019173555676520286`}]}]}, {
       LineBox[{{100., 0.0019179703993190739`}, {100., 
        0.001917954399319074}}], 
       LineBox[{
        Offset[{1.5, 0}, {100., 0.0019179703993190739`}], 
         Offset[{-1.5, 0}, {100., 0.0019179703993190739`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {100., 0.001917954399319074}], 
         Offset[{-1.5, 0}, {100., 0.001917954399319074}]}]}, {
       LineBox[{{110., 0.001917414739205544}, {110., 
        0.0019173347392055441`}}], 
       LineBox[{
        Offset[{1.5, 0}, {110., 0.001917414739205544}], 
         Offset[{-1.5, 0}, {110., 0.001917414739205544}]}], 
       LineBox[{
        Offset[{1.5, 0}, {110., 0.0019173347392055441`}], 
         Offset[{-1.5, 0}, {110., 0.0019173347392055441`}]}]}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesLabel->{
      FormBox["\"Nxz\"", TraditionalForm], 
      FormBox["\" mvz\"", TraditionalForm]},
    PlotLabel->FormBox["\" mvz(Nxz)\"", TraditionalForm],
    PlotRangeClipping->True], ",", 
   GraphicsBox[
    {Hue[0.67, 0.6, 0.6], 
     PointBox[{{10., 2.091158112273663*^-6}, {20., 1.8200978352247784`*^-6}, {
      30., 1.7495231112766694`*^-6}, {40., 1.7145140460752171`*^-6}, {50., 
      1.7025727136625448`*^-6}, {60., 1.6947517833527998`*^-6}, {70., 
      1.6901827067771856`*^-6}, {80., 1.6878232858462095`*^-6}, {90., 
      1.6858612834133316`*^-6}, {100., 1.684279075799197*^-6}, {110., 
      1.6858589683257024`*^-6}}], {{
       LineBox[{{10., 2.091558112273663*^-6}, {10., 2.090758112273663*^-6}}], 
       LineBox[{
        Offset[{1.5, 0}, {10., 2.091558112273663*^-6}], 
         Offset[{-1.5, 0}, {10., 2.091558112273663*^-6}]}], 
       LineBox[{
        Offset[{1.5, 0}, {10., 2.090758112273663*^-6}], 
         Offset[{-1.5, 0}, {10., 2.090758112273663*^-6}]}]}, {
       LineBox[{{20., 1.8201378352247785`*^-6}, {20., 
        1.8200578352247784`*^-6}}], 
       LineBox[{
        Offset[{1.5, 0}, {20., 1.8201378352247785`*^-6}], 
         Offset[{-1.5, 0}, {20., 1.8201378352247785`*^-6}]}], 
       LineBox[{
        Offset[{1.5, 0}, {20., 1.8200578352247784`*^-6}], 
         Offset[{-1.5, 0}, {20., 1.8200578352247784`*^-6}]}]}, {
       LineBox[{{30., 1.7500731112766693`*^-6}, {30., 
        1.7489731112766694`*^-6}}], 
       LineBox[{
        Offset[{1.5, 0}, {30., 1.7500731112766693`*^-6}], 
         Offset[{-1.5, 0}, {30., 1.7500731112766693`*^-6}]}], 
       LineBox[{
        Offset[{1.5, 0}, {30., 1.7489731112766694`*^-6}], 
         Offset[{-1.5, 0}, {30., 1.7489731112766694`*^-6}]}]}, {
       LineBox[{{40., 1.7185140460752172`*^-6}, {40., 
        1.710514046075217*^-6}}], 
       LineBox[{
        Offset[{1.5, 0}, {40., 1.7185140460752172`*^-6}], 
         Offset[{-1.5, 0}, {40., 1.7185140460752172`*^-6}]}], 
       LineBox[{
        Offset[{1.5, 0}, {40., 1.710514046075217*^-6}], 
         Offset[{-1.5, 0}, {40., 1.710514046075217*^-6}]}]}, {
       LineBox[{{50., 1.7026327136625447`*^-6}, {50., 
        1.7025127136625448`*^-6}}], 
       LineBox[{
        Offset[{1.5, 0}, {50., 1.7026327136625447`*^-6}], 
         Offset[{-1.5, 0}, {50., 1.7026327136625447`*^-6}]}], 
       LineBox[{
        Offset[{1.5, 0}, {50., 1.7025127136625448`*^-6}], 
         Offset[{-1.5, 0}, {50., 1.7025127136625448`*^-6}]}]}, {
       LineBox[{{60., 1.6953517833527998`*^-6}, {60., 
        1.6941517833527997`*^-6}}], 
       LineBox[{
        Offset[{1.5, 0}, {60., 1.6953517833527998`*^-6}], 
         Offset[{-1.5, 0}, {60., 1.6953517833527998`*^-6}]}], 
       LineBox[{
        Offset[{1.5, 0}, {60., 1.6941517833527997`*^-6}], 
         Offset[{-1.5, 0}, {60., 1.6941517833527997`*^-6}]}]}, {
       LineBox[{{70., 1.6902027067771856`*^-6}, {70., 
        1.6901627067771857`*^-6}}], 
       LineBox[{
        Offset[{1.5, 0}, {70., 1.6902027067771856`*^-6}], 
         Offset[{-1.5, 0}, {70., 1.6902027067771856`*^-6}]}], 
       LineBox[{
        Offset[{1.5, 0}, {70., 1.6901627067771857`*^-6}], 
         Offset[{-1.5, 0}, {70., 1.6901627067771857`*^-6}]}]}, {
       LineBox[{{80., 1.6878532858462094`*^-6}, {80., 
        1.6877932858462095`*^-6}}], 
       LineBox[{
        Offset[{1.5, 0}, {80., 1.6878532858462094`*^-6}], 
         Offset[{-1.5, 0}, {80., 1.6878532858462094`*^-6}]}], 
       LineBox[{
        Offset[{1.5, 0}, {80., 1.6877932858462095`*^-6}], 
         Offset[{-1.5, 0}, {80., 1.6877932858462095`*^-6}]}]}, {
       LineBox[{{90., 1.6858622834133316`*^-6}, {90., 
        1.6858602834133316`*^-6}}], 
       LineBox[{
        Offset[{1.5, 0}, {90., 1.6858622834133316`*^-6}], 
         Offset[{-1.5, 0}, {90., 1.6858622834133316`*^-6}]}], 
       LineBox[{
        Offset[{1.5, 0}, {90., 1.6858602834133316`*^-6}], 
         Offset[{-1.5, 0}, {90., 1.6858602834133316`*^-6}]}]}, {
       LineBox[{{100., 1.6842820757991972`*^-6}, {100., 
        1.684276075799197*^-6}}], 
       LineBox[{
        Offset[{1.5, 0}, {100., 1.6842820757991972`*^-6}], 
         Offset[{-1.5, 0}, {100., 1.6842820757991972`*^-6}]}], 
       LineBox[{
        Offset[{1.5, 0}, {100., 1.684276075799197*^-6}], 
         Offset[{-1.5, 0}, {100., 1.684276075799197*^-6}]}]}, {
       LineBox[{{110., 1.6858689683257025`*^-6}, {110., 
        1.6858489683257024`*^-6}}], 
       LineBox[{
        Offset[{1.5, 0}, {110., 1.6858689683257025`*^-6}], 
         Offset[{-1.5, 0}, {110., 1.6858689683257025`*^-6}]}], 
       LineBox[{
        Offset[{1.5, 0}, {110., 1.6858489683257024`*^-6}], 
         Offset[{-1.5, 0}, {110., 1.6858489683257024`*^-6}]}]}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesLabel->{
      FormBox["\"Nxz\"", TraditionalForm], 
      FormBox["\" Evx\"", TraditionalForm]},
    PlotLabel->FormBox["\" Evx(Nxz)\"", TraditionalForm],
    PlotRangeClipping->True,
    ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztWl1sVEUUnt27u/3b/pjSJx+sGqNoQnzyYZNSa0WQRIMa09ZAcEU34B8G
SyGKxlAVi0BukAS6ifFBSmPQRGO4mki02KDlARFfNLlZiUTti75IjGkE1zsz
Z2bO3Dtzd9vuUh9sst3dM2fm/H9z5s7elx/e/MQz+eEtm/Ldq7fln9u8ZdPz
3fds3RaQnAQh5ETwGukm9HM5+Aj/TpByuUwH8dvd7K2BlH2X5Aoe+0ZfXoGw
v5zrk3ZGcSSNBHzJEI3ytTFaU/DfJ26OCGbiGdZsZZRGtWbOJX6UzyTmBqx5
o6455YPPXiFHXL/MBTXzIRDiB9oVvMrsMETZqWADe5Z9aQOTlakGVhPtem5K
H1iJHZdk/zNMsNQXVg5oQk/DUBx7ueyRAtMheCdcLwO7zawqpYFZdyFfMg4U
Ke4Lq0nM3cBGPxvYZbZBbohhAyux2WPiNdDAnn6Q6BWCFZAtJq9Ih1M+UQpQ
C5XiA2xMjJm9NvER9nChRCanKXmFt3FwbLya7eF416uGqgGyDuDxochwlsWC
mBmcIK1SiJdpbwKtGCC7nQ9xkAYpu9FQko7cz5l2Thw9V+7tGT+8f980UzJM
azTQrrXLucO6RGrtzMxFb8d2j9Kntj79UQMjp1eUSr9d7ustUvI/vSuLBw+6
pwmMffP4Yx9Qunh1XLo0F0BYpXkplYG8jpNyc6D+BN/SmIpiCrIkCD6DyAQd
SdAJCbuZt3I53bOzfxT37T1FdTj+8kufgdoDn58sYbX3FI+cESZ9un3Yu3Kn
UpuZBGof2f/mKf+Rwcljo6+cpOaB79ecmbn4xdZnP370E+8H4UzKemHw4Qmd
9RpmuIvKiWemqAGBBQoTFH4HvJ7HsjLG7uvs4f1+w/r3hMGBYeMm5ZsMtNsY
rUXXHKrSd11VvWiHEckvIIl+4zRyI33bSZXmCnSghZXZamGeDIXguwuY5vs+
uK5AhcG6Nxm84RhoySr57LRGjRa81k1/eWEqcBeln37qyQ/tYlOH3APTlE7T
gmZWtZIXr/V/Yz0e81aIefDKAczLmCsQpjHPwT5Py0RUf85N0DKIqYJO7mwa
lz9Xr3o7yPji3/19xSGpFgcfurDIVJzJzWhlhsXLODS8s+f1KVFBvz647t3G
ubnLZACluo79KUmD7aTZrvHuRQ8xRU0bxA77fIC8tTNf/xSBwxH7NACUkcmJ
c9/lNx5/Y/zwDM1lPINNWJRR0FREjwsYG6PHDu76DN850C4OiAUVXOkU0hGj
VwoosnfhhLTxBOGITBBNCn/nU5pINR1Qu4zuaEUNDM1+CucnWGsTb+om2+fj
inSoGOhiEfegyDgWRUxt+rwU0TwSaq+1FEGNI3y36WRyToNED4FZHhOq5X+M
doZ+uWUeqZExrCPOXqkK7tIaWOWuaA/cLFLY1POmtf5WyHcYpYFSZRMvXRfo
Wgh4kX4SqkC/m1HGiGmhgjqf3/g+mxq8aDMTnonaS4EMMLP/7Nmf6azS0OCx
A4fe+gpm3oIiKUxJ2124PBT4nG6RHaFHF4OJNYLWONTNalBoQl2Z63zMqR3g
xoNcRmALJFBZxXTR8LowWBF/SwC0QhHtdA4LObUE3OqAzDT9asDsQrZo/Axg
iQEXk5lVLXXEWlxdcQgbY0ccvMZMqxW21gj56gqg6TDeydhqKFrDNhXHNQP5
ozzNjtaCXB+YVNWpjlCCVgcwlEujJyOyLmsNefCQRD2OlHYsBbClwUzladXn
t1nE1hDG0tJ8Vf7yufz/oFVX0KpR82g9a1fAKw15REHXCcTAzSEMU/0VSnC5
jS4c2CBNe85/O/vj0MAkPYv88tADR+kzEVH9JpeZnhuZNNROxAsAQlBvRan0
+1+r+umjrPErfb1Fqm416mGQtDtw8cAJz/qiD5Nx+jsGMHUMSmlHiqvbOZqx
1eS57DxyLA5vx0ByBFajLSITUqcWcawyxoZZDHg6ZsfOvXachFnGnyss11zP
ZXF7ssqGsnq4I/m02yOW0C/wFfnVEL92KGDUwsFhZZCT50zDzcyLeLW0vho4
T91qcb8rHbX02oVXag/5lWiRwvrx6xD9emRXjIkyosKR6scA9HMu+tRdMzET
dRhf8TV7oJIyXKrgX40JNrxtQDkirO/EOApe6OXs68UQejDQJdldKXklZ1+D
oZHgjOrSFMXVUY7NrCg8Qg2iDaYJQbH1fjMoa8JASF7MI5eD+vdqfsYiOkLq
girGFFdzEeKb9jROa+FL4eoILxNRJ8Aiz0Oe42MxVsj2kjmF/+LC9dRRyXNZ
kmJkk11GQ+gqEvKautX10HWkWkLbIfV2UNvherDCmZDN8qKSr5aVP19h3ndD
LRGJ7BJG5Zn5VILPrsjwXar+LFNX3qmk/DKtNjFs6xAnNBSVo6DPNbm+M7Rl
Cgdw7cPoqZbwdIu1njLGii5bCHTrcKEZ0I2pGBHbJtfS0l2aEr2bhF+JybqV
xVZVxrdrNHw7wVPC1X4coDRpxeGvFh70um4BMeHeXezL+G4UxzIr45OrHlgd
zYoswAPfxLSeR0KHtglqFxGO1pvAFqDvHyTxL/TGM+g=\
\>"]], ",", 
   GraphicsBox[
    {Hue[0.67, 0.6, 0.6], 
     PointBox[{{10., 0.2727923632059195}, {20., 0.2644175552314485}, {30., 
      0.2620427308108618}, {40., 0.26080213703451144`}, {50., 
      0.2603894367904168}, {60., 0.26011441529848556`}, {70., 
      0.2599611273531352}, {80., 0.259878101095419}, {90., 
      0.25981110488879067`}, {100., 0.25975262177100916`}, {110., 
      0.2598109986346992}}], {{
       LineBox[{{10., 0.2727923632114195}, {10., 0.2727923632004195}}], 
       LineBox[{
        Offset[{1.5, 0}, {10., 0.2727923632114195}], 
         Offset[{-1.5, 0}, {10., 0.2727923632114195}]}], 
       LineBox[{
        Offset[{1.5, 0}, {10., 0.2727923632004195}], 
         Offset[{-1.5, 0}, {10., 0.2727923632004195}]}]}, {
       LineBox[{{20., 0.2644175652314485}, {20., 0.2644175452314485}}], 
       LineBox[{
        Offset[{1.5, 0}, {20., 0.2644175652314485}], 
         Offset[{-1.5, 0}, {20., 0.2644175652314485}]}], 
       LineBox[{
        Offset[{1.5, 0}, {20., 0.2644175452314485}], 
         Offset[{-1.5, 0}, {20., 0.2644175452314485}]}]}, {
       LineBox[{{30., 0.2620447308108618}, {30., 0.2620407308108618}}], 
       LineBox[{
        Offset[{1.5, 0}, {30., 0.2620447308108618}], 
         Offset[{-1.5, 0}, {30., 0.2620447308108618}]}], 
       LineBox[{
        Offset[{1.5, 0}, {30., 0.2620407308108618}], 
         Offset[{-1.5, 0}, {30., 0.2620407308108618}]}]}, {
       LineBox[{{40., 0.26080236703451143`}, {40., 0.26080190703451145`}}], 
       LineBox[{
        Offset[{1.5, 0}, {40., 0.26080236703451143`}], 
         Offset[{-1.5, 0}, {40., 0.26080236703451143`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {40., 0.26080190703451145`}], 
         Offset[{-1.5, 0}, {40., 0.26080190703451145`}]}]}, {
       LineBox[{{50., 0.2603894667904168}, {50., 0.26038940679041683`}}], 
       LineBox[{
        Offset[{1.5, 0}, {50., 0.2603894667904168}], 
         Offset[{-1.5, 0}, {50., 0.2603894667904168}]}], 
       LineBox[{
        Offset[{1.5, 0}, {50., 0.26038940679041683`}], 
         Offset[{-1.5, 0}, {50., 0.26038940679041683`}]}]}, {
       LineBox[{{60., 0.26011442329848555`}, {60., 0.26011440729848556`}}], 
       LineBox[{
        Offset[{1.5, 0}, {60., 0.26011442329848555`}], 
         Offset[{-1.5, 0}, {60., 0.26011442329848555`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {60., 0.26011440729848556`}], 
         Offset[{-1.5, 0}, {60., 0.26011440729848556`}]}]}, {
       LineBox[{{70., 0.2599611293531352}, {70., 0.2599611253531352}}], 
       LineBox[{
        Offset[{1.5, 0}, {70., 0.2599611293531352}], 
         Offset[{-1.5, 0}, {70., 0.2599611293531352}]}], 
       LineBox[{
        Offset[{1.5, 0}, {70., 0.2599611253531352}], 
         Offset[{-1.5, 0}, {70., 0.2599611253531352}]}]}, {
       LineBox[{{80., 0.25987810159541896`}, {80., 0.259878100595419}}], 
       LineBox[{
        Offset[{1.5, 0}, {80., 0.25987810159541896`}], 
         Offset[{-1.5, 0}, {80., 0.25987810159541896`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {80., 0.259878100595419}], 
         Offset[{-1.5, 0}, {80., 0.259878100595419}]}]}, {
       LineBox[{{90., 0.2598111051887907}, {90., 0.25981110458879064`}}], 
       LineBox[{
        Offset[{1.5, 0}, {90., 0.2598111051887907}], 
         Offset[{-1.5, 0}, {90., 0.2598111051887907}]}], 
       LineBox[{
        Offset[{1.5, 0}, {90., 0.25981110458879064`}], 
         Offset[{-1.5, 0}, {90., 0.25981110458879064`}]}]}, {
       LineBox[{{100., 0.2597526287710092}, {100., 0.25975261477100914`}}], 
       LineBox[{
        Offset[{1.5, 0}, {100., 0.2597526287710092}], 
         Offset[{-1.5, 0}, {100., 0.2597526287710092}]}], 
       LineBox[{
        Offset[{1.5, 0}, {100., 0.25975261477100914`}], 
         Offset[{-1.5, 0}, {100., 0.25975261477100914`}]}]}, {
       LineBox[{{110., 0.2598110786346992}, {110., 0.2598109186346992}}], 
       LineBox[{
        Offset[{1.5, 0}, {110., 0.2598110786346992}], 
         Offset[{-1.5, 0}, {110., 0.2598110786346992}]}], 
       LineBox[{
        Offset[{1.5, 0}, {110., 0.2598109186346992}], 
         Offset[{-1.5, 0}, {110., 0.2598109186346992}]}]}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesLabel->{
      FormBox["\"Nxz\"", TraditionalForm], 
      FormBox["\" Evy\"", TraditionalForm]},
    PlotLabel->FormBox["\" Evy(Nxz)\"", TraditionalForm],
    PlotRangeClipping->True], ",", 
   GraphicsBox[
    {Hue[0.67, 0.6, 0.6], 
     PointBox[{{10., 7.024277507068115*^-7}, {20., 6.027018180484143*^-7}, {
      30., 5.873217315484235*^-7}, {40., 5.753375247612183*^-7}, {50., 
      5.7283854442*^-7}, {60., 5.708221606516667*^-7}, {70., 
      5.69165405479029*^-7}, {80., 5.689198104483332*^-7}, {90., 
      5.685602643131285*^-7}, {100., 5.679980368343329*^-7}, {110., 
      5.685597598750227*^-7}}], {{
       LineBox[{{10., 7.029277507068116*^-7}, {10., 7.019277507068115*^-7}}], 
       LineBox[{
        Offset[{1.5, 0}, {10., 7.029277507068116*^-7}], 
         Offset[{-1.5, 0}, {10., 7.029277507068116*^-7}]}], 
       LineBox[{
        Offset[{1.5, 0}, {10., 7.019277507068115*^-7}], 
         Offset[{-1.5, 0}, {10., 7.019277507068115*^-7}]}]}, {
       LineBox[{{20., 6.028018180484143*^-7}, {20., 6.026018180484143*^-7}}], 
       LineBox[{
        Offset[{1.5, 0}, {20., 6.028018180484143*^-7}], 
         Offset[{-1.5, 0}, {20., 6.028018180484143*^-7}]}], 
       LineBox[{
        Offset[{1.5, 0}, {20., 6.026018180484143*^-7}], 
         Offset[{-1.5, 0}, {20., 6.026018180484143*^-7}]}]}, {
       LineBox[{{30., 5.879217315484235*^-7}, {30., 5.867217315484234*^-7}}], 
       LineBox[{
        Offset[{1.5, 0}, {30., 5.879217315484235*^-7}], 
         Offset[{-1.5, 0}, {30., 5.879217315484235*^-7}]}], 
       LineBox[{
        Offset[{1.5, 0}, {30., 5.867217315484234*^-7}], 
         Offset[{-1.5, 0}, {30., 5.867217315484234*^-7}]}]}, {
       LineBox[{{40., 5.777375247612183*^-7}, {40., 5.729375247612184*^-7}}], 
       LineBox[{
        Offset[{1.5, 0}, {40., 5.777375247612183*^-7}], 
         Offset[{-1.5, 0}, {40., 5.777375247612183*^-7}]}], 
       LineBox[{
        Offset[{1.5, 0}, {40., 5.729375247612184*^-7}], 
         Offset[{-1.5, 0}, {40., 5.729375247612184*^-7}]}]}, {
       LineBox[{{50., 5.7289854442*^-7}, {50., 5.7277854442*^-7}}], 
       LineBox[{
        Offset[{1.5, 0}, {50., 5.7289854442*^-7}], 
         Offset[{-1.5, 0}, {50., 5.7289854442*^-7}]}], 
       LineBox[{
        Offset[{1.5, 0}, {50., 5.7277854442*^-7}], 
         Offset[{-1.5, 0}, {50., 5.7277854442*^-7}]}]}, {
       LineBox[{{60., 5.711221606516668*^-7}, {60., 5.705221606516667*^-7}}], 
       LineBox[{
        Offset[{1.5, 0}, {60., 5.711221606516668*^-7}], 
         Offset[{-1.5, 0}, {60., 5.711221606516668*^-7}]}], 
       LineBox[{
        Offset[{1.5, 0}, {60., 5.705221606516667*^-7}], 
         Offset[{-1.5, 0}, {60., 5.705221606516667*^-7}]}]}, {
       LineBox[{{70., 5.691724054790289*^-7}, {70., 5.69158405479029*^-7}}], 
       LineBox[{
        Offset[{1.5, 0}, {70., 5.691724054790289*^-7}], 
         Offset[{-1.5, 0}, {70., 5.691724054790289*^-7}]}], 
       LineBox[{
        Offset[{1.5, 0}, {70., 5.69158405479029*^-7}], 
         Offset[{-1.5, 0}, {70., 5.69158405479029*^-7}]}]}, {
       LineBox[{{80., 5.689448104483332*^-7}, {80., 5.688948104483333*^-7}}], 
       LineBox[{
        Offset[{1.5, 0}, {80., 5.689448104483332*^-7}], 
         Offset[{-1.5, 0}, {80., 5.689448104483332*^-7}]}], 
       LineBox[{
        Offset[{1.5, 0}, {80., 5.688948104483333*^-7}], 
         Offset[{-1.5, 0}, {80., 5.688948104483333*^-7}]}]}, {
       LineBox[{{90., 5.685622643131285*^-7}, {90., 5.685582643131286*^-7}}], 
       LineBox[{
        Offset[{1.5, 0}, {90., 5.685622643131285*^-7}], 
         Offset[{-1.5, 0}, {90., 5.685622643131285*^-7}]}], 
       LineBox[{
        Offset[{1.5, 0}, {90., 5.685582643131286*^-7}], 
         Offset[{-1.5, 0}, {90., 5.685582643131286*^-7}]}]}, {
       LineBox[{{100., 5.680010368343329*^-7}, {100., 5.67995036834333*^-7}}],
        LineBox[{
        Offset[{1.5, 0}, {100., 5.680010368343329*^-7}], 
         Offset[{-1.5, 0}, {100., 5.680010368343329*^-7}]}], 
       LineBox[{
        Offset[{1.5, 0}, {100., 5.67995036834333*^-7}], 
         Offset[{-1.5, 0}, {100., 5.67995036834333*^-7}]}]}, {
       LineBox[{{110., 5.685657598750227*^-7}, {110., 
        5.685537598750228*^-7}}], 
       LineBox[{
        Offset[{1.5, 0}, {110., 5.685657598750227*^-7}], 
         Offset[{-1.5, 0}, {110., 5.685657598750227*^-7}]}], 
       LineBox[{
        Offset[{1.5, 0}, {110., 5.685537598750228*^-7}], 
         Offset[{-1.5, 0}, {110., 5.685537598750228*^-7}]}]}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesLabel->{
      FormBox["\"Nxz\"", TraditionalForm], 
      FormBox["\" Evz\"", TraditionalForm]},
    PlotLabel->FormBox["\" Evz(Nxz)\"", TraditionalForm],
    PlotRangeClipping->True], ",", 
   GraphicsBox[
    {Hue[0.67, 0.6, 0.6], 
     PointBox[{{10., 0.0012047537}, {20., 0.0011038579999999984`}, {30., 
      0.0010801581345030505`}, {40., 0.0010413485749999978`}, {50., 
      0.001039564399999997}, {60., 0.0010320729128362979`}, {70., 
      0.0010274489384884571`}, {80., 0.0010197428500000017`}, {90., 
      0.0010208792552154995`}, {100., 0.0010170561300000065`}, {110., 
      0.001019150919125998}}], {{
       LineBox[{{10., 0.0034976977}, {10., -0.0010881902999999998`}}], 
       LineBox[{
        Offset[{1.5, 0}, {10., 0.0034976977}], 
         Offset[{-1.5, 0}, {10., 0.0034976977}]}], 
       LineBox[{
        Offset[{1.5, 0}, {10., -0.0010881902999999998`}], 
         Offset[{-1.5, 0}, {10., -0.0010881902999999998`}]}]}, {
       LineBox[{{20., 0.002372836999999996}, {20., -0.0001651209999999994}}], 
       LineBox[{
        Offset[{1.5, 0}, {20., 0.002372836999999996}], 
         Offset[{-1.5, 0}, {20., 0.002372836999999996}]}], 
       LineBox[{
        Offset[{1.5, 0}, {20., -0.0001651209999999994}], 
         Offset[{-1.5, 0}, {20., -0.0001651209999999994}]}]}, {
       LineBox[{{30., 0.0018108838758840533`}, {30., 0.0003494323931220478}}],
        LineBox[{
        Offset[{1.5, 0}, {30., 0.0018108838758840533`}], 
         Offset[{-1.5, 0}, {30., 0.0018108838758840533`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {30., 0.0003494323931220478}], 
         Offset[{-1.5, 0}, {30., 0.0003494323931220478}]}]}, {
       LineBox[{{40., 0.0015030096749999956`}, {40., 0.000579687475}}], 
       LineBox[{
        Offset[{1.5, 0}, {40., 0.0015030096749999956`}], 
         Offset[{-1.5, 0}, {40., 0.0015030096749999956`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {40., 0.000579687475}], 
         Offset[{-1.5, 0}, {40., 0.000579687475}]}]}, {
       LineBox[{{50., 0.0013691544799999942`}, {50., 0.0007099743199999998}}],
        LineBox[{
        Offset[{1.5, 0}, {50., 0.0013691544799999942`}], 
         Offset[{-1.5, 0}, {50., 0.0013691544799999942`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {50., 0.0007099743199999998}], 
         Offset[{-1.5, 0}, {50., 0.0007099743199999998}]}]}, {
       LineBox[{{60., 0.0013315679135972797`}, {60., 0.000732577912075316}}], 
       LineBox[{
        Offset[{1.5, 0}, {60., 0.0013315679135972797`}], 
         Offset[{-1.5, 0}, {60., 0.0013315679135972797`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {60., 0.000732577912075316}], 
         Offset[{-1.5, 0}, {60., 0.000732577912075316}]}]}, {
       LineBox[{{70., 0.0013170008613261792`}, {70., 0.0007378970156507349}}],
        LineBox[{
        Offset[{1.5, 0}, {70., 0.0013170008613261792`}], 
         Offset[{-1.5, 0}, {70., 0.0013170008613261792`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {70., 0.0007378970156507349}], 
         Offset[{-1.5, 0}, {70., 0.0007378970156507349}]}]}, {
       LineBox[{{80., 0.0012940824250000026`}, {80., 0.0007454032750000008}}],
        LineBox[{
        Offset[{1.5, 0}, {80., 0.0012940824250000026`}], 
         Offset[{-1.5, 0}, {80., 0.0012940824250000026`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {80., 0.0007454032750000008}], 
         Offset[{-1.5, 0}, {80., 0.0007454032750000008}]}]}, {
       LineBox[{{90., 0.001282899735059038}, {90., 0.0007588587753719609}}], 
       LineBox[{
        Offset[{1.5, 0}, {90., 0.001282899735059038}], 
         Offset[{-1.5, 0}, {90., 0.001282899735059038}]}], 
       LineBox[{
        Offset[{1.5, 0}, {90., 0.0007588587753719609}], 
         Offset[{-1.5, 0}, {90., 0.0007588587753719609}]}]}, {
       LineBox[{{100., 0.0012695202400000143`}, {100., 
        0.0007645920199999986}}], 
       LineBox[{
        Offset[{1.5, 0}, {100., 0.0012695202400000143`}], 
         Offset[{-1.5, 0}, {100., 0.0012695202400000143`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {100., 0.0007645920199999986}], 
         Offset[{-1.5, 0}, {100., 0.0007645920199999986}]}]}, {
       LineBox[{{110., 0.0012676538248432507`}, {110., 
        0.0007706480134087457}}], 
       LineBox[{
        Offset[{1.5, 0}, {110., 0.0012676538248432507`}], 
         Offset[{-1.5, 0}, {110., 0.0012676538248432507`}]}], 
       LineBox[{
        Offset[{1.5, 0}, {110., 0.0007706480134087457}], 
         Offset[{-1.5, 0}, {110., 0.0007706480134087457}]}]}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesLabel->{
      FormBox["\"Nxz\"", TraditionalForm], 
      FormBox["\" m\[Psi]\"", TraditionalForm]},
    PlotLabel->FormBox["\" m\[Psi](Nxz)\"", TraditionalForm],
    PlotRangeClipping->True]}], "}"}]], "Output",
 CellChangeTimes->{3.448959782546875*^9, 3.4504317399375*^9, 
  3.4517173838125*^9, 3.451887215046875*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"pts", "//", "TableForm"}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Export", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"ToString", "[", 
       RowBox[{"Unique", "[", "]"}], "]"}], "<>", "\"\<.eps\>\""}], ",", 
     "#"}], "]"}], "&"}], "/@", 
  RowBox[{"{", "}"}]}]], "Input",
 CellChangeTimes->{{3.445944075074*^9, 3.445944110356*^9}, 3.445944247257*^9, 
   3.4459443635480003`*^9, {3.451889215640625*^9, 3.45188921584375*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"$17.eps\"\>", ",", "\<\"$18.eps\"\>", ",", "\<\"$19.eps\"\>", 
   ",", "\<\"$20.eps\"\>", ",", "\<\"$21.eps\"\>", ",", "\<\"$22.eps\"\>", 
   ",", "\<\"$23.eps\"\>", ",", "\<\"$24.eps\"\>"}], "}"}]], "Output",
 CellChangeTimes->{3.445944112769*^9, 3.445944256061*^9, 3.44594436715*^9}]
}, Open  ]],

Cell[BoxData[
 GraphicsBox[
  {Hue[0.67, 0.6, 0.6], 
   PointBox[{{10., 0.0012047537}, {20., 0.0011038579999999984`}, {30., 
    0.0010801581345030505`}, {40., 0.0010413485749999978`}, {50., 
    0.001039564399999997}, {60., 0.0010320729128362979`}, {70., 
    0.0010274489384884571`}, {80., 0.0010197428500000017`}, {90., 
    0.0010208792552154995`}, {100., 0.0010170561300000065`}, {110., 
    0.001019150919125998}}], {{
     LineBox[{{10., 0.0034976977}, {10., -0.0010881902999999998`}}], 
     LineBox[{Offset[{1.5, 0}, {10., 0.0034976977}], 
       Offset[{-1.5, 0}, {10., 0.0034976977}]}], 
     LineBox[{Offset[{1.5, 0}, {10., -0.0010881902999999998`}], 
       Offset[{-1.5, 0}, {10., -0.0010881902999999998`}]}]}, {
     LineBox[{{20., 0.002372836999999996}, {20., -0.0001651209999999994}}], 
     LineBox[{Offset[{1.5, 0}, {20., 0.002372836999999996}], 
       Offset[{-1.5, 0}, {20., 0.002372836999999996}]}], 
     LineBox[{Offset[{1.5, 0}, {20., -0.0001651209999999994}], 
       Offset[{-1.5, 0}, {20., -0.0001651209999999994}]}]}, {
     LineBox[{{30., 0.0018108838758840533`}, {30., 0.0003494323931220478}}], 
     LineBox[{Offset[{1.5, 0}, {30., 0.0018108838758840533`}], 
       Offset[{-1.5, 0}, {30., 0.0018108838758840533`}]}], 
     LineBox[{Offset[{1.5, 0}, {30., 0.0003494323931220478}], 
       Offset[{-1.5, 0}, {30., 0.0003494323931220478}]}]}, {
     LineBox[{{40., 0.0015030096749999956`}, {40., 0.000579687475}}], 
     LineBox[{Offset[{1.5, 0}, {40., 0.0015030096749999956`}], 
       Offset[{-1.5, 0}, {40., 0.0015030096749999956`}]}], 
     LineBox[{Offset[{1.5, 0}, {40., 0.000579687475}], 
       Offset[{-1.5, 0}, {40., 0.000579687475}]}]}, {
     LineBox[{{50., 0.0013691544799999942`}, {50., 0.0007099743199999998}}], 
     LineBox[{Offset[{1.5, 0}, {50., 0.0013691544799999942`}], 
       Offset[{-1.5, 0}, {50., 0.0013691544799999942`}]}], 
     LineBox[{Offset[{1.5, 0}, {50., 0.0007099743199999998}], 
       Offset[{-1.5, 0}, {50., 0.0007099743199999998}]}]}, {
     LineBox[{{60., 0.0013315679135972797`}, {60., 0.000732577912075316}}], 
     LineBox[{
      Offset[{1.5, 0}, {60., 0.0013315679135972797`}], 
       Offset[{-1.5, 0}, {60., 0.0013315679135972797`}]}], 
     LineBox[{Offset[{1.5, 0}, {60., 0.000732577912075316}], 
       Offset[{-1.5, 0}, {60., 0.000732577912075316}]}]}, {
     LineBox[{{70., 0.0013170008613261792`}, {70., 0.0007378970156507349}}], 
     LineBox[{Offset[{1.5, 0}, {70., 0.0013170008613261792`}], 
       Offset[{-1.5, 0}, {70., 0.0013170008613261792`}]}], 
     LineBox[{Offset[{1.5, 0}, {70., 0.0007378970156507349}], 
       Offset[{-1.5, 0}, {70., 0.0007378970156507349}]}]}, {
     LineBox[{{80., 0.0012940824250000026`}, {80., 0.0007454032750000008}}], 
     LineBox[{Offset[{1.5, 0}, {80., 0.0012940824250000026`}], 
       Offset[{-1.5, 0}, {80., 0.0012940824250000026`}]}], 
     LineBox[{Offset[{1.5, 0}, {80., 0.0007454032750000008}], 
       Offset[{-1.5, 0}, {80., 0.0007454032750000008}]}]}, {
     LineBox[{{90., 0.001282899735059038}, {90., 0.0007588587753719609}}], 
     LineBox[{Offset[{1.5, 0}, {90., 0.001282899735059038}], 
       Offset[{-1.5, 0}, {90., 0.001282899735059038}]}], 
     LineBox[{Offset[{1.5, 0}, {90., 0.0007588587753719609}], 
       Offset[{-1.5, 0}, {90., 0.0007588587753719609}]}]}, {
     LineBox[{{100., 0.0012695202400000143`}, {100., 0.0007645920199999986}}],
      LineBox[{
      Offset[{1.5, 0}, {100., 0.0012695202400000143`}], 
       Offset[{-1.5, 0}, {100., 0.0012695202400000143`}]}], 
     LineBox[{Offset[{1.5, 0}, {100., 0.0007645920199999986}], 
       Offset[{-1.5, 0}, {100., 0.0007645920199999986}]}]}, {
     LineBox[{{110., 0.0012676538248432507`}, {110., 0.0007706480134087457}}],
      LineBox[{
      Offset[{1.5, 0}, {110., 0.0012676538248432507`}], 
       Offset[{-1.5, 0}, {110., 0.0012676538248432507`}]}], 
     LineBox[{Offset[{1.5, 0}, {110., 0.0007706480134087457}], 
       Offset[{-1.5, 0}, {110., 0.0007706480134087457}]}]}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["\"Nxz\"", TraditionalForm], 
    FormBox["\" m\[Psi]\"", TraditionalForm]},
  PlotLabel->FormBox["\" m\[Psi](Nxz)\"", TraditionalForm],
  PlotRangeClipping->True]], "Input"]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:041e\:0442\:0434\:0435\:043b\:044c\:043d\:043e\:0435 \:0440\:0438\
\:0441\:043e\:0432\:0430\:043d\:0438\:0435", "Subsection"],

Cell[BoxData[
 RowBox[{
  RowBox[{"numfunc", "=", "4"}], ";"}]], "Input",
 CellChangeTimes->{
  3.419749979896*^9, 3.442833864707*^9, {3.44283394867*^9, 
   3.442833965916*^9}, {3.4428340080959997`*^9, 3.442834015701*^9}}],

Cell[BoxData[
 RowBox[{"list", "=", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"Transpose", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"First", "/@", "pts"}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
           "#", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], ",", 
           RowBox[{
           "#", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], 
          "}"}], "&"}], "/@", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"#", "[", 
            RowBox[{"[", "numfunc", "]"}], "]"}], "&"}], "/@", "pts"}], 
         ")"}]}]}], "}"}], "]"}], ";", "\[IndentingNewLine]", 
    RowBox[{"Transpose", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           FractionBox["1", 
            RowBox[{"First", "[", "#", "]"}]], ")"}], 
          RowBox[{"-", "1"}]], "&"}], "/@", "pts"}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"First", "[", "#", "]"}], "&"}], "/@", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"#", "[", 
            RowBox[{"[", "numfunc", "]"}], "]"}], "&"}], "/@", "pts"}], 
         ")"}]}]}], "}"}], "]"}]}], ")"}]}]], "Input",
 CellChangeTimes->{{3.419749927707*^9, 3.419749954133*^9}, {3.442833969649*^9,
   3.442834003175*^9}}],

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"Drop", "[", 
    RowBox[{"list", ",", "2"}], "]"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", 
    RowBox[{"Last", "[", 
     RowBox[{"Last", "[", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{
         "#1", "\[LeftDoubleBracket]", "numfunc", "\[RightDoubleBracket]"}], 
         "&"}], ")"}], "/@", "pts"}], "]"}], "]"}]}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"PointSize", "[", "0.03`", "]"}]}]}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"Transpose", "[", 
  RowBox[{"pts", "[", 
   RowBox[{"[", 
    RowBox[{"All", ",", 
     RowBox[{"2", ";;", 
      RowBox[{"-", "2"}]}]}], "]"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.419674747166*^9, 3.419674771257*^9}}],

Cell[BoxData[
 RowBox[{"With", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"param", "=", "\"\<lfi\>\""}], "}"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"ListPlot", "[", 
      RowBox[{
       RowBox[{"Transpose", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"First", "/@", "pts"}], ",", 
          RowBox[{"First", "/@", "#"}]}], "}"}], "]"}], ",", 
       RowBox[{"AxesLabel", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"param", ",", 
          RowBox[{"#", "\[LeftDoubleBracket]", 
           RowBox[{
            RowBox[{"-", "1"}], ",", 
            RowBox[{"-", "1"}]}], "\[RightDoubleBracket]"}]}], "}"}]}], ",", 
       RowBox[{"PlotLabel", "\[Rule]", 
        RowBox[{
         RowBox[{"#", "\[LeftDoubleBracket]", 
          RowBox[{
           RowBox[{"-", "1"}], ",", 
           RowBox[{"-", "1"}]}], "\[RightDoubleBracket]"}], "<>", "\"\<(\>\"",
          "<>", "param", "<>", "\"\<)\>\""}]}]}], "]"}], "&"}], "/@", 
    RowBox[{"Transpose", "[", 
     RowBox[{"pts", "[", 
      RowBox[{"[", 
       RowBox[{"All", ",", 
        RowBox[{"2", ";;", 
         RowBox[{"-", "2"}]}]}], "]"}], "]"}], "]"}]}]}], 
  "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->{{3.41967342627*^9, 3.419673593829*^9}, {3.419673651501*^9, 
  3.419673681318*^9}, {3.419673877016*^9, 3.4196738972469997`*^9}, {
  3.419771429097*^9, 3.419771429307*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Transpose", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"First", "/@", "pts"}], ",", 
    RowBox[{"First", "/@", 
     RowBox[{"pts", "[", 
      RowBox[{"[", 
       RowBox[{"All", ",", "8"}], "]"}], "]"}]}]}], "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.41977154809*^9, 3.4197715857980003`*^9}, {
   3.419771738102*^9, 3.4197717500810003`*^9}, 3.4197718550889997`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0.01`", ",", "3.6637489773423195`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.1`", ",", "0.0010064644625`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.`", ",", "0.001006461555`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"2", " ", "\[Pi]"}], ",", "0.001006461255`"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.419771551171*^9, 3.419771586347*^9}, {
   3.4197717385769997`*^9, 3.419771750587*^9}, 3.4197718553570004`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{"Rest", "@", 
   RowBox[{"Transpose", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"First", "/@", "pts"}], ",", 
      RowBox[{"First", "/@", 
       RowBox[{"pts", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", "8"}], "]"}], "]"}]}]}], "}"}], "]"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.4197717903120003`*^9, 3.419771846183*^9}}],

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{"(", 
   RowBox[{"First", "/@", 
    RowBox[{"pts", "[", 
     RowBox[{"[", 
      RowBox[{"All", ",", "5"}], "]"}], "]"}]}], ")"}], "]"}]], "Input",
 CellChangeTimes->{{3.419771442176*^9, 3.419771444074*^9}, {3.419771513907*^9,
   3.4197715587019997`*^9}, {3.419771593736*^9, 3.419771662836*^9}, {
  3.419771696449*^9, 3.4197717635699997`*^9}}],

Cell[BoxData[
 RowBox[{"With", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"param", "=", "\"\<Re\>\""}], "}"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"ErrorListPlot", "[", 
      RowBox[{
       RowBox[{"MapThread", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"#1", ",", "#2"}], "}"}], ",", 
            RowBox[{"ErrorBar", "[", "#3", "]"}]}], "}"}], "&"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"First", "/@", "pts"}], ",", 
           RowBox[{"#", "\[LeftDoubleBracket]", 
            RowBox[{"All", ",", "1"}], "\[RightDoubleBracket]"}], ",", 
           RowBox[{"#", "\[LeftDoubleBracket]", 
            RowBox[{"All", ",", "2"}], "\[RightDoubleBracket]"}]}], "}"}]}], 
        "]"}], ",", 
       RowBox[{"AxesLabel", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"param", ",", 
          RowBox[{"#", "\[LeftDoubleBracket]", 
           RowBox[{
            RowBox[{"-", "1"}], ",", 
            RowBox[{"-", "1"}]}], "\[RightDoubleBracket]"}]}], "}"}]}], ",", 
       RowBox[{"PlotLabel", "\[Rule]", 
        RowBox[{
         RowBox[{"#", "\[LeftDoubleBracket]", 
          RowBox[{
           RowBox[{"-", "1"}], ",", 
           RowBox[{"-", "1"}]}], "\[RightDoubleBracket]"}], "<>", "\"\<(\>\"",
          "<>", "param", "<>", "\"\<)\>\""}]}], ",", 
       RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], "&"}], "/@", 
    RowBox[{"Transpose", "[", 
     RowBox[{"pts", "[", 
      RowBox[{"[", 
       RowBox[{"All", ",", 
        RowBox[{"2", ";;", 
         RowBox[{"-", "2"}]}]}], "]"}], "]"}], "]"}]}]}], 
  "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->{{3.41967342627*^9, 3.419673593829*^9}, {3.419673651501*^9, 
   3.419673681318*^9}, {3.419673877016*^9, 3.4196738972469997`*^9}, 
   3.4196744132939997`*^9, {3.4196758247530003`*^9, 3.4196758252209997`*^9}, {
   3.419675924844*^9, 3.419675960913*^9}, {3.419676048828*^9, 
   3.419676080913*^9}, {3.4197500097209997`*^9, 3.4197500321099997`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Fit", "[", 
  RowBox[{
   RowBox[{"Drop", "[", 
    RowBox[{"list", ",", "2"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "x"}], "}"}], ",", "x"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"0.9908116181000218`", "\[InvisibleSpace]", "+", 
  RowBox[{"2.4908947743015486`", " ", "x"}]}]], "Output"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"PrintRange", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"GetFields", "[", 
     RowBox[{"#", ",", 
      RowBox[{"{", 
       RowBox[{"\"\<Re\>\"", ",", "\"\<shift\>\""}], "}"}]}], "]"}], "&"}], "/@",
    "$res"}], "]"}]], "Input",
 CellChangeTimes->{{3.4428342105950003`*^9, 3.442834226479*^9}, {
  3.4428342591940002`*^9, 3.4428343019700003`*^9}, {3.4428343390439997`*^9, 
  3.442834362505*^9}}]
}, Closed]]
}, Open  ]]
},
AutoGeneratedPackage->None,
Evaluator->"dop",
WindowSize->{1035, 515},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
ShowSelection->True,
TaggingRules:>{"Salvaged" -> True},
FrontEndVersion->"8.0 for Microsoft Windows (64-bit) (October 6, 2011)",
StyleDefinitions->"Default.nb",
PrivateNotebookOptions -> {
 "VersionedStylesheet" -> {"Default.nb"[8.] -> False}}
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 207, 6, 31, "Input",
 InitializationCell->True],
Cell[755, 28, 142, 3, 52, "Input",
 InitializationCell->True],
Cell[900, 33, 162, 4, 31, "Input"],
Cell[1065, 39, 200, 5, 31, "Input",
 InitializationCell->True],
Cell[1268, 46, 108, 3, 31, "Input"],
Cell[1379, 51, 1336, 31, 112, "Input",
 InitializationCell->True],
Cell[CellGroupData[{
Cell[2740, 86, 124, 1, 71, "Section"],
Cell[2867, 89, 310, 9, 52, "Input"],
Cell[3180, 100, 6937, 116, 33, "Input"],
Cell[10120, 218, 3661, 61, 33, "Input"],
Cell[CellGroupData[{
Cell[13806, 283, 5505, 92, 97, "Input"],
Cell[19314, 377, 6436, 204, 69, "Output"]
}, Open  ]],
Cell[25765, 584, 793, 17, 52, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[26595, 606, 100, 1, 71, "Section"],
Cell[CellGroupData[{
Cell[26720, 611, 64, 0, 36, "Subsection"],
Cell[26787, 613, 2302, 61, 221, "Input",
 InitializationCell->True],
Cell[29092, 676, 257, 8, 31, "Input",
 InitializationCell->True],
Cell[29352, 686, 12937, 328, 852, "Input",
 InitializationCell->True],
Cell[42292, 1016, 12687, 308, 752, "Input",
 InitializationCell->True],
Cell[54982, 1326, 2968, 76, 312, "Input",
 InitializationCell->True],
Cell[57953, 1404, 15596, 379, 972, "Input",
 InitializationCell->True]
}, Closed]],
Cell[CellGroupData[{
Cell[73586, 1788, 70, 0, 28, "Subsection"],
Cell[CellGroupData[{
Cell[73681, 1792, 96, 1, 31, "Input"],
Cell[CellGroupData[{
Cell[73802, 1797, 4342, 64, 43, "Print"],
Cell[78147, 1863, 3885, 59, 23, "Print"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[82081, 1928, 820, 16, 52, "Input"],
Cell[82904, 1946, 199, 3, 30, "Output"],
Cell[83106, 1951, 802, 14, 55, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[83945, 1970, 1304, 21, 31, "Input"],
Cell[85252, 1993, 435, 7, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[85724, 2005, 439, 10, 31, "Input"],
Cell[86166, 2017, 173, 2, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[86376, 2024, 2393, 36, 31, "Input"],
Cell[88772, 2062, 2537, 35, 30, "Output"]
}, Open  ]],
Cell[91324, 2100, 848, 22, 52, "Input"],
Cell[92175, 2124, 1784, 50, 92, "Input"],
Cell[93962, 2176, 2810, 74, 92, "Input"],
Cell[96775, 2252, 3030, 81, 112, "Input"],
Cell[99808, 2335, 153, 3, 31, "Input"],
Cell[99964, 2340, 2070, 66, 198, "Input"],
Cell[CellGroupData[{
Cell[102059, 2410, 927, 21, 31, "Input"],
Cell[102989, 2433, 7727, 116, 373, "Output"]
}, Closed]],
Cell[CellGroupData[{
Cell[110753, 2554, 227, 3, 25, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10001.}],
Cell[110983, 2559, 6910, 103, 387, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10001.}]
}, Closed]],
Cell[CellGroupData[{
Cell[117930, 2667, 248, 4, 25, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[118181, 2673, 5035, 76, 387, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}]
}, Closed]],
Cell[CellGroupData[{
Cell[123253, 2754, 199, 4, 25, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10001.}],
Cell[123455, 2760, 4813, 74, 386, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10001.}]
}, Closed]],
Cell[CellGroupData[{
Cell[128305, 2839, 208, 4, 25, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10002.}],
Cell[128516, 2845, 4163, 64, 387, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10002.}]
}, Closed]],
Cell[CellGroupData[{
Cell[132716, 2914, 491, 14, 25, "Input"],
Cell[133210, 2930, 615, 10, 50, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[133862, 2945, 534, 17, 40, "Input"],
Cell[134399, 2964, 4026, 59, 252, "Output"]
}, Closed]],
Cell[138440, 3026, 985, 18, 25, "Input"],
Cell[139428, 3046, 2267, 38, 52, "Input"],
Cell[CellGroupData[{
Cell[141720, 3088, 345, 6, 27, "Subsubsection"],
Cell[142068, 3096, 1053, 31, 67, "Input"],
Cell[CellGroupData[{
Cell[143146, 3131, 921, 29, 40, "Input"],
Cell[144070, 3162, 844, 21, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[144951, 3188, 487, 15, 52, "Input"],
Cell[145441, 3205, 780, 21, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[146258, 3231, 565, 14, 31, "Input"],
Cell[146826, 3247, 755, 13, 55, "Output"]
}, Open  ]],
Cell[147596, 3263, 192, 6, 52, "Input"],
Cell[CellGroupData[{
Cell[147813, 3273, 3780, 88, 185, "Input"],
Cell[151596, 3363, 335124, 5861, 808, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[486757, 9229, 176, 3, 31, "Input"],
Cell[486936, 9234, 131, 1, 30, "Output"]
}, Open  ]],
Cell[487082, 9238, 1326, 33, 72, "Input"],
Cell[488411, 9273, 3396, 83, 191, "Input"],
Cell[CellGroupData[{
Cell[491832, 9360, 2562, 61, 130, "Input"],
Cell[494397, 9423, 20523, 361, 374, "Output"]
}, Open  ]],
Cell[514935, 9787, 351, 10, 31, "Input"],
Cell[515289, 9799, 597, 13, 31, "Input"],
Cell[515889, 9814, 271061, 4672, 829, "Input"],
Cell[CellGroupData[{
Cell[786975, 14490, 347, 10, 31, "Input"],
Cell[787325, 14502, 110, 1, 30, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[787484, 14509, 277, 4, 21, "Subsubsection"],
Cell[787764, 14515, 1729, 50, 172, "Input",
 InitializationCell->True],
Cell[CellGroupData[{
Cell[789518, 14569, 463, 10, 31, "Input"],
Cell[789984, 14581, 470, 9, 30, "Output"]
}, Open  ]],
Cell[790469, 14593, 555, 15, 52, "Input"],
Cell[791027, 14610, 588, 18, 52, "Input"]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[791664, 14634, 220, 3, 36, "Subsection"],
Cell[CellGroupData[{
Cell[791909, 14641, 303, 6, 31, "Input"],
Cell[CellGroupData[{
Cell[792237, 14651, 13011, 351, 347, "Print"],
Cell[805251, 15004, 785, 15, 23, "Print"]
}, Open  ]],
Cell[806051, 15022, 200, 3, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[806288, 15030, 680, 17, 31, "Input"],
Cell[CellGroupData[{
Cell[806993, 15051, 115, 1, 23, "Print"],
Cell[807111, 15054, 115, 1, 23, "Print"],
Cell[807229, 15057, 581, 11, 23, "Print"],
Cell[807813, 15070, 665, 15, 23, "Print"],
Cell[808481, 15087, 728, 14, 23, "Print"]
}, Open  ]],
Cell[809224, 15104, 735, 13, 55, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[809996, 15122, 928, 29, 31, "Input"],
Cell[810927, 15153, 9298, 249, 335, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[820262, 15407, 1383, 33, 72, "Input"],
Cell[821648, 15442, 1930, 39, 144, "Output"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[823627, 15487, 178, 3, 28, "Subsection"],
Cell[CellGroupData[{
Cell[823830, 15494, 549, 16, 31, "Input"],
Cell[824382, 15512, 970, 15, 30, "Output"]
}, Open  ]],
Cell[825367, 15530, 2668, 39, 31, "Input"],
Cell[828038, 15571, 383, 10, 31, "Input"],
Cell[828424, 15583, 12127, 244, 96, "Input"],
Cell[CellGroupData[{
Cell[840576, 15831, 109, 1, 31, "Input"],
Cell[840688, 15834, 64385, 1309, 331, "Output"]
}, Closed]],
Cell[CellGroupData[{
Cell[905110, 17148, 1676, 25, 25, "Input"],
Cell[CellGroupData[{
Cell[906811, 17177, 1682, 27, 23, "Print"],
Cell[908496, 17206, 1839, 30, 23, "Print"],
Cell[910338, 17238, 1471, 22, 23, "Print"],
Cell[911812, 17262, 1349, 18, 23, "Print"],
Cell[913164, 17282, 2124, 36, 23, "Print"],
Cell[915291, 17320, 1990, 34, 23, "Print"]
}, Open  ]]
}, Open  ]],
Cell[917308, 17358, 20365, 400, 99, "Input"],
Cell[937676, 17760, 12304, 235, 91, "Input"],
Cell[CellGroupData[{
Cell[950005, 17999, 150, 2, 27, "Subsubsection"],
Cell[CellGroupData[{
Cell[950180, 18005, 216, 3, 30, "Text",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[950399, 18010, 19020, 410, 306, "Output",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}]
}, Closed]],
Cell[CellGroupData[{
Cell[969456, 18425, 175, 3, 27, "Text",
 CellGroupingRules->{GroupTogetherGrouping, 10001.}],
Cell[969634, 18430, 13788, 304, 303, "Output",
 CellGroupingRules->{GroupTogetherGrouping, 10001.}]
}, Closed]],
Cell[CellGroupData[{
Cell[983459, 18739, 176, 3, 27, "Text",
 CellGroupingRules->{GroupTogetherGrouping, 10002.}],
Cell[983638, 18744, 25260, 530, 313, "Output",
 CellGroupingRules->{GroupTogetherGrouping, 10002.}]
}, Closed]],
Cell[CellGroupData[{
Cell[1008935, 19279, 268, 5, 27, "Text",
 CellGroupingRules->{GroupTogetherGrouping, 10003.}],
Cell[1009206, 19286, 19074, 410, 307, "Output",
 CellGroupingRules->{GroupTogetherGrouping, 10003.}]
}, Closed]],
Cell[CellGroupData[{
Cell[1028317, 19701, 287, 5, 27, "Text",
 CellGroupingRules->{GroupTogetherGrouping, 10004.}],
Cell[1028607, 19708, 27949, 592, 313, "Output",
 CellGroupingRules->{GroupTogetherGrouping, 10004.}]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[1056605, 20306, 195, 2, 21, "Subsubsection"],
Cell[CellGroupData[{
Cell[1056825, 20312, 5822, 126, 292, "Input"],
Cell[1062650, 20440, 2896, 59, 160, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1065583, 20504, 98, 1, 31, "Input"],
Cell[1065684, 20507, 22970, 436, 144, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1088691, 20948, 105, 3, 31, "Input"],
Cell[1088799, 20953, 784, 19, 73, "Output"]
}, Open  ]],
Cell[1089598, 20975, 1356, 33, 72, "Input"],
Cell[1090957, 21010, 1236, 30, 112, "Input"],
Cell[1092196, 21042, 593, 10, 31, "Input"],
Cell[1092792, 21054, 4099, 102, 379, "Input"],
Cell[1096894, 21158, 1459, 34, 72, "Input"],
Cell[1098356, 21194, 1052, 17, 31, "Input"],
Cell[1099411, 21213, 4028, 96, 212, "Input"],
Cell[1103442, 21311, 254, 5, 31, "Input"],
Cell[CellGroupData[{
Cell[1103721, 21320, 107, 2, 31, "Input"],
Cell[CellGroupData[{
Cell[1103853, 21326, 414, 8, 23, "Print"],
Cell[1104270, 21336, 584, 14, 23, "Print"],
Cell[1104857, 21352, 344, 7, 23, "Print"],
Cell[1105204, 21361, 222, 3, 23, "Print"],
Cell[1105429, 21366, 986, 21, 23, "Print"],
Cell[1106418, 21389, 986, 21, 23, "Print"],
Cell[1107407, 21412, 986, 21, 23, "Print"],
Cell[1108396, 21435, 984, 21, 23, "Print"],
Cell[1109383, 21458, 983, 21, 23, "Print"],
Cell[1110369, 21481, 985, 21, 23, "Print"],
Cell[1111357, 21504, 983, 21, 23, "Print"],
Cell[1112343, 21527, 977, 21, 23, "Print"],
Cell[1113323, 21550, 984, 21, 23, "Print"],
Cell[1114310, 21573, 985, 21, 23, "Print"],
Cell[1115298, 21596, 214, 3, 23, "Print"],
Cell[1115515, 21601, 794, 18, 23, "Print"]
}, Open  ]],
Cell[1116324, 21622, 38096, 777, 316, "Output"]
}, Open  ]],
Cell[1154435, 22402, 60, 1, 31, "Input"],
Cell[CellGroupData[{
Cell[1154520, 22407, 413, 11, 31, "Input"],
Cell[1154936, 22420, 329, 5, 30, "Output"]
}, Open  ]],
Cell[1155280, 22428, 4263, 73, 255, "Input"]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[1159592, 22507, 133, 1, 36, "Subsection"],
Cell[1159728, 22510, 222, 5, 31, "Input"],
Cell[1159953, 22517, 1398, 43, 86, "Input"],
Cell[1161354, 22562, 572, 16, 31, "Input"],
Cell[1161929, 22580, 252, 7, 31, "Input"],
Cell[1162184, 22589, 1387, 37, 92, "Input"],
Cell[CellGroupData[{
Cell[1163596, 22630, 398, 10, 31, "Input"],
Cell[1163997, 22642, 525, 14, 30, "Output"]
}, Open  ]],
Cell[1164537, 22659, 405, 12, 31, "Input"],
Cell[1164945, 22673, 396, 9, 31, "Input"],
Cell[1165344, 22684, 2059, 51, 112, "Input"],
Cell[CellGroupData[{
Cell[1167428, 22739, 198, 6, 31, "Input"],
Cell[1167629, 22747, 130, 2, 30, "Output"]
}, Open  ]],
Cell[1167774, 22752, 419, 11, 31, "Input"]
}, Closed]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
